Code à décoder

Bonjour à tous,

J'ai une macro à modifier (créée par qq1 d'autre) et avant de la modifier et pour ne pas faire n'importe quoi je souhaite la comprendre complétement.

Je me heurte à ce morceau de code que je ne comprends malgré les commentaires :

'**************************************************************************************************

'On commence à chercher dans les catalogues : Pour le catalogue GGG : Colonne I (Adresse)

'Pour le catalogue EE :Colonne H (Code LOC)

'**************************************************************************************************

ThisWorkbook.Sheets("Ficher_PDC.").Activate

Range("A2").Select

'---------------------------------------------

'On definie un compteur des articles trouvés

'---------------------------------------------

CompteurAdressesGGG = 0

CompteurColEtiquettesGGS = 1

CompteurLinEtiquettesGGG = 1

CompteurAdressesEE = 0

CompteurColEtiquettesEE = 1

CompteurLinEtiquettesEE = 1

Do While ActiveCell <> ""

If ActiveCell <> "" Then

LArticleEnCours = ActiveCell.Offset(0, 3)

Questions :

  • Que signifie t-il ?
  • A quoi sert-il ?

Merci par avance pour votre coup de pouce !

Fly

Salut Fly,

Voici le code décortiqué, merci de le mettre entre les tags [ code] et [ /code] sans espace après le crochet

' Pour ce classeur, activer la feuille "Ficher_PDC"
ThisWorkbook.Sheets("Ficher_PDC.").Activate
' Sélectionner la cellule A2
Range("A2").Select
'---------------------------------------------
'On definie un compteur des articles trouvés
'---------------------------------------------
CompteurAdressesGGG = 0
CompteurColEtiquettesGGS = 1
CompteurLinEtiquettesGGG = 1

CompteurAdressesEE = 0
CompteurColEtiquettesEE = 1
CompteurLinEtiquettesEE = 1

' Tant que la cellule active est différente de vide
Do While ActiveCell <> ""
  ' Si la cellule active est différente de vide => DOUBLON !?
If ActiveCell <> "" Then
' Mettre dans la variable LArticleEnCours le contenu de la cellule 3 colonnes après celle active
LArticleEnCours = ActiveCell.Offset(0, 3)

A+

Merci bcp pour ce décryptage !

Sais-tu à quoi servent les compteurs d'adresse ?

A+

Re,

Avec le bout de code donné, c'est difficile à dire

Mais d'après moi c'est peut-être pour faire une planche d'étiquette à imprimer

Rechercher des sujets similaires à "code decoder"