Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel test de présence d'un menu

test de présence d'un menu

14 réponses
Avatar
tilivier
Bonjour,
J'ai une macro qui me créer un menu au démarrage du classeur et le problème
est que à chaque fois que j'ouvre mon classeur il me créeer un nouveau menu.
J'ai essayé de mettre un test pour vérifier si le menu existait déjà , et
s'il existe ne pas le créer, mais je n'arrive pas.

Qqn pourrait-il m'aider?

Merci d'avance et bonne journée
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
jps
passons, passons, si tu veux bien, thierry
jps

"ThierryP" a écrit dans le
message de news:%


Heureusement qu'y a des pros pour vérifier le travail des newbees !!!!


Avatar
tilivier
Merci pour ta réponse mais quand je veux l'utiliser, j'ai une erreur à la
ligne "if [etamenu]=:="Menu actif" then exit sub".
Est-ce qu'il y a une erreur?

Bonne journée.


Re,
Fais l'essai de la version suivante :

Sub Ajout_Menu_Perso_2()
on error resume next
if [etamenu]=:="Menu actif" then exit sub
With CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)
..Caption = "A&vanchets"

With .Controls.Add(msoControlButton)
..Caption = "&Menu"
..FaceId = 837
..BeginGroup = False
..OnAction = "Macro2"
End With

With .Controls.Add(msoControlButton)
..Caption = "Enregi&strer"
..FaceId = 3
..BeginGroup = False
..OnAction = "enregistrer"
End With

With .Controls.Add(msoControlButton)
..Caption = "&Données Personnelles"
..FaceId = 59
..BeginGroup = False
..OnAction = "affiche_pers"
End With

With .Controls.Add(msoControlButton)
..Caption = "Données &Immeuble"
..FaceId = 176
..BeginGroup = False
..OnAction = "affiche_immeuble"
End With

With .Controls.Add(msoControlButton)
..Caption = "&Récapitulatif"
..FaceId = 97
..BeginGroup = False
..OnAction = "affiche_récapitulatif"
End With

With .Controls.Add(msoControlButton)
..Caption = "Statisti&ques"
..FaceId = 17
..BeginGroup = False
..OnAction = "affiche_stat"
End With

With .Controls.Add(msoControlButton)
..Caption = "Im&pression"
..FaceId = 4
..BeginGroup = False
..OnAction = "affiche_impress"
End With

With .Controls.Add(msoControlButton)
..Caption = "Quitter"
..FaceId = 840
..BeginGroup = False
..OnAction = "quitte"
End With

With .Controls.Add(msoControlButton)
..Caption = "Plein &écran"
..FaceId = 69
..BeginGroup = False
..OnAction = "plein_ecran"
End With

End With

ThisWorkbook.Names.Add Name:="etamenu", RefersTo:="Menu actif"

End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"tilivier" a écrit dans le message de news:

Bonjour Philippe
et voilà si ça peut t'aidé.
Merci


Sub Ajout_Menu_Perso()

With CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "A&vanchets"

With .Controls.Add(msoControlButton)
.Caption = "&Menu"
.FaceId = 837
.BeginGroup = False
.OnAction = "Macro2"
End With

With .Controls.Add(msoControlButton)
.Caption = "Enregi&strer"
.FaceId = 3
.BeginGroup = False
.OnAction = "enregistrer"
End With

With .Controls.Add(msoControlButton)
.Caption = "&Données Personnelles"
.FaceId = 59
.BeginGroup = False
.OnAction = "affiche_pers"
End With

With .Controls.Add(msoControlButton)
.Caption = "Données &Immeuble"
.FaceId = 176
.BeginGroup = False
.OnAction = "affiche_immeuble"
End With

With .Controls.Add(msoControlButton)
.Caption = "&Récapitulatif"
.FaceId = 97
.BeginGroup = False
.OnAction = "affiche_récapitulatif"
End With

With .Controls.Add(msoControlButton)
.Caption = "Statisti&ques"
.FaceId = 17
.BeginGroup = False
.OnAction = "affiche_stat"
End With

With .Controls.Add(msoControlButton)
.Caption = "Im&pression"
.FaceId = 4
.BeginGroup = False
.OnAction = "affiche_impress"
End With

With .Controls.Add(msoControlButton)
.Caption = "Quitter"
.FaceId = 840
.BeginGroup = False
.OnAction = "quitte"
End With

With .Controls.Add(msoControlButton)
.Caption = "Plein &écran"
.FaceId = 69
.BeginGroup = False
.OnAction = "plein_ecran"
End With

End With

End Sub



Bonjour,
Peux tu publier ici le code concerné, il sera ainsi plus aisé d'aider (et non pluzezedede).
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"tilivier" a écrit dans le message de news:

Bonjour,
J'ai une macro qui me créer un menu au démarrage du classeur et le problème
est que à chaque fois que j'ouvre mon classeur il me créeer un nouveau menu.
J'ai essayé de mettre un test pour vérifier si le menu existait déjà , et
s'il existe ne pas le créer, mais je n'arrive pas.

