passage de paramètres entre "CommandButton" et procédure

passage de paramètres entre "CommandButton" et procédure - VB/VBA/VBS - Programmation

Marsh Posté le 02-07-2005 à 16:34:52    


Bonjours à tous , je vais essayer d'ètre succint  
 
Vue d'ensemble du sujet :
 
je crée , par macro , 2 "Shapes.CommandButton" nommées "PremierBouton" et "SecondBouton" et dont la procédure évènementielle liée à l'évènement "click" , appelle la procédure "Rouge" ...
Je voudrais que cette procédure "Rouge" ,pré-écrite , adapte son action à certain paramètres du bouton qui l'a déclenchée ...  
 
 
Or, je butte sur 2 problèmes :  
- Comment écrire le lien entre l'évènement "click" et la procédure "Rouge" ?
- Comment faire pour que la macro "Rouge" distingue lequel des 2 boutons est à l'origine de son déclenchement , de façon a pourvoir adapter son action a certains paramètres du bouton qui l'a déclenchée ?
 
Si ça peut aider a la compréhension du problème , je vous écris le code des 2 macros que je tente de mettre en place ...

Code :
  1. Sub Création_des_boutons()
  2.  
  3.    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
  4.         , DisplayAsIcon:=False, Left:=444, Top:=99, Width:=44, Height _
  5.         :=99).Select
  6.     Selection.Name = "PremierBouton"
  7.  
  8.     ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
  9.         , DisplayAsIcon:=False, Left:=555, Top:=99, Width:=44, Height _
  10.         :=99).Select
  11.     Selection.Name = "SecondBouton"
  13.  
  14.    PremierBouton_Click Rouge
  15.    SecondBouton_Click Rouge
  16.  
  17. End Sub
  18. Sub Rouge()
  20. ActiveSheet.Range("BB1" ).Interior.ColorIndex = 3
  22. End Sub


les 2 dernière lignes de la première macro ne fonctionnent pas en l'état et ne créent pas les 2 procédures évènementielles souhaitées

Reply

Marsh Posté le 02-07-2005 à 16:34:52   

Reply

Marsh Posté le 03-07-2005 à 21:24:10    

au debut d'un module tu declare une variable
==> public Choix as string
 
puis lors du click sur l'un de tes boutons
sub bouton1_click
Choix = "1"
call rouge
end sub
 
sub bouton2_click
Choiw = "2"
call rouge
znd sub
 
 
sub rouge
if Choix = "1" then etc....
 
 
 

Reply

Marsh Posté le 03-07-2005 à 23:08:21    

Merci Scuny
ta solution à l'air simple dans le principe et donc éminemment sympathique !  
Je vais devoir laisser un peu tomber ce problème pour quelque temps ; mais je te tiens au courant pour la suite
et encore : merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed