macro mot aléatoire

[Arteub]

Bonjour,

j'essaye actuellement de créer une macro liée a un bouton qui affiche un mot, dans une cellule, pris au hasard dans une liste. Voici le code de la macro:

Private Sub CommandButton1_Click()

Range("C5").Clear
Worksheets("Feuil1").Value = _
"=INDEX('vocabulary list'!R[-1]C:R[4]C,RANDBETWEEN(1,MAX('vocabulary list'!C[-1])))"

End Sub

la macro fonctionne mais lorsque je veux écrire quelque chose dans une autre cellule de la feuille le mot qui a été affiché par la macro change alors que je n'ai pas cliquer sur le bouton. comment est ce possible?

Merci d'avance

 

[JCGL]

Re : macro mot aléatoire

Bonjour à tous,
Bienvenue sur XLD,

Worksheets("Feuil1").Value

ne peut pas fonctionner.

Merci de déposer ton fichier pour une tentative d'aide appropriée...

A + à tous

 

[Arteub]

Re : macro mot aléatoire

voici mon fichier

 

[Jacou]

Re : macro mot aléatoire

bonsoir Arteub, bonsoir le forum,

est-ce que ce fichier pourrait te convenir?
J'ai modifié la macro, mais aussi la formule en D5

 

[ROGER2327]

Re : macro mot aléatoire

Bonsoir à tous

Un autre essai...​

ROGER2327
#5486

Mercredi 18 Gueules 139 (Nativité de Deibler, prestidigitateur - fête Suprême Quarte)
23 Pluviôse An CCXX, 9,1552h - chiendent
2012-W06-7T21:58:21Z

 

[Arteub]

Re : macro mot aléatoire

merci beaucoup pour ces réponses. Le fichier modifié correspond exactement à mes attentes. merci encore

 

[job75]

Re : macro mot aléatoire

Bonjour le fil, le forum,

Quand on apprend une langue il faut thème et version :