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