Pour pouvoir remplir plusieurs lignes avec une seule macro, il va falloir que tu utilises une boucle :
Les Boucles
Pour utiliser ta boucle, tu vas devoir connaître le nombre de lignes que contient ton tableau :
Dans la ligne ci-dessous, tu remplaces le "TEST" par le nom de ton classeur, le "Feuil1" par le nom de ta feuille
1 2
| dim Ligne as long
Ligne = Workbooks("TEST").worksheets("Feuil1").cells(rows.count,1).end(xlup).row |
Tu auras donc ton nombre de lignes stockés dans ta variable Ligne
Troisième conseil, n'utilises pas de Select, ça ne fera qu'alourdir ta procédure.
Le copié collé s'écrit peut s'écrire sur une ligne :
Range("A2").copy destination:=Range("J9")
Dernier conseil, relie tes range de la manière suivante :
workbooks("TEST").Worksheets("Feuil1").range("...")
Ca te permettra de vadrouiller dans ton classeur et même entre plusieurs classeurs au besoin.
Et pour que la syntaxe soit plus lisible tu peux procéder de la manière suivante :
1 2 3 4
| Dim MaFeuille as Worksheet 'Tu déclares ta feuille dans une variable plus courte
set MaFeuille=workbooks("TEST").worksheets("Feuil1")
MaFeuille.range("...").copy destination:=MaFeuille.range("...") 'Tu la réutilises à volonté pour raccourcir tes lignes de codes |
Je te laisse tester et revenir si tu as des questions,
Bonne journée à toi,
Partager