hello !
j'ai un tp à faire et je suis un peu pomé ...
je dois génrer des chiffres aléatoires. mais pas 2 fois les mêmes. je les génère, mais je ne sais pas comment les tester.
j'en suis là:
Sub Génération()
For Colonne = 1 To 2
For Ligne = 1 To 5
Cells(Ligne, Colonne).Value = Int((5 * Rnd) + 1)
Next
Next
End Sub
please help je demande pas le code cash mais juste me dire où l'intégrer ...
hello !
j'ai un tp à faire et je suis un peu pomé ...
je dois génrer des chiffres aléatoires. mais pas 2 fois les mêmes. je les génère, mais je ne sais pas comment les tester.
j'en suis là:
Sub Génération()
For Colonne = 1 To 2
For Ligne = 1 To 5
Cells(Ligne, Colonne).Value = Int((5 * Rnd) + 1)
Next
Next
End Sub
please help je demande pas le code cash mais juste me dire où l'intégrer ...
tu veux teste quoi ? savoir si le chiffre est identique au dernier...? si c'est le cas, une variable fera l'affaire !
Code :
Sub Génération()
dim chiffre
dim valeur_id
chiffre = 0
valeur_id = 0
For Colonne = 1 To 2
For Ligne = 1 To 5
chiffre = Int((5 * Rnd) + 1)
Cells(Ligne, Colonne).Value = chiffre
if chiffre <> valeur_id then
valeur_id = chiffre
else
msgbox("le chiffre est identique au précédent !" )
tu veux teste quoi ? savoir si le chiffre est identique au dernier...? si c'est le cas, une variable fera l'affaire !
Code :
Sub Génération()
dim chiffre
dim valeur_id
chiffre = 0
valeur_id = 0
For Colonne = 1 To 2
For Ligne = 1 To 5
chiffre = Int((5 * Rnd) + 1)
Cells(Ligne, Colonne).Value = chiffre
if chiffre <> valeur_id then
valeur_id = chiffre
else
msgbox("le chiffre est identique au précédent !" )
end if
Next
Next
End Sub
ça marchera pas , ne teste que le dernier chiffre et il veut que les chiffres soient tous différents.
Il peut generer tous ses chiffres d'un coup, les trier par ordre croissant et repeter toute l'opération (repeat) tant que les chiffres ne sont pas tous différents. il faut une variable boolean different qui passe a false quand elle rencontre une egalité dans la boucle
