Répéter une macro tant qu'une cellule n'est pas égale à 0

Bonjour,

Je suis en train de créer un fichier qui me permettra de réaliser un tirage au sort aléatoire pour un concours de boule.

J'ai enregistré une macro qui me permet de le réaliser. Par contre j'ai besoin que cette macro se réalise autant de fois que nécessaire tant que la cellule C70 de ma feuille ("Tableau") n'est pas égale à 0. Et là je bloque...je ne suis pas du tout un pro du VBA...en cherchant sur Internet j'ai lu qu'on pouvait utiliser une boucle Do Loop mais je n'arrive pas à la mettre en place.

Pouvez-vous m'aider svp ?

Merci d'avance.

Peter

Bonjour PP6,

Je n'ai pas vu de code lié au bouton du tirage.

Bonjour

Elle est ou la macro que tu as enregistrée?

Bonjour fcyspm30,

Merci pour l'info, je ne sais pas pourquoi je ne retrouvais pas mon code.

Le voici :

Sub Tirage_32ème()
'
' Tirage_32ème Macro
'

'
Sheets("Inscriptions (masqué)").Select
ActiveCell.FormulaR1C1 = "=RAND()"
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A65")
Range("A2:A65").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
Application.CutCopyMode = False
Range("D39").Select
Sheets("Tableau").Select
Range("D4:F4").Select
End Sub

Voici le fichier avec la Macro

On peut essayer ça?

Bonjour

Pas tout compris mais en cliquant plusieurs fois sur le bouton on arrive a 0

Bonjour,

Justement j'aimerais éviter de cliquer plusieurs fois.

En fait le but est que lors du tirage des 32èmes de finale, 2 personnes du même club ne se rencontrent pas (interdit par le règlement).

La cellule C70 de la feuille ("Tableau") compte mon nombre de confrontations du même club. Si elle est égale à 0 c'est qu'il n'y a pas de rencontre entre 2 personnes du même club.

Dans l'exemple de mon fichier, il n'y a pas trop de personnes du même club, mais potentiellement il pourrait y en avoir plus, donc si ma macro peut me donner directement un tirage sans confrontation du même club c'est le top.

J'ai effectué 10 essais et j'ai eu 10 fois le résultat 0.
J'ai simplement affecter la valeur 1 à la cellule C70 pour pouvoir lancer la macro et ensuite c'est une simple boucle While Wend qui tourne tant que C70 >0. Après vérification je n'ai pas envoyé le bon fichier

Super...ça fonctionne parfaitement.

Merci beaucoup pour votre aide :-)