Discussion :

[ouistit64]

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

[ucfoutu]

Bonsoir,

la réponse sera différente selon que tes commandbuttons sont placés sur ta feuille de calcul ou sur un userform...
Et comme tu ne nous en parles pas.... !

[ouistit64]

désolé pour l'oubli. Les commandbuttons sont placés sur un userform

[ucfoutu]

C'est alors la collection Controls qu'il te faut utiliser ...

Ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Controls("toto" & i)

se réfère au contrôle toto1 si i = 1, au contrôle toto2, si i = 2, etc...
Tu as tout ce qu'il te faut maintenant

[JackOuYA]

bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 For i = 1 To 1

Pourquoi faire une boucle de 1 à 1 ..? et donc passer une seule fois dans ta boucle avec i = 1 ...

cela équivaud à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
i=1
 ordi = 1 + Int(Rnd * 6)
...

et cette variable ordi qui contient ton nombre aléatoire et dont tu ne te sert pas ensuite ..?

en supposant que ton code et dans le code de la feuille concernée, que tes commands boutons viennent de la boite à outils contrôles cela pourrai donner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shapes("CommandButton" & ordi).OLEFormat.Activate

pour un userform, le code dans l'userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Controls("CommandButton" & ordi).SetFocus