Selection cellules

[anber]

Bonjour,

Je recherche le code pour une selection de cellules en fonction d'une autre cellule en utilisant éventuellement offset

Merci

 

[CBernardT]

Bonjour Anber

Je te propose ce code :

Sub selection()
Dim Cel As Range
Set Cel = Range("B3")
'Méthode Union et propriété Entirerow très utiles pour ce genre sélection
Union(Cel.EntireRow.Range("A1"), Cel.EntireRow.Range("C1:F1")).Copy Destination:=Range("E11")
Set Cel = Range("I8")
'Avec la Propriété Offset
Union(Cel.Offset(0, -7), Range(Cel.Offset(0, -4), Cel.Offset(0, -2))).Copy Destination:=Range("E12")
End Sub

Cordialement

CBernardT

 

[anber]

Bonjour CBernardT

Exactement ce que je cherchais

Merci

BA