Qqn pourrait-il m'aider?

Merci d'avance et bonne journée












Avatar
Philippe.R
Oups,
Coller / copier hatif ; remplace la ligne fautive par celle ci :

if [etamenu]="Menu actif" then exit sub

le principe est de ne créer le menu que s'il n'existe pas en utilisant pour contrôle un nom du classeur
(etamenu) qui est créé à la fin de la proc en lui donnant la valeur Menu actif.
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"tilivier" a écrit dans le message de news:

Merci pour ta réponse mais quand je veux l'utiliser, j'ai une erreur à la
ligne "if [etamenu]=:="Menu actif" then exit sub".
Est-ce qu'il y a une erreur?

Bonne journée.


Re,
Fais l'essai de la version suivante :

Sub Ajout_Menu_Perso_2()
on error resume next
if [etamenu]="Menu actif" then exit sub
With CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)
..Caption = "A&vanchets"

With .Controls.Add(msoControlButton)
..Caption = "&Menu"
..FaceId = 837
..BeginGroup = False
..OnAction = "Macro2"
End With

With .Controls.Add(msoControlButton)
..Caption = "Enregi&strer"
..FaceId = 3
..BeginGroup = False
..OnAction = "enregistrer"
End With

With .Controls.Add(msoControlButton)
..Caption = "&Données Personnelles"
..FaceId = 59
..BeginGroup = False
..OnAction = "affiche_pers"
End With

With .Controls.Add(msoControlButton)
..Caption = "Données &Immeuble"
..FaceId = 176
..BeginGroup = False
..OnAction = "affiche_immeuble"
End With

With .Controls.Add(msoControlButton)
..Caption = "&Récapitulatif"
..FaceId = 97
..BeginGroup = False
..OnAction = "affiche_récapitulatif"
End With

With .Controls.Add(msoControlButton)
..Caption = "Statisti&ques"
..FaceId = 17
..BeginGroup = False
..OnAction = "affiche_stat"
End With

With .Controls.Add(msoControlButton)
..Caption = "Im&pression"
..FaceId = 4
..BeginGroup = False
..OnAction = "affiche_impress"
End With

With .Controls.Add(msoControlButton)
..Caption = "Quitter"
..FaceId = 840
..BeginGroup = False
..OnAction = "quitte"
End With

With .Controls.Add(msoControlButton)
..Caption = "Plein &écran"
..FaceId = 69
..BeginGroup = False
..OnAction = "plein_ecran"
End With

End With

ThisWorkbook.Names.Add Name:="etamenu", RefersTo:="Menu actif"

End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"tilivier" a écrit dans le message de news:

Bonjour Philippe
et voilà si ça peut t'aidé.
Merci


Sub Ajout_Menu_Perso()

With CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "A&vanchets"

With .Controls.Add(msoControlButton)
.Caption = "&Menu"
.FaceId = 837
.BeginGroup = False
.OnAction = "Macro2"
End With

With .Controls.Add(msoControlButton)
.Caption = "Enregi&strer"
.FaceId = 3
.BeginGroup = False
.OnAction = "enregistrer"
End With

With .Controls.Add(msoControlButton)
.Caption = "&Données Personnelles"
.FaceId = 59
.BeginGroup = False
.OnAction = "affiche_pers"
End With

With .Controls.Add(msoControlButton)
.Caption = "Données &Immeuble"
.FaceId = 176
.BeginGroup = False
.OnAction = "affiche_immeuble"
End With

With .Controls.Add(msoControlButton)
.Caption = "&Récapitulatif"
.FaceId = 97
.BeginGroup = False
.OnAction = "affiche_récapitulatif"
End With

With .Controls.Add(msoControlButton)
.Caption = "Statisti&ques"
.FaceId = 17
.BeginGroup = False
.OnAction = "affiche_stat"
End With

With .Controls.Add(msoControlButton)
.Caption = "Im&pression"
.FaceId = 4
.BeginGroup = False
.OnAction = "affiche_impress"
End With

With .Controls.Add(msoControlButton)
.Caption = "Quitter"
.FaceId = 840
.BeginGroup = False
.OnAction = "quitte"
End With

With .Controls.Add(msoControlButton)
.Caption = "Plein &écran"
.FaceId = 69
.BeginGroup = False
.OnAction = "plein_ecran"
End With

End With

End Sub



Bonjour,
Peux tu publier ici le code concerné, il sera ainsi plus aisé d'aider (et non pluzezedede).
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"tilivier" a écrit dans le message de news:

Bonjour,
J'ai une macro qui me créer un menu au démarrage du classeur et le problème
est que à chaque fois que j'ouvre mon classeur il me créeer un nouveau menu.
J'ai essayé de mettre un test pour vérifier si le menu existait déjà , et
s'il existe ne pas le créer, mais je n'arrive pas.

Qqn pourrait-il m'aider?

Merci d'avance et bonne journée














