Mon projet en VBA avance doucement ,pour plus d’efficacité je souhaite comprendre les chiffres et pourcentages des lignes de commande ci-dessous.
Je joins le fichier d’ou proviennent ces lignes.
Dim Ws As Worksheet, Wd As Worksheet, Dl%, i%, j% 'Déclaration des variables
j = 2
Dl = Range(“A” & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne A
For i = 2 To Dl 'boucle sur les lignes
If Cells(i, 13) <> “” Then 'si la cellue colonne “i” n’est pas vide
Ws.Range(Cells(i, 1), Cells(i, 8)).Copy Wd.Cells(j, 1) 'copie vers la feuille Recap
Ws.Range(Cells(i, 13), Cells(i, 13)).Copy Wd.Cells(j, 9) 'copie vers la feuille Reca
Dim Ws as Worksheet --> déclaration d’une feuille de travail, ici le Ws pour (W)orksheet (s)ource
Dim Dl% --> (D)ernière (l)igne (%) as integer (raccourci pout Nb entier)
For i=2 to Dl --> boucle sur les lignes depuis la 2ème jusqu’à la dernière
if Cells(i,13)<>"" then --> si la cellule (ligne (i), 13ème colonne (M), n’est pas vide, alors
je (copy) depuis le (W)orksheet (s)ource la plage de la cellule ligne (i) 1ère colonne à ligne**(i)** de la colonne 8 (H) pour la coller dans le (W)orksheet (d)estination sur la cellule (j qui est égale à la ligne 2), colonne A