Commandbar popup

Bonjour tout le monde,

Je voulais savoir comment on pouvait faire un popup d'un popup dans une
commandbar?

Actuellement j'ai le code suivant : ( qui construit une barre de menu avec
un bouton puis un popup puis un second popup qui devrait se trouvait sous le
premier popup puis un deuxieme boutton)

Sub CreateCommandBar()
'Barre de menu
Dim Bar As CommandBar
Set Bar = Application.CommandBars.Add(Name:=NomCommandBar, _
Position:=msoBarFloating, Temporary:=True)

With Bar
.Left = 655
.Top = 130
.Visible = True
End With

'Bouton page précédente
Dim boutton As CommandBarButton
Set boutton > Application.CommandBars(NomCommandBar).Controls.Add(Type:=msoControlButton)

With boutton
.Style = msoButtonCaption
.Caption = "Page Précedente"
.OnAction = "MacroPrevious"
End With

'Menu déroulant
Dim Popup As CommandBarPopup
Set Popup = Application.CommandBars(NomCommandBar).Controls _
.Add(Type:=msoControlPopup)
With Popup
.Caption = "&Gestion du Bulletin"
.TooltipText = "Facilités de gestion du Bulletin"
'.MenuAnimationStyle = msoMenuAnimationUnfold
End With

Dim Popup2 As CommandBarPopup
Set Popup2 = Application.CommandBars(NomCommandBar).Controls _
.Add(Type:=msoControlPopup)
' Set Popup2 = Popup.Controls.Add

With Popup2
.Caption = "Allez à la page..."
.TooltipText = "Facilités de gestion du Bulletin"
'.MenuAnimationStyle = msoMenuAnimationUnfold
End With


Dim Button2 As CommandBarButton

Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Couverture"
.OnAction = "Couverture"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Compét Trans"
.OnAction = "CompetTrans"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Langue1"
.OnAction = "Langue1"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Compét Spécif"
.OnAction = "CompetSpecif"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Math"
.OnAction = "Math"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Langue2"

End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Découv du monde"
.OnAction = "DecouvreMonde"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Educ music art"
.OnAction = "EducMusicArt"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Educ phy reli moral"
.OnAction = "EducPhyRel"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Bilan"
.OnAction = "Bilan"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Communication"
.OnAction = "Communication"
End With


Dim Button As CommandBarButton

Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
'19
.FaceId = 4
.Caption = "Impression de tout le bulletin"
.TooltipText = "Changer les données"
' .OnAction = "ChangeCoordonnees"
End With
Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
.FaceId = 4
.Caption = "Impression de la page en cours"
.TooltipText = "Imprimer"
' .OnAction = "Transfert" 'ImpressionListe
End With

Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
.FaceId = 441
.Caption = "Fermer le buletin"
.TooltipText = ""
.OnAction = "Fermefichiee"
End With

Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
.FaceId = 441
.Caption = "Menu Programmeur"
.TooltipText = "Transférer des souscriptions déjà saisies sur un
autre actionnaire"
.OnAction = "Programmeur"
End With

'Bouton page suivante
Set boutton > Application.CommandBars(NomCommandBar).Controls.Add(Type:=msoControlButton)

With boutton
.Style = msoButtonCaption
.Caption = "Page Suivante"
.OnAction = "MacroNext"
End With
End Sub

Merci d'avance pour votre aide,
@+
Michel.

Ton code avec une légère modification :

'********************************
Sub CreateCommandBar()
'Barre de menu
Dim Bar As CommandBar
NomCommandBar = "test"
Set Bar = Application.CommandBars.Add(Name:=NomCommandBar, _
Position:=msoBarFloating, Temporary:=True)

With Bar
.Left = 655
.Top = 130
.Visible = True
End With

'Bouton page précédente
Dim boutton As CommandBarButton
Set boutton >
Application.CommandBars(NomCommandBar).Controls.Add(Type:=msoControlButton)

With boutton
.Style = msoButtonCaption
.Caption = "Page Précedente"
.OnAction = "MacroPrevious"
End With

