Microsoft 365 Sélection multiple

[Claudy]

Bonjour,
je voudrais faire une sélection multiple sur une même ligne pour faire un copier coller,
mais ça coince la dessus:
Sub copierColler()
Dim l As Integer
l = ActiveCell.Row

Range("B" & l, "D" & l, "H" & l & ":L" & l, "AF" & l & ":AI" & l).Select


End Sub

Merci d'avance,
Claudy

 

[sylvanu]

Bonjour Claudy,
Essayez :

Union(Range("B" & l), Range("D" & l), Range("H" & l & ":L" & l), Range("AF" & l & ":AI" & l)).Select

 

[Claudy]

Super,
merci, bonne journée,
Claudy

 

[job75]

Bonjour Claudy, Sylvanu,

La fonction Intersect permet souvent de simplifier le code :

Intersect(ActiveCell.EntireRow, [B:B,D:D,H:L,AF:AI]).Select

PS : en VBA les Select sont à bannir !

A+