Bonjour,
encore une question: j'ai créé une listbox dans une userform,
est-il possible de copier cette même liste box (remplie) dans une barre de
commandes personnalisée?
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
Hervé
Salut, sur Clic de ta form :
Private Sub UserForm_Click() Dim Barre As CommandBar Dim Cmb As CommandBarComboBox Dim I As Integer
On Error Resume Next Application.CommandBars("MaBarre").Delete On Error GoTo 0
'création de la barre et du combo Set Barre = Application.CommandBars.Add("MaBarre", _ msoBarTop, _ False, _ True)
With Barre Set Cmb = .Controls.Add(msoControlComboBox) With Cmb .Caption = "MonCombo" .Width = 120 .OnAction = "MaMacro" .TooltipText = "Coucou ;o)" For I = 1 To Me.ComboBox1.ListCount .AddItem Me.ComboBox1.List(I - 1) Next .ListIndex = 1 End With
.Visible = True
End With
Set Cmb = Nothing Set Barre = Nothing End Sub
Hervé.
"Setec Essarts" a écrit dans le message news: 3fe6cf51$0$28711$
Bonjour, encore une question: j'ai créé une listbox dans une userform, est-il possible de copier cette même liste box (remplie) dans une barre de commandes personnalisée?
Merci d'avance
Vincent
Salut,
sur Clic de ta form :
Private Sub UserForm_Click()
Dim Barre As CommandBar
Dim Cmb As CommandBarComboBox
Dim I As Integer
On Error Resume Next
Application.CommandBars("MaBarre").Delete
On Error GoTo 0
'création de la barre et du combo
Set Barre = Application.CommandBars.Add("MaBarre", _
msoBarTop, _
False, _
True)
With Barre
Set Cmb = .Controls.Add(msoControlComboBox)
With Cmb
.Caption = "MonCombo"
.Width = 120
.OnAction = "MaMacro"
.TooltipText = "Coucou ;o)"
For I = 1 To Me.ComboBox1.ListCount
.AddItem Me.ComboBox1.List(I - 1)
Next
.ListIndex = 1
End With
.Visible = True
End With
Set Cmb = Nothing
Set Barre = Nothing
End Sub
Hervé.
"Setec Essarts" <a87essarts@setec.fr> a écrit dans le message news:
3fe6cf51$0$28711$626a54ce@news.free.fr...
Bonjour,
encore une question: j'ai créé une listbox dans une userform,
est-il possible de copier cette même liste box (remplie) dans une barre de
commandes personnalisée?
Private Sub UserForm_Click() Dim Barre As CommandBar Dim Cmb As CommandBarComboBox Dim I As Integer
On Error Resume Next Application.CommandBars("MaBarre").Delete On Error GoTo 0
'création de la barre et du combo Set Barre = Application.CommandBars.Add("MaBarre", _ msoBarTop, _ False, _ True)
With Barre Set Cmb = .Controls.Add(msoControlComboBox) With Cmb .Caption = "MonCombo" .Width = 120 .OnAction = "MaMacro" .TooltipText = "Coucou ;o)" For I = 1 To Me.ComboBox1.ListCount .AddItem Me.ComboBox1.List(I - 1) Next .ListIndex = 1 End With
.Visible = True
End With
Set Cmb = Nothing Set Barre = Nothing End Sub
Hervé.
"Setec Essarts" a écrit dans le message news: 3fe6cf51$0$28711$
Bonjour, encore une question: j'ai créé une listbox dans une userform, est-il possible de copier cette même liste box (remplie) dans une barre de commandes personnalisée?