'Menu déroulant
Dim Popup As CommandBarPopup
Set Popup = Application.CommandBars(NomCommandBar).Controls _
.Add(Type:=msoControlPopup)
With Popup
.Caption = "&Gestion du Bulletin"
.TooltipText = "Facilités de gestion du Bulletin"
'.MenuAnimationStyle = msoMenuAnimationUnfold
End With

Dim Popup2 As CommandBarPopup
' Set Popup2 = Application.CommandBars(NomCommandBar).Controls _
' .Add(Type:=msoControlPopup)
'***************modif ici***********
Set Popup2 = Popup.Controls.Add(Type:=msoControlPopup)
'***********************************

With Popup2
.Caption = "Allez à la page..."
.TooltipText = "Facilités de gestion du Bulletin"
'.MenuAnimationStyle = msoMenuAnimationUnfold
End With


Dim Button2 As CommandBarButton

Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Couverture"
.OnAction = "Couverture"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Compét Trans"
.OnAction = "CompetTrans"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Langue1"
.OnAction = "Langue1"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Compét Spécif"
.OnAction = "CompetSpecif"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Math"
.OnAction = "Math"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Langue2"

End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Découv du monde"
.OnAction = "DecouvreMonde"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Educ music art"
.OnAction = "EducMusicArt"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Educ phy reli moral"
.OnAction = "EducPhyRel"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Bilan"
.OnAction = "Bilan"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Communication"
.OnAction = "Communication"
End With


Dim Button As CommandBarButton

Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
'19
.FaceId = 4
.Caption = "Impression de tout le bulletin"
.TooltipText = "Changer les données"
' .OnAction = "ChangeCoordonnees"
End With
Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
.FaceId = 4
.Caption = "Impression de la page en cours"
.TooltipText = "Imprimer"
' .OnAction = "Transfert" 'ImpressionListe
End With

Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
.FaceId = 441
.Caption = "Fermer le buletin"
.TooltipText = ""
.OnAction = "Fermefichiee"
End With

Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
.FaceId = 441
.Caption = "Menu Programmeur"
.TooltipText = "Transférer des souscriptions déjà saisies sur un
autre

actionnaire"
.OnAction = "Programmeur"
End With

'Bouton page suivante
Set boutton >
Application.CommandBars(NomCommandBar).Controls.Add(Type:=msoControlButton)

With boutton
.Style = msoButtonCaption
.Caption = "Page Suivante"
.OnAction = "MacroNext"
End With
End Sub
'********************************

--
Gaenonius

Bonjour tout le monde,

Je voulais savoir comment on pouvait faire un popup d'un popup dans une
commandbar?

Actuellement j'ai le code suivant : ( qui construit une barre de menu
avec

un bouton puis un popup puis un second popup qui devrait se trouvait
sous le

premier popup puis un deuxieme boutton)

Sub CreateCommandBar()
'Barre de menu
Dim Bar As CommandBar
Set Bar = Application.CommandBars.Add(Name:=NomCommandBar, _
Position:=msoBarFloating, Temporary:=True)

With Bar
.Left = 655
.Top = 130
.Visible = True
End With

'Bouton page précédente
Dim boutton As CommandBarButton
Set boutton > >
Application.CommandBars(NomCommandBar).Controls.Add(Type:=msoControlButton)

With boutton
.Style = msoButtonCaption
.Caption = "Page Précedente"
.OnAction = "MacroPrevious"
End With

'Menu déroulant
Dim Popup As CommandBarPopup
Set Popup = Application.CommandBars(NomCommandBar).Controls _
.Add(Type:=msoControlPopup)
With Popup
.Caption = "&Gestion du Bulletin"
.TooltipText = "Facilités de gestion du Bulletin"
'.MenuAnimationStyle = msoMenuAnimationUnfold
End With

Dim Popup2 As CommandBarPopup
Set Popup2 = Application.CommandBars(NomCommandBar).Controls _
.Add(Type:=msoControlPopup)
' Set Popup2 = Popup.Controls.Add

With Popup2
.Caption = "Allez à la page..."
.TooltipText = "Facilités de gestion du Bulletin"
'.MenuAnimationStyle = msoMenuAnimationUnfold
End With


