Code à décoder ;)

Y compris Power BI, Power Query et toute autre question en lien avec Excel
F
Fly
Jeune membre
Jeune membre
Messages : 16
Inscrit le : 24 octobre 2014
Version d'Excel : 2010

Message par Fly » 21 février 2017, 15:51

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
Avatar du membre
BrunoM45
Membre impliqué
Membre impliqué
Messages : 2'892
Appréciations reçues : 87
Inscrit le : 29 octobre 2011
Version d'Excel : 2016 FR, O365 FR
Contact :

Message par BrunoM45 » 21 février 2017, 19:24

Salut Fly,

Voici le code décortiqué, merci de le mettre entre les tags [ code] et [ /code] sans espace après le crochet :wink:
' 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+
[F1] est une touche qui appelle l'aide : Essayez, c'est assez performant et on trouve plein de choses

Il n'y a ni bon ni mauvais usage de la liberté d'expression, il n'en existe qu'un usage insuffisant.
F
Fly
Jeune membre
Jeune membre
Messages : 16
Inscrit le : 24 octobre 2014
Version d'Excel : 2010

Message par Fly » 22 février 2017, 10:51

Merci bcp pour ce décryptage !

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

A+
Avatar du membre
BrunoM45
Membre impliqué
Membre impliqué
Messages : 2'892
Appréciations reçues : 87
Inscrit le : 29 octobre 2011
Version d'Excel : 2016 FR, O365 FR
Contact :

Message par BrunoM45 » 22 février 2017, 11:13

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
[F1] est une touche qui appelle l'aide : Essayez, c'est assez performant et on trouve plein de choses

Il n'y a ni bon ni mauvais usage de la liberté d'expression, il n'en existe qu'un usage insuffisant.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message