Sélection multiple avec souris puis copie (VBA)

[RENAUDER]

Bonjour,

Je sélectionne (avec la souris) plusieurs cellules dans une colonne ex A3, A6,A8
Par rapport à cette sélection je souhaite étendre la sélection sur 4 colonnes comme suit

Range("A3:D3,A6:D6,A8:D8").Select

Je sais le faire par rapport à des cellules caractéristiques mais pas avec celles sélectionnées avec la souris.
J'espère avoir été clair dans mes explications.
D'avance merci

 

[PascalXLD]

Re : Sélection multiple avec souris puis copie (VBA)

Bonjour

Je ne sais pas si cela correspond à ta demande

Sub Macro1()

Dim monadresse As String

For Each c In Selection
    monadresse = IIf(monadresse = "", c.Address, monadresse & "," & c.Address)
    monadresse = monadresse & ":" & c.Offset(0, 3).Address
Next
Range(monadresse).Select

End Sub

 

[RENAUDER]

Re : Sélection multiple avec souris puis copie (VBA)

Bonjour Pascal,

C'est super et encore merci

A+

 

[Banzai64]

Re : Sélection multiple avec souris puis copie (VBA)

Bonjour
Un début d'un soupçon de solution


Zut j'ai tapé à côté

 

[RENAUDER]

Re : Sélection multiple avec souris puis copie (VBA)

Bonjour Banzai,
Merci quand même, ça peut toujours servir.