BOUTON ET MACRO

Bonjour Cédric
Macro à associer à un bouton

Private Sub CommandButton1_Click()
Dim N23valeur, M23Valeur
Randomize
N23valeur = Int((6 * Rnd) + 1)
M23Valeur = Int((36 * Rnd) + 1)
Range("N23").Value = N23valeur
Range("M23").Value = M23Valeur
End Sub


A+

re


Version épurée


Private Sub CommandButton1_Click()

Randomize

Range("N23").Value = Int((6 * Rnd) + 1)
Range("M23").Value = Int((36 * Rnd) + 1)
End Sub

Re

(Dis donc, quelle rapidité!!!)

Je dois d'abord te remercier de m'avoir répondu.

Cependant un autre probleme pointe son nez:

J'ai fait un copier de ton texte, puis outil/macro/macro/nouvelle
puis effacer le texte et coller.

Et là, en cliquant sur executer il me met
( fleche rouge sur Range("N23").Value = N23valeur)

Runtime error basic
la sous-procedure ou la procedure fonctionnelle n'est pas définie

Aurais tu la gentillesse de m'expliquer ce qui se passe et comment y remedier?

D'avance MERCI!!

re


tu dois creer un bouton avec la barre d'outils formulaire

et tu colles mon script sur le code du bouton


A+

re

un fichier exemple

Bonjour Didier

Je ne comprends pas le fichier exemple ne marche pas, cependant j'ai passe la journée à trifouiller les macros pour essayer de comprends et rien...

Creer le bouton ne pose aucun probleme.
Puis clic droit sur celui ci, contrôle et la onglet "evenement",
Ligne "Lors du declanchement", je selectionne Module 1 ou je trouve ma premiere macro (Liste_on Click pour des menus deroulants) et Macro 1 ou j'ai copier/collé ton texte.
Je selectionne Macro 1 puis assigner et là, de nouveau rien ne se passe.

Autre petite question qui piques ma curiosité; pourquoi dans ton fichier exemple y a t il deux boutons, est ce obligatoire?

Merci de tes reponses passées et, je l'espere, à venir.

Cedric