Bonsoir,
J'ai encore une fois de plus besoin de votre aide. Ca fonctionne pas et je cherche le problème depuis cet aprem. Je connais pas bien la fonction du randomize. Voici mon code sachant que le but est de choisir aléatoirement un commandbutton parmis les commandbutton de 7à12. En effet, l'ordinateur doit choisir lui même le cbt.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Ordinateur()
 
Randomize
Dim ordi As Variant
joueur2 = "ordinateur"
 
    For i = 1 To 1
        ordi = 1 + Int(Rnd * 6)
        commandbuton.Select(6, i).Value
    Next i
End Sub
Merci de votre aide