Discussion :

[erlerwade]

Bonjour ,

J'essaye de comprendre une macro developpée par une autre personne.
Seulement il a fait pas mal d'enregistrement de macro et c'est difficile de comprendre c'est le cas de cette partie de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Cells.Find(What:="Quote", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False) Is Nothing Then
        Erreur = MsgBox("Manque QP", vbOKOnly)
        GoTo 100

Merci de votre aide

[CodeFacile]

Ce n'est pas si compliqué.. Il y a juste beaucoup de paramétre ..pas forcément indispensable.

Fait le test en enregistrant une nouvelle macro et cherche par exemple 'quote' en ayant au préalable sélectionné toute les cellules pour indiquer que l'on veut cherché dans une zone donné.

C'est en gros ce que fait la macro indiqué.

[Daniel.C]

Bonjour,

C'est une recherche du mot "quote" sans s'occuper des majuscules, dans une cellule ou une partie d'une cellule. Si le mot n'est pas trouvé, il affiche un message d'erreur et récupère la valeur correspondant au bouton appuyé ("OK" uniquement). La dernière instruction dépend de ce qu'il y a après et que tu n'as pas publié. S'il n'y a rien, la macro se débranche à l'étiquette "100".

[erlerwade]

Bonjour,

s'il n'y a rien, la macro se débranche à l'étiquette "100".

Cela voudrait-il dire qu'à la place de quote on prend 100?

[Daniel.C]

Non, ça veur dire qu'au lieu de continuer à ligne suivante, on va à l'étiquette "100". Ca devrait être écrit comme ceci, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    MsgBox "toto"
    GoTo 100
    MsgBox "titi"
100:

qui signifie qu'on affiche "toto" et qu'on passe à l'étiquette "100", donc qu'on affiche pas "titi".