Dim Button2 As CommandBarButton

Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Couverture"
.OnAction = "Couverture"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Compét Trans"
.OnAction = "CompetTrans"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Langue1"
.OnAction = "Langue1"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Compét Spécif"
.OnAction = "CompetSpecif"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Math"
.OnAction = "Math"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Langue2"

End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Découv du monde"
.OnAction = "DecouvreMonde"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Educ music art"
.OnAction = "EducMusicArt"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Educ phy reli moral"
.OnAction = "EducPhyRel"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Bilan"
.OnAction = "Bilan"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Communication"
.OnAction = "Communication"
End With


Dim Button As CommandBarButton

Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
'19
.FaceId = 4
.Caption = "Impression de tout le bulletin"
.TooltipText = "Changer les données"
' .OnAction = "ChangeCoordonnees"
End With
Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
.FaceId = 4
.Caption = "Impression de la page en cours"
.TooltipText = "Imprimer"
' .OnAction = "Transfert" 'ImpressionListe
End With

Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
.FaceId = 441
.Caption = "Fermer le buletin"
.TooltipText = ""
.OnAction = "Fermefichiee"
End With

Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
.FaceId = 441
.Caption = "Menu Programmeur"
.TooltipText = "Transférer des souscriptions déjà saisies sur un
autre actionnaire"
.OnAction = "Programmeur"
End With

'Bouton page suivante
Set boutton > >
Application.CommandBars(NomCommandBar).Controls.Add(Type:=msoControlButton)

With boutton
.Style = msoButtonCaption
.Caption = "Page Suivante"
.OnAction = "MacroNext"
End With
End Sub

Merci d'avance pour votre aide,
@+
Michel.

Ton code avec une légère modification :

'********************************
Sub CreateCommandBar()
'Barre de menu
Dim Bar As CommandBar
NomCommandBar = "test"
Set Bar = Application.CommandBars.Add(Name:=NomCommandBar, _
Position:=msoBarFloating, Temporary:=True)

With Bar
.Left = 655
.Top = 130
.Visible = True
End With

'Bouton page précédente
Dim boutton As CommandBarButton
Set boutton >
Application.CommandBars(NomCommandBar).Controls.Add(Type:=msoControlButton)

With boutton
.Style = msoButtonCaption
.Caption = "Page Précedente"
.OnAction = "MacroPrevious"
End With

'Menu déroulant
Dim Popup As CommandBarPopup
Set Popup = Application.CommandBars(NomCommandBar).Controls _
.Add(Type:=msoControlPopup)
With Popup
.Caption = "&Gestion du Bulletin"
.TooltipText = "Facilités de gestion du Bulletin"
'.MenuAnimationStyle = msoMenuAnimationUnfold
End With

Dim Popup2 As CommandBarPopup
' Set Popup2 = Application.CommandBars(NomCommandBar).Controls _
' .Add(Type:=msoControlPopup)
'***************modif ici***********
Set Popup2 = Popup.Controls.Add(Type:=msoControlPopup)
'***********************************

With Popup2
.Caption = "Allez à la page..."
.TooltipText = "Facilités de gestion du Bulletin"
'.MenuAnimationStyle = msoMenuAnimationUnfold
End With


Dim Button2 As CommandBarButton

Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Couverture"
.OnAction = "Couverture"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Compét Trans"
.OnAction = "CompetTrans"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Langue1"
.OnAction = "Langue1"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Compét Spécif"
.OnAction = "CompetSpecif"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Math"
.OnAction = "Math"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Langue2"

End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Découv du monde"
.OnAction = "DecouvreMonde"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Educ music art"
.OnAction = "EducMusicArt"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Educ phy reli moral"
.OnAction = "EducPhyRel"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Bilan"
.OnAction = "Bilan"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Communication"
.OnAction = "Communication"
End With


Dim Button As CommandBarButton

Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
'19
.FaceId = 4
.Caption = "Impression de tout le bulletin"
.TooltipText = "Changer les données"
' .OnAction = "ChangeCoordonnees"
End With
Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
.FaceId = 4
.Caption = "Impression de la page en cours"
.TooltipText = "Imprimer"
' .OnAction = "Transfert" 'ImpressionListe
End With

Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
.FaceId = 441
.Caption = "Fermer le buletin"
.TooltipText = ""
.OnAction = "Fermefichiee"
End With

Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
.FaceId = 441
.Caption = "Menu Programmeur"
.TooltipText = "Transférer des souscriptions déjà saisies sur un
autre

