Utilisation d'une étiquette

[klorane]

Bonjour à tous,

j'aurai besoin d'utiliser une étiquette dans ma macro mais je sais plus comment on fait.

exemple :

sub exemple()

si "A4" = 1 aller à Etiquette1
code XXXX
code XXXX
code XXXX

Etiquette1

Code YYY
code YYY
etc...

End sub

Donc j'aimerai par exemple que si la cellule A4=1 que la macro passe directement à Etiquette1 en sautant le code xxx mais je sais plus comment on fait.

Merci

Laurent

 

[Staple1600]

Re : Utilisation d'une étiquette

Bonjour


If ...Then Goto Etiquette1

Etiquette1:
Msgbox "test"

C'est le souvenir que j'en avais dans l'aide VBA

Mes excuses (je vais faire un tour l'aide VBA)

J'en reviens (j'étais pas loin du compte non?)
GoTo, instruction, exemple
Cet exemple utilise l'instruction GoTo pour se brancher aux étiquettes de ligne indiquées au sein d'une procédure.

Sub GotoStatementDemo()
Dim Number, MyString
    Number = 1     ' Initialise la variable.
    ' Évalue Number et se branche à l'étiquette
    ' appropriée.
    If Number = 1 Then GoTo Line1 Else GoTo Line2
    
Line1:
    MyString = "Number est égal à 1"
    GoTo LastLine    ' Passe à la dernière ligne.
Line2:
    ' L'instruction suivante ne peut jamais être
    ' exécutée.
    MyString = "Number est égal à 2"
LastLine: 
    Debug.Print MyString    ' Affiche "Number est
                                ' égal à 1" dans la fenêtre
                                ' Exécution.
End Sub

Bonjour Pascal76

 

[PascalXLD]

Re : Utilisation d'une étiquette

Bonjour


If ...Then Goto Etiquette1

:Etiquette1
Msgbos "test"

😱 😕

 

[michel_m]

Re : Utilisation d'une étiquette

Bonjour Laurent, Staple

Les goto sont à proscrire formellement ( programmation dite en spaghetti) dans une procédure sauf et à la rigueur pour la gestion des erreurs

si A1=4 then
toncode yyyy
else
ton codexxx
end if

si tu as plusieurs valeurs de A1 (4,12,78,5....)
emploies la syntaxe
select case (regardes l'aide)

 

[klorane]

Re : Utilisation d'une étiquette

Merci à vous tous!

C'etait juste alors une question de ":" derrière le nom de mon etiquette et ça ne marchait pas!

il faut que je le note! ;-) merci pour m'avoir rafraichit la mémoire

Bonne journée à vous tous

Laurent