Sélectionner des plages non contiguës en VBA

[julienbx]

Bonjour à tous,

Je cherche, en VBA, à copier deux plages de données :
de A5 à C jusqu'à la dernière ligne en A non vide
de BX5 à CU jusqu'à la dernière ligne en A non vide.

Je suis sur cette partie de mon code depuis plusieurs jours sans succès, le résultat que j'obtiens est une copie de A5 à CU jusqu'à la dernière ligne non vide, mais je n'arrive pas à exclure de ma sélection les colonnes D à BW qui sont censées êtres exclues de ma copie suivant mon code...

Auriez vous une idée stp ? 🙂

Merci par avance,

Julien

Sub select_Final_N()
Dim LR4 As Range
Set LR4 = Worksheets("final").Range("A5:A5000").Find("*", LookIn:=xlValues, lookat:=xlPart, SearchDirection:=xlPrevious)
Worksheets("FINAL").Range("A5:C" & LR4.Row, "BX5:CU" & LR4.Row).Copy
End Sub

 

[job75]

Bonsoir julienbx, bienvenue sur XLD,

Le Range n'était pas correct pour une sélection multiple, utilisez cette syntaxe :

Worksheets("FINAL").Range("A5:C" & LR4.Row & ",BX5:CU" & LR4.Row).Copy

A+

 

[julienbx]

Et pourtant j'ai cherché ,cherché...
Un grand merci 🙂