actionnaire"
.OnAction = "Programmeur"
End With

'Bouton page suivante
Set boutton >
Application.CommandBars(NomCommandBar).Controls.Add(Type:=msoControlButton)

With boutton
.Style = msoButtonCaption
.Caption = "Page Suivante"
.OnAction = "MacroNext"
End With
End Sub
'********************************

--
Gaenonius

Bonjour tout le monde,

Je voulais savoir comment on pouvait faire un popup d'un popup dans une
commandbar?

Actuellement j'ai le code suivant : ( qui construit une barre de menu
avec

un bouton puis un popup puis un second popup qui devrait se trouvait
sous le

premier popup puis un deuxieme boutton)

Sub CreateCommandBar()
'Barre de menu
Dim Bar As CommandBar
Set Bar = Application.CommandBars.Add(Name:=NomCommandBar, _
Position:=msoBarFloating, Temporary:=True)

With Bar
.Left = 655
.Top = 130
.Visible = True
End With

'Bouton page précédente
Dim boutton As CommandBarButton
Set boutton > >
Application.CommandBars(NomCommandBar).Controls.Add(Type:=msoControlButton)

With boutton
.Style = msoButtonCaption
.Caption = "Page Précedente"
.OnAction = "MacroPrevious"
End With

'Menu déroulant
Dim Popup As CommandBarPopup
Set Popup = Application.CommandBars(NomCommandBar).Controls _
.Add(Type:=msoControlPopup)
With Popup
.Caption = "&Gestion du Bulletin"
.TooltipText = "Facilités de gestion du Bulletin"
'.MenuAnimationStyle = msoMenuAnimationUnfold
End With

Dim Popup2 As CommandBarPopup
Set Popup2 = Application.CommandBars(NomCommandBar).Controls _
.Add(Type:=msoControlPopup)
' Set Popup2 = Popup.Controls.Add

With Popup2
.Caption = "Allez à la page..."
.TooltipText = "Facilités de gestion du Bulletin"
'.MenuAnimationStyle = msoMenuAnimationUnfold
End With


Dim Button2 As CommandBarButton

Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Couverture"
.OnAction = "Couverture"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Compét Trans"
.OnAction = "CompetTrans"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Langue1"
.OnAction = "Langue1"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Compét Spécif"
.OnAction = "CompetSpecif"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Math"
.OnAction = "Math"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Langue2"

End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Découv du monde"
.OnAction = "DecouvreMonde"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Educ music art"
.OnAction = "EducMusicArt"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Educ phy reli moral"
.OnAction = "EducPhyRel"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Bilan"
.OnAction = "Bilan"
End With
Set Button2 = Popup2.Controls.Add

With Button2
.Style = msoButtonIconAndCaption
.Caption = "Communication"
.OnAction = "Communication"
End With


Dim Button As CommandBarButton

Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
'19
.FaceId = 4
.Caption = "Impression de tout le bulletin"
.TooltipText = "Changer les données"
' .OnAction = "ChangeCoordonnees"
End With
Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
.FaceId = 4
.Caption = "Impression de la page en cours"
.TooltipText = "Imprimer"
' .OnAction = "Transfert" 'ImpressionListe
End With

Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
.FaceId = 441
.Caption = "Fermer le buletin"
.TooltipText = ""
.OnAction = "Fermefichiee"
End With

Set Button = Popup.Controls.Add

With Button
.Style = msoButtonIconAndCaption
.FaceId = 441
.Caption = "Menu Programmeur"
.TooltipText = "Transférer des souscriptions déjà saisies sur un
autre actionnaire"
.OnAction = "Programmeur"
End With

'Bouton page suivante
Set boutton > >
Application.CommandBars(NomCommandBar).Controls.Add(Type:=msoControlButton)

With boutton
.Style = msoButtonCaption
.Caption = "Page Suivante"
.OnAction = "MacroNext"
End With
End Sub

Merci d'avance pour votre aide,
@+
Michel.