[Excel/VBA] Recommencer une procédure

Question

Bonsoir, 


Voilà, grâce à l'un de vous j'ai pu inclure dans mon projet vba une procédure pour tirer un chiffre aléatoirement. Les lignes en question sont dans un UserForm

Seulement, je voudrais que dans certaines conditions, les "dés" soient relancés à nouveau (retirer au sort). J'utilise la fonction IF ELSE pour cela.

Mais comment puis-je dire en langage vb "Si ceci Alors ON RECOMMENCE LA PROCEDURE SUB EN COURS DEPUIS LE DEBUT" ?

Merci
Gilou

lermite222 · Accepted Answer

Bonjour,
Tu ne donne aucune info sur ton code, alors voila un exemple qui n'affichera jamais le 5
Private Sub UserForm_Click()
Reco:
    If TireDes() = 5 Then GoTo Reco
End Sub

Function TireDes() As Integer
Dim N As Integer
    Randomize Timer
    TireDes = Int(Rnd * 5) + 1
End Function
A+

[Excel/VBA] Recommencer une procédure

1 réponse

Newsletters