SOS VBA suite au message du 19/05

[véronique]

Bonjour à tous!
J'ai un peu honte de vous demander cela mais comme je ne maîtrise pas vraiment :
Cf bouton dans barre de titre pour retour sur feuille de présentation
Quand Fahd dit de taper le code dans work book open, c'est bien par this work book que j'y ai accès?
Le reste du code pour ouvrir ma feuille principale, je le mets vraiment dans n'importe quel module? sur toutes les feuilles?
Merci de répondre, ça urge!

 

[mjp]

salut c JP,

un module c'est comme une "compil" de fonction ,de sub, de déclaration de variable ...

le module peut etre nomé : "ma_compil_ N°1"...
ce module peut servir dans plusieur projets différents...


LE PLUS IMPORTANT c'est que tout doit etre PUBLIC.

par exemple dans le module "ma_compil_ N°1"
je déclare "ma_fonction" ----> Public ma_fonction().....
je déclare "ma_Variable"-----> Public ma_variable As String....

pour "trouver" une fonction il y a aussi :
["ma_compil_ N°1"].ma_fonction


@+JP

 

[@+Thierry]

Salut Véronique, Mjp, le Forum,

Je suppose que tu parles de ce fil de discution => Lien supprimé

Fahd te conseillait de créer une commande de plus dans tes menus.

Pour ce faire, oui il faut écrire les codes indiqués dans le Private Module de "ThisWorkBook" :

Private Sub Workbook_Open()
Set menu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, temporary:=True)
menu.Caption = "Retour"
menu.Tag = "Retour"

With menu.Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = "FeuillePrincipale"
.Style = msoButtonCaption
.OnAction = "PrincipaleFeuilleMethod"
End With

Et ceci dans un module standard :

Sub PrincipaleFeuilleMethod()
ActiveWorkbook.Worksheets("MaFeuillePrincipale").Activate
End Sub

Comme dans l'exemple ci-joint.


Bonne Soirée
@+Thierry

PS 1 as tu vus aussi les autres méthodes dans ce fil ?
PS 2 il est parfois plus clair de rester dans le même fil..