Avatar
tilivier
Merci mille fois cette fois c'est tout a fait ce que je cherchais à obtenir.

Bonne fin de journée.
Cordiales salutations.


Oups,
Coller / copier hatif ; remplace la ligne fautive par celle ci :

if [etamenu]="Menu actif" then exit sub

le principe est de ne créer le menu que s'il n'existe pas en utilisant pour contrôle un nom du classeur
(etamenu) qui est créé à la fin de la proc en lui donnant la valeur Menu actif.
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"tilivier" a écrit dans le message de news:

Merci pour ta réponse mais quand je veux l'utiliser, j'ai une erreur à la
ligne "if [etamenu]=:="Menu actif" then exit sub".
Est-ce qu'il y a une erreur?

Bonne journée.


Re,
Fais l'essai de la version suivante :

Sub Ajout_Menu_Perso_2()
on error resume next
if [etamenu]="Menu actif" then exit sub
With CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)
..Caption = "A&vanchets"

With .Controls.Add(msoControlButton)
..Caption = "&Menu"
..FaceId = 837
..BeginGroup = False
..OnAction = "Macro2"
End With

With .Controls.Add(msoControlButton)
..Caption = "Enregi&strer"
..FaceId = 3
..BeginGroup = False
..OnAction = "enregistrer"
End With

With .Controls.Add(msoControlButton)
..Caption = "&Données Personnelles"
..FaceId = 59
..BeginGroup = False
..OnAction = "affiche_pers"
End With

With .Controls.Add(msoControlButton)
..Caption = "Données &Immeuble"
..FaceId = 176
..BeginGroup = False
..OnAction = "affiche_immeuble"
End With

With .Controls.Add(msoControlButton)
..Caption = "&Récapitulatif"
..FaceId = 97
..BeginGroup = False
..OnAction = "affiche_récapitulatif"
End With

With .Controls.Add(msoControlButton)
..Caption = "Statisti&ques"
..FaceId = 17
..BeginGroup = False
..OnAction = "affiche_stat"
End With

With .Controls.Add(msoControlButton)
..Caption = "Im&pression"
..FaceId = 4
..BeginGroup = False
..OnAction = "affiche_impress"
End With

With .Controls.Add(msoControlButton)
..Caption = "Quitter"
..FaceId = 840
..BeginGroup = False
..OnAction = "quitte"
End With

With .Controls.Add(msoControlButton)
..Caption = "Plein &écran"
..FaceId = 69
..BeginGroup = False
..OnAction = "plein_ecran"
End With

End With

ThisWorkbook.Names.Add Name:="etamenu", RefersTo:="Menu actif"

End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"tilivier" a écrit dans le message de news:

Bonjour Philippe
et voilà si ça peut t'aidé.
Merci


Sub Ajout_Menu_Perso()

With CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)
.Caption = "A&vanchets"

With .Controls.Add(msoControlButton)
.Caption = "&Menu"
.FaceId = 837
.BeginGroup = False
.OnAction = "Macro2"
End With

With .Controls.Add(msoControlButton)
.Caption = "Enregi&strer"
.FaceId = 3
.BeginGroup = False
.OnAction = "enregistrer"
End With

With .Controls.Add(msoControlButton)
.Caption = "&Données Personnelles"
.FaceId = 59
.BeginGroup = False
.OnAction = "affiche_pers"
End With

With .Controls.Add(msoControlButton)
.Caption = "Données &Immeuble"
.FaceId = 176
.BeginGroup = False
.OnAction = "affiche_immeuble"
End With

With .Controls.Add(msoControlButton)
.Caption = "&Récapitulatif"
.FaceId = 97
.BeginGroup = False
.OnAction = "affiche_récapitulatif"
End With

With .Controls.Add(msoControlButton)
.Caption = "Statisti&ques"
.FaceId = 17
.BeginGroup = False
.OnAction = "affiche_stat"
End With

With .Controls.Add(msoControlButton)
.Caption = "Im&pression"
.FaceId = 4
.BeginGroup = False
.OnAction = "affiche_impress"
End With

With .Controls.Add(msoControlButton)
.Caption = "Quitter"
.FaceId = 840
.BeginGroup = False
.OnAction = "quitte"
End With

With .Controls.Add(msoControlButton)
.Caption = "Plein &écran"
.FaceId = 69
.BeginGroup = False
.OnAction = "plein_ecran"
End With

End With

End Sub



Bonjour,
Peux tu publier ici le code concerné, il sera ainsi plus aisé d'aider (et non pluzezedede).
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"tilivier" a écrit dans le message de news:

Bonjour,
J'ai une macro qui me créer un menu au démarrage du classeur et le problème
est que à chaque fois que j'ouvre mon classeur il me créeer un nouveau menu.
J'ai essayé de mettre un test pour vérifier si le menu existait déjà , et
s'il existe ne pas le créer, mais je n'arrive pas.

Qqn pourrait-il m'aider?

Merci d'avance et bonne journée


















1 2