[Excel/VBA] Recommencer une procédure [Fermé]

Signaler
-
 Major -
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

1 réponse

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 160
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+
2
Merci

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez Comment Ça Marche

CCM 65492 internautes nous ont dit merci ce mois-ci