Fonction hasard macro

[kifran85]

Bonjour,

J'ai crée une feuille excel composée 2 colonnes (prénom, date) composée de plusieurs lignes. Et j'aimerai faire une macro où l'ordinateur choisis une date avec la fonction hasard (que je ne sais pas mettre en place) et que moi je note le prénom correspondant. Qu'ensuite j'appuie sur un bouton et qu'il me dise si c'est correct ou non (je sais pas si une fonction if ferait l'affaire).

Comment dois-je faire ? 😕

J'ai mis en pièce jointe une capture d'écran pour vous expliquer ce dont je veux faire. 😉

Cordialement,

 

[kjin]

Re : Fonction hasard macro

Bonjour,

Et j'aimerai faire une macro où l'ordinateur choisis une date avec la fonction hasard

Où, quoi, comment ? une date au hasard de -88524 avant JC à + 45145 après ?

...et que moi je note le prénom correspondant. Qu'ensuite j'appuie sur un bouton et qu'il me dise si c'est correct ou non

La première partie de la question était plus claire !
Correspondant à quoi ?
Incorrect serait traduit par quoi ?
En attendant qq précisions...
A+
kjin

 

[Staple1600]

Re : Fonction hasard macro

Bonjour à tous

Un exemple simple sans macro

Appuie sur la touche F9 pour que le hasard hasarde.


PS: salutations au sieur Kjin

 

[youky(BJ)]

Re : Fonction hasard macro

Bonsoir le fil,
Je propose une solution macro par bouton

Bruno

Private Sub CommandButton1_Click()
Randomize
'de ligne 1 à 20 (20à modifier,voir si Feuil1=codename)
MsgBox Feuil1.Cells(Int((20 * Rnd) + 1), 1) 'le nom
MsgBox Feuil1.Cells(Int((20 * Rnd) + 1), 2) 'la date ou l'inverse
End Sub

 

[kifran85]

Re : Fonction hasard macro

Bonsoir le fil,
Je propose une solution macro par bouton

Bruno

Private Sub CommandButton1_Click()
Randomize
'de ligne 1 à 20 (20à modifier,voir si Feuil1=codename)
MsgBox Feuil1.Cells(Int((20 * Rnd) + 1), 1) 'le nom
MsgBox Feuil1.Cells(Int((20 * Rnd) + 1), 2) 'la date ou l'inverse
End Sub

Bonjour,

Le bouton marche mais le problème c'est que les réponses sont fausses ! 😡

 

[Staple1600]

Re : Fonction hasard macro

Bonjour à tous


kifran85

Tu as essayé mon exemple ?

(Qui peut aussi facilement s'adapter en VBA ...)

 

[kifran85]

Re : Fonction hasard macro

Bonjour à tous


kifran85

Tu as essayé mon exemple ?

(Qui peut aussi facilement s'adapter en VBA ...)

0ui mais il ne fonctionne pas. 😕

 

[Fo_rum]

Re : Fonction hasard macro

Salut

peut-être ainsi ?

 

[Staple1600]

Re : Fonction hasard macro

Re kifran85, bonjour à tous

0ui mais il ne fonctionne pas. 😕

Si, il fonctionne (sinon je n'aurai pas posté le message 🙄 )