Appel d'un formulaire de n’importe quelle feuille ?

[maval]

Bonjour,

Voila j'ai un Formulaire que j'aimerai ouvrir de n’importe quelle feuille sans remettre un code a chaque feuille mon code actuel est:

' Choix d'onglet
Private Sub CommandButton4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UserChoixOnglet.Show
End Sub

Je vous remercie de votre aide

Cordialement

Max

 

[john]

Re : Appel d'un formulaire de n’importe quelle feuille ?

Bonjour,

Et si tu le mettais sur un double click ? si ok pour toi, mets-le code dans le workbook.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
UserChoixOnglet.Show
End Sub
Et là plus de soucis de bouton et de code dans toutes les feuilles 🙂

BàT.

John

 

[maval]

Re : Appel d'un formulaire de n’importe quelle feuille ?

Bonjour John,

Je te remercie j'ai bien mis ton code dans Thisworkbook mais comment l’appeler?

@+

Max

 

[john]

Re : Appel d'un formulaire de n’importe quelle feuille ?

Tu cliques 2 fois sur une cellule tout simplement 🙂

BàT

John

 

[maval]

Re : Appel d'un formulaire de n’importe quelle feuille ?

RE,

OK mais mon souhait et d'avoir un bouton sur chaque feuille et le lier au code suivant?

UserChoixOnglet.Show

@+

Max

 

[john]

Re : Appel d'un formulaire de n’importe quelle feuille ?

A mon avis tu n'as pas le choix de mettre le code .show dans chaque code de tes boutons...

Enfin je pense...

Où alors tu créés un bouton personalisé dans la barre de commandes !!! comme ça tu n'aura qu'un seul bouton et un seul code.

BàT

 

[Pierrot93]

Re : Appel d'un formulaire de n’importe quelle feuille ?

Bonjour à tous,

regarde peut être aussi du coté des modules de classe, de nombreux exemples sur ce forum...

bonne journée
@+

 

[john]

Re : Appel d'un formulaire de n’importe quelle feuille ?

Oui il y a bien un module de classe, mais il devra quand même y mettre du code dans ses boutons !!!
Ici il n'y a qu'une seule ligne à mettre, donc je ne sais pas si ça vaut la peine de faire un module de classe juste pour une ligne !!!

Enfin, je dis ça... je dis rien 🙂

Bonne journée.

John

 

[Pierrot93]

Re : Appel d'un formulaire de n’importe quelle feuille ?

Re,

Oui il y a bien un module de classe, mais il devra quand même y mettre du code dans ses boutons !!!

non le code se trouvera une seule fois dans l'événement click de la classe représentant l'ensemble des boutons de la feuille....

 

[maval]

Re : Appel d'un formulaire de n’importe quelle feuille ?

Re,

Bonjour Pierrot,

Oui tu a peut-être raison avec un module de classe sa limitera le code.
Maintenant reste a connaitre le code?
J'ai chercher par si par la je n'ai rien trouver....
@+
Max

 

[laetitia90]

Re : Appel d'un formulaire de n’importe quelle feuille ?

bonjour tous 🙂🙂🙂

sur une feuille tu mets un bouton formulaire

qui appel une macro
exemple

Sub es()
UserForm1.Show
End Sub

tu recopie ce bouton sur chaque feuille il y a qu'un code

 

[laetitia90]

Re : Appel d'un formulaire de n’importe quelle feuille ?

re tous 🙂
pour le fun une classe avec des active x avec mousemove


attention a chaque que tu rajoute ou supprime des boutons il faut relancer la macro... es
mis dans Workbook_Open & Workbook_SheetActivate

mais bon !!!! vraiment pour montrer la possibilitée c'est tout

 

[maval]

Re : Appel d'un formulaire de n’importe quelle feuille ?

Bonjour Lætitia,

Je te remercie beaucoup et te souhaite une bonne journée

@+

Max

 

[Si...]

Re : Appel d'un formulaire de n’importe quelle feuille ?

salut

un autre exemple pour éviter des mouvements incontrôlés (il m'arrive d'être gauche laetitia 😉).

 

[maval]

Re : Appel d'un formulaire de n’importe quelle feuille ?

Re Si....,

Je te remercie juste une petite modif si tu le veut bien. J'ai sur certaine de mes feuilles une dizaine de CommandeButton .Comment je doit faire faire fonctionner le code sur le CommandeButton20 parce-que j'ai bien changé dans le ThisWorkbook comme ceci:

Option Explicit
Dim Bt() As New BtClass
Private Sub Workbook_Open()
  Dim n As Byte
  For n = 1 To Sheets.Count
    ReDim Preserve Bt(n)
    Set Bt(n).Bt = Sheets(n).CommandButton20
  Next
End Sub

Sa ne fonctionne pas ou alors j'ai rien compris......!

@+
Max