Discussion :

[monkeyDlufy]

Bonjour,

j'ai fais des recherche mais j'ai surment mal écris mon texte de recherche mais je veux en gros :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Bouton1_click() Bouton2_click() Bouton3_click() Bouton4_click()
 
 
tatatatatatatata
 
 
 
End Sub

Comme ça évite de faire des lignes à rallonge pour chaque boutons

merci d'avance

[parmi]

Bonjour,

Peux-tu expliquer un peu plus?
J'imagine que ce n'est pas plusieurs boutons pour rouler exactement la même macro... (?)

[Pierre Fauconnier]

Salut.

Si tu n'as pas trops de boutons, tu peux simplement rediriger chaque proc évènementielle vers la même macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Bouton1_Click()
  MaMacro
End Sub
 
Private Sub Bouton2_Click()
  MaMacro
End Sub
 
Sub MaMacro()
...
...
End Sub

Tu peux aussi passer le nom du bouton à MaMacro pour savoir sur quel bouton tu as cliqué et orienter le code en fonction.

Si tu en as plus, on t'orientera vers une procédure plus générique

[Menhir]

Pour faire plus compact et plus "visuel" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Bouton1_Click(): MaMacro(1): End Sub
Private Sub Bouton2_Click(): MaMacro(2): End Sub
Private Sub Bouton3_Click(): MaMacro(3): End Sub
Private Sub Bouton4_Click(): MaMacro(4): End Sub
 
Sub MaMacro(NumBouton As Integer)
    [instructions ...]
End Sub

[patricktoulon]

re
bonjour non sous cette forme d'ecriture ca n'est pas possible
soit tu classe des boutons (module classe)

soit tu apelle une sub generale a partir des click de chaque bouton avec argument pourquoi pas
exemple simple avec argument

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton1_Click(): masub_generale CommandButton1: End Sub
Private Sub CommandButton2_Click(): masub_generale CommandButton2: End Sub
Private Sub CommandButton3_Click(): masub_generale CommandButton3: End Sub
'
Private Sub masub_generale(ByRef B As Object)
MsgBox B.Name
End Sub

pour les classes tu a moulte exemple dans le forum
désolé messieux on s'est croisés

[monkeyDlufy]

En fait j'ai genre 10 page dans un multipage et dans chaque page un bouton. Et c'est 10 bouton permettent la même action donc je voulais pas surcharger visuellement mon programme qui l'est déjà beaucoup surtout que c'est pas un mais 5 types de bouton concerné soit 50 ....

Donc je vais passer par la technique MaMacro (que je connaissais) mais bon j'aurais aimé plus compact encore

[Pierre Fauconnier]

Inspire-toi de cette discussion qui pourrait peut-être t'aider

[parmi]

En fait j'ai genre 10 page dans un multipage et dans chaque page un bouton. Et c'est 10 bouton permettent la même action donc je voulais pas surcharger visuellement mon programme qui l'est déjà beaucoup surtout que c'est pas un mais 5 types de bouton concerné soit 50 ....

Donc je vais passer par la technique MaMacro (que je connaissais) mais bon j'aurais aimé plus compact encore

S'ils ont la même action, ne peux-tu pas mettre ces boutons hors du MultiPage une seule fois ?