Demande Explications chiffres (lignes de commande)

Bonjour

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.

En vous remerciant

CordialementPoint badges accès-BB.xlsm (51,8 Ko)

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

Bonjour @Ceiste,

Voici une légende:

  1. ( % = As Integer )
  2. ( $ = As String )
  3. ( & = As Long )
  4. ( ! = As Single )
  5. ( # = As Double )
  6. ( @ = As Currency )

Ne pas tenir compte des parenthèses.

Cordialement.

Bonjour
Salut MDO

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

2 J'aimes

Bonjour

Merci à Mimimathy et a MDO

Réponse claire à moi de savoir reproduire sur mon projet.

Bonne soirée

Cordialement