Do..........Loop Until

Bonjour le Forum

Le CommandButton2 (TIRAGE 2 de la Feuille "Tirage" génère un tirage aléatoire.

La cellule "AS1" de la Feuille "Participants" m'indique si il y a des doublons lors du 2ème tirage.

J'ai essayé d'imbriquer la fonction Do ...Loop Until,mais le résultat n'est pas probant. (Le tirage continue sans s'arrêter).

Private Sub CommandButton2_Click()
Application.Calculation = xlCalculationManual
Do
Call tirage2(1)
Loop Until Sheets ("Participants").Range("AS1").Value = 0
Application.Calculation = xlCalculationAutomatic
Range("E12").Value = Sheets("Participants").Range("As2").Value
If Range("E12").Value = "TIRAGE 2 OK" Then CommandButton2.Visible = False
End Sub

Y a t'il un moyen pour que le tirage s'arrête lorsque la cellule "AS1" de la Feuille "Participants a pour valeur 0.

Merci.

Bonjour

Modifies l'ordre des instructions dans ta macro CommandButton2_Click

Private Sub CommandButton2_Click()
  Do
    Application.Calculation = xlCalculationManual
    Call tirage2(1)
    Application.Calculation = xlCalculationAutomatic
  Loop Until Sheets("Participants").Range("AS1").Value = 0
  Range("E12").Value = Sheets("Participants").Range("As2").Value
  If Range("E12").Value = "TIRAGE 2 OK" Then CommandButton2.Visible = False
End Sub

Une fois de plus merçi Banzai64

A+