Pop Up

Bonsoir, j'ai essayé de tester cette procédure d'Alain CROS via un post de
Twinley
Elle fonctionne fort bien, elle crée le bouton mois.
Comment faire afin de faire disparaître ce bouton ?
Merci beaucoup
Michel

Sub CreateMenuMois()
Dim MenuMois As CommandBarPopup
On Error Resume Next
With Application.CommandBars(1)
Set MenuMois = .Controls.Add(Type:=msoControlPopup,
before:=.Controls.Count - 1)
End With
MenuMois.Caption = "Mois"
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Janvier"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Février"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Mars"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Avril"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Mai"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Juin"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Juillet"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Août"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Septembre"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Octobre"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Novembre"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Décembre"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Tout"
.OnAction = "Action"
End With
End Sub

Bonsoir

par exemple

Sub SupprMenuMois()
Dim NomBarre$
NomBarre = "Mois"
On Error Resume Next
Application.CommandBars(1).Controls(NomBarre).Delete
End Sub

à+twinley

Bonsoir, j'ai essayé de tester cette procédure d'Alain CROS via un post
de Twinley
Elle fonctionne fort bien, elle crée le bouton mois.
Comment faire afin de faire disparaître ce bouton ?
Merci beaucoup
Michel

Sub CreateMenuMois()
Dim MenuMois As CommandBarPopup
On Error Resume Next
With Application.CommandBars(1)
Set MenuMois = .Controls.Add(Type:=msoControlPopup,
before:=.Controls.Count - 1)
End With
MenuMois.Caption = "Mois"
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Janvier"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Février"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Mars"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Avril"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Mai"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Juin"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Juillet"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Août"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Septembre"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Octobre"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Novembre"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Décembre"
.OnAction = "Action"
End With
With MenuMois.Controls.Add(msoControlButton)
.Caption = "Tout"
.OnAction = "Action"
End With
End Sub