Macro CreateTransMenu en double
Résolu
Bonjour,
Je viens de lancer cette macro :
Sub CreateTransMenu()
Dim TransMenu As CommandBarPopup
On Error Resume Next
With Application.CommandBars(1)
Set TransMenu = .Controls.Add _
(Type:=msoControlPopup, before:=.Controls.Count)
End With
TransMenu.Caption = "Françoise"
Elle est bien fonctionnée mais je ne m'en suis appercu trop tard... j'ai relancé la macro et maintenant j'ai deux menu identique...
Je voudrais donc bien en supprimer un...
Savez vous comment procéder?
Merci d'avance
Je viens de lancer cette macro :
Sub CreateTransMenu()
Dim TransMenu As CommandBarPopup
On Error Resume Next
With Application.CommandBars(1)
Set TransMenu = .Controls.Add _
(Type:=msoControlPopup, before:=.Controls.Count)
End With
TransMenu.Caption = "Françoise"
Elle est bien fonctionnée mais je ne m'en suis appercu trop tard... j'ai relancé la macro et maintenant j'ai deux menu identique...
Je voudrais donc bien en supprimer un...
Savez vous comment procéder?
Merci d'avance
4 réponses
-
ModérateurBonjour,
Quelle appli, quelle version ?
m@rina -
bonjour,
c'est sur excel 2007 -
ModérateurBonjour
Si c'est la version 2007, ça t'a donc créé un onglet Complément où tu as deux bouton "Françoise" ?
Il suffit de cliquer avec le bouton droit sur l'un des deux et choisir "Supprimer la commande personnalisée".
m@rina -
Merci beaucoup
je suis trop bête s'était pourtant logique...
merci :)
