Discussion :

[Rotax27]

Bonjour à tous,
J'utilise Excel 2021.
Je voudrais sélectionner des plages de cellules non contiguës dans un classeur, puis les copier dans un autre classeur en copie conforme.
J'utilise une variable (lig) pour identifier le numéro de ligne concerné.
J'ai fait de nombreux essais, mais je n'arrive pas à mon but.
Je voudrais sélectionner les cellules 1 à 5 puis de 8 à 16 de la ligne "lig" puis les copier telles quel dans un autre classeur
J'ai essayer avec Range, mais je n'arrive pas à insérer ma variable.
Les derniers essais réalisés :
Range(Cells(lig,1),Cells(lig,5),Cells(lig,8),Cells(lig,16)).Select mais cela ne fonctionne pas
le dernier en date :
Union(cells(lig,1),(cells(lig,2, 3,4,5 puis 8,9,10,11,12,13,14,15,16) mais c'est un peu compliqué.
Existe t il une solution plus simple?
Merci pour votre aide.

[Franc]

Bonjour, essayez ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim rng As Range
Set rng = Union(Range(Cells(lig, 1), Cells(lig, 5)), Range(Cells(lig, 8), Cells(lig, 16)))
rng.Copy Destination:=Workbooks("NomDuClasseur").Worksheets("NomDeLaFeuille").Range("A1")

Cela copiera la plage de cellules définie par rng dans le classeur et la feuille spécifiés, en commençant à coller à partir de la cellule "A1".
Adaptez les noms à vos besoins.