Aléatoire sur vba

Version imprimable

28/11/2008, 21h04
ouistit64

Aléatoire sur vba
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:

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
28/11/2008, 21h18
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.... !
28/11/2008, 21h59
ouistit64

désolé pour l'oubli. Les commandbuttons sont placés sur un userform
28/11/2008, 22h03
ucfoutu

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

Ainsi :

Code:

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
28/11/2008, 22h10
JackOuYA
bonsoir,

Code:

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:

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:

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

pour un userform, le code dans l'userform :

Code:

Controls("CommandButton" & ordi).SetFocus
28/11/2008, 22h11
ouistit64

un petit détail, j'insère me.controls dans randomize pour qu'il puisse me choisir automatiquement le commandbutton sans que j'intervienne, non ?

Un petit coup de main svp...

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Ordinateur()
 
Randomize
Dim i As Integer
 
If Nombredejoueurs = "1" Then   'pour dire qd il doit jouer
     i = 1
     i = Int((12 * Rnd) + 7)      'choisi un nb au hazard entre 7 et 12                                          pour déclencher le commandbutton sur le userform
 
   End If
End Sub

Qu'est ce qu'il cloche svp je comprends vraiment pas

29/11/2008, 11h56
JackOuYA

Bonjour,

elle sort d'ou ta variable Nombredejoueurs ? tu la déclaré (Dim ..) ou ?

si c'est un entier les " autour du 1 sont inutile pour le test ..
29/11/2008, 11h59
ouistit64

oui c'est une variable qui est déjà déclaré dans un autre module "paramètre du joueur"
29/11/2008, 12h01
JackOuYA

Citation:

Envoyé par ouistit64

oui c'est une variable qui est déjà déclaré dans un autre module "paramètre du joueur"

comment ?

Code:

i = Int((12 * Rnd) + 7) 'choisi un nb au hazard entre 7 et 12 pour déclencher le commandbutton sur le userform

:nono: la tu choisi un nombre entre 7 et 18, voir l'aide en ligne :f1: de rnd il y as un exemple trés clair.
29/11/2008, 12h06
ouistit64

merci pour l'info je continue en espérant que je vais réussir à trouver, en plus je suis sur que c'est simple mais quand on est débutant rien est simple :D
29/11/2008, 12h13
ucfoutu

Bonjour,

J'ai ici l'impression de ce que toute cette confusion est générée par une carence d'explications précises ...(c'est souvent le cas...)

Dis-nous donc :
Ton mécanisme ne serait-il pas tout simplement l'attribution d'un certain nombre de CommandButtons par joueur (par exemple de 1 à 4 pour le joueur 1, de 5 à 8 pour le joueur 2, etc...
Puis, quand arrive le tour d'un joueur, de tirer aléatoirement l'un des commandbuttons lui correspondant ?

Si oui, c'est très simple...
Dis-nous donc ce qu'il en est avec précision ...;)
29/11/2008, 12h20
ouistit64

Excusez moi de m'avoir fait mal comprendre.

UCFOUTU, c'est presque ça. En fait effectivement le joueur (toi par ex) a les commandbutton1 à 6. Une fois que t'sa joué, c'est à l'ordinateur de jouer automatiquement et donc de choisir un commandbutton aléatoirement de 7 à 12 et de refaire passer la main au joueur1.

Voilà j'espère que j'ai été plus clair :oops:
29/11/2008, 12h36
JackOuYA

et cela veut dire quoi "choisir un bouton" ..? l'ordinateur , il doit aussi cliquer dessus..

je t'ai mis plus haut le code de sélection d'un bouton ..

si tu as utilisé :f1: sur rnd:

Citation:

Envoyé par Aide

Pour générer des entiers aléatoires dans une plage donnée, utilisez la formule ci-dessous :

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

donc pour trouver un nombre aléatoire de 7 (lowerbound) à 12 (upperbound ) :
upperbound - lowerbound + 1 = 12-7+1 = 6
lowerbound = 7

Code:

i=Int((6 * Rnd) + 7)
29/11/2008, 12h40
ouistit64

oui l'ordinateur doit cliquer dessus automatiquement. J'essais depuis hier soir mais c'est moi qui doit pas mettre ce qu'il faut, je reste confiant je vais y arriver. :lol:

en fait c'est pas cliquer que tu veux c'est lancer la procédure associé à ton bouton ..?

c'est quoi le code derriére c'est boutons.?

il serai plus propre de créer une procédure utilisé par tous tes boutons avec en paramétre le numéro de bouton .

le principe avec 3 boutons ;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CommandButton1_Click()
 ActionBouton 1
End Sub
Private Sub CommandButton2_Click()
 ActionBouton 2
End Sub
Private Sub CommandButton3_Click()
 ActionBouton 3
End Sub
 
Sub ActionBouton(iNum As Integer)
  'Si par exemple les actions sur chaques boutons sont différentes:
  Select Case iNum
    Case 1
       MsgBox "Action sur bouton 1"
    Case 2
       MsgBox "Le bouton 2 à été actionné"
    Case 3
       MsgBox "un coup sur le bouton 3"
 End Select
End Sub
Sub Ordi()
  Randomize
  ActionBouton (Rnd * ((3 - 1) + 1)) + 1
End Sub

voici un exemple du code du commandbutton1 (cbt) pour essayer d'être plus clair . Ce sont les mêmes jusqu'au 12 à part tour.caption qui est de 1 à partir du cbt7 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub TextBox1_Change()
    b = ActiveWorkbook.Path
    a = b & "\" & TextBox12.Value & ".jpg "
    CommandButton12.Picture = LoadPicture(a)
End Sub
 
Private Sub CommandButton1_Click()
tour.Caption = "2"  'me permet de bloquer les 6 derniers cbt
tourdujoueur   'pour dire que si c'est joueur2 ça bloque les 6 1er cbt
tourdujoueur2   'pour dire que si c'est joueur1 ça bloque les 6 dernier cbt
'Ordinateur  le but serait qu'une fois que le joueur a cliqué l'ordinateur joue un des 6 derniers cbt aléatoirement
 
   Dim i As Integer
    For i = 1 To 30
      traitons i
    Next
End Sub
 
Private Sub traitons(num As Integer)
 
  If TextBox1.Value = num Then
    TextBox1.Value = 0
    For i = 2 To num + 1
        n = i
            If i > 12 Then n = i - 12
                Me.Controls("TextBox" & n).Value = Me.Controls("TextBox" & n).Value + 1
        Next
    End If
End Sub

Je sais pas si c'est trés clair. Là je vais essayer d'exploiter ce que vous m'avez donné dans le module1 où j'ai mis "ordinateur".

Ecoute ...

1) je ne développerais personnellement jamais ainsi pour plusieurs raisons ...(j'utiliserais une structure)
2) je vais essayer de rester à ton niveau ...
Apparemment, tu as ta variable joueur en string !!!!... bon ... on va faire avec !

regarde ce que fait ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub Command1_Click() Dim bornesup As Integer, borneinf As Integer, joueur As String, lejoueur As Integer, nbparjoueur As Integer nbparjoueur = 6 joueur = "1" lejoueur = Val(joueur) allons borneinf, bornesup, lejoueur, nbparjoueur MsgBox borneinf & " " & bornesup joueur = "2" lejoueur = Val(joueur) allons borneinf, bornesup, lejoueur, nbparjoueur MsgBox borneinf & " " & bornesup joueur = "3" lejoueur = Val(joueur) allons borneinf, bornesup, lejoueur, nbparjoueur MsgBox borneinf & " " & bornesup End Sub Private Sub allons(borneinf As Integer, bornesup As Integer, lejoueur, nbparjoueur) borneinf = lejoueur + (lejoueur * nbparjoueur - 1) - nbparjoueur bornesup = borneinf + nbparjoueur End Sub
Tu vois bien ?
Tu connais ainsi, de manière rigoureusement arithmétique, les bornes inférieures et supérieures de ton tirage aléatoire... et tu as vu plus haut comment utiliser ces bornes dans un tel tirage.

Aller plus loin serait faire carrément à ta place un exercice élémentaire (et ne compte alors pas sur moi... ton jeu, il va quand même falloir que tu le mérites un tout petit peu... au prix -avant toute connaissance de VB, d'un minimum d'utilisation de ta propre pensée...).

29/11/2008, 13h31
ouistit64

ok merci. J'ai vu ce que ça faisait je pense que je devrais y trouver mon bonheur donc y arriver. Je sais mon niveau est faible mais je fais de mon mieux pour m'améliorer.