Se servir de "Private Bouton_9" en Macro

[guy72]

Bonsoir,
Je m'explique :

J'ai le code suivant :
Je souhaite répéter ce code 5 fois dans 5 macros différentes ?

Private Sub Bouton_9_Click()....etc....
UserForm1.Show
UserForm1.Bouton_Validez.Visible = False
UserForm1.Bouton_Passe.Visible = False
UserForm1.Bouton_9.Visible = False
UserForm1.Bouton_8.Visible = False
UserForm1.Bouton_7.Visible = False
UserForm1.Bouton_6.Visible = False
UserForm1.Bouton_5.Visible = False
End Sub

J'ai trouvé une solution en faisant une macro "Sub Afficher ()" avec les lignes de code ci-dessus et mettre "Call Afficher" dans mes macros.

Par curiosité, peut-on éviter ça et partir directement du code ci-dessus ?
Cordialement
Guy

 

[Fred0o]

Re : Se servir de "Private Bouton_9" en Macro

Bonsoir Guy,

Et si tu enlevais tout simplement le Private devant Sub Bouton_9_Click() ?

A+

 

[kjin]

Re : Se servir de "Private Bouton_9" en Macro

Bonsoir,

J'ai trouvé une solution en faisant une macro "Sub Afficher ()" avec les lignes de code ci-dessus et mettre "Call Afficher" dans mes macros.
Par curiosité, peut-on éviter ça et partir directement du code ci-dessus ?

Pour quoi faire ?
En gros tu cherches le moyen de faire plus compliqué ?
Ou alors il faut que tu expliques "peut-on éviter ça"
A+
kjin

 

[guy72]

Re : Se servir de "Private Bouton_9" en Macro

Bonsoir Guy,

Et si tu enlevais tout simplement le Private devant Sub Bouton_9_Click() ?

A+

Bonjour,
J'ai pourtant essayé, mais ça ne fonctionnait pas, j'ai du faire n'importe quoi, ou peut être falait-il que je quitte, en fin bref, maintenant ça fonctionne.

Merci de ton aide
Cordialement
Guy