Microsoft 365 Sélection multiple

Claudy · 11 Juin 2020

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 · 11 Juin 2020

Bonjour Claudy,
Essayez :

VB:

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

Claudy · 11 Juin 2020

Super,
merci, bonne journée,
Claudy

job75 · 11 Juin 2020

Bonjour Claudy, Sylvanu,

La fonction Intersect permet souvent de simplifier le code :

VB:

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

PS : en VBA les Select sont à bannir !

A+

Microsoft 365 Sélection multiple

Claudy

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

Claudy

XLDnaute Accro

job75

XLDnaute Barbatruc

Discussions similaires