WILFRIED
XLDnaute Impliqué
Bonjour a tous,
j'ai fait une recherche sur le forum pour les "commandbarcombobox" mais la solution proposé pour récupérer la sélection du dit "commandbarcombobox" ne fonctionne pas j'ai le message suivant :
"erreur d'execution : '91' "
Variable objet ou variable de bloc with non définit.
Voici le code que j'utilise
'création :
Sub crea_bar()
Set fls_bd = Worksheets("bd")
Set clas_gestion = ActiveWorkbook
'création de la bar perso
Set myBar = CommandBars.Add(Name:=nm_bar, _
Position:=msoBarTop, Temporary:=True)
myBar.Visible = True
'création du bouton et association de l'apparence,action et texte
With myBar
Set bouton1 = .Controls.Add(Type:=msoControlButton)
With bouton1
.Caption = nm_bt1
.FaceId = id_bt1
.Style = msoButtonIconAndCaption
.OnAction = "crea_compte" 'ok
End With
Set bouton2 = .Controls.Add(Type:=msoControlComboBox, Temporary:=True)
With bouton2
With fls_bd
.Visible = xlSheetVisible
.Select
End With
Range("A2", Range("A65536").End(xlUp)).Select
For Each m_cell In Selection
.AddItem m_cell.Value
Next
fls_bd.Visible = xlSheetHidden
.Caption = "selectionné le compte à ouvrir"
.OnAction = "bouton2_change" 'ok
End With
Set bouton3 = .Controls.Add(Type:=msoControlButton, before:=2, Temporary:=True)
With bouton3
.Caption = nm_bt3
.FaceId = id_bt3
.Style = msoButtonIconAndCaption
.OnAction = "ajout_op"
End With
Set bouton4 = .Controls.Add(Type:=msoControlButton, before:=2, Temporary:=True)
With bouton4 'ok
.Caption = nm_bt4
.FaceId = id_bt4
.Style = msoButtonIconAndCaption
.OnAction = "import_compte"
End With
End With
End Sub
Private Sub bouton2_Change() '(ByVal Ctrl As CommandBarComboBox)
Stop
MsgBox bouton2.Text
End Sub
dans l'aide il parle d'utiliser un module de classe pour le fonctionnement événementielle mais je n'ai pas réussi à le faire fonctionner.
Si qu'elle qu'un avait une idée, je suis preneur.
A+ et merci d'avance
Ps :
-j'ai mis un espion sur bouton2 et j'ai pour valeur nothing
- mes variables sont déclarer dans un module variable en Public
j'ai fait une recherche sur le forum pour les "commandbarcombobox" mais la solution proposé pour récupérer la sélection du dit "commandbarcombobox" ne fonctionne pas j'ai le message suivant :
"erreur d'execution : '91' "
Variable objet ou variable de bloc with non définit.
Voici le code que j'utilise
'création :
Sub crea_bar()
Set fls_bd = Worksheets("bd")
Set clas_gestion = ActiveWorkbook
'création de la bar perso
Set myBar = CommandBars.Add(Name:=nm_bar, _
Position:=msoBarTop, Temporary:=True)
myBar.Visible = True
'création du bouton et association de l'apparence,action et texte
With myBar
Set bouton1 = .Controls.Add(Type:=msoControlButton)
With bouton1
.Caption = nm_bt1
.FaceId = id_bt1
.Style = msoButtonIconAndCaption
.OnAction = "crea_compte" 'ok
End With
Set bouton2 = .Controls.Add(Type:=msoControlComboBox, Temporary:=True)
With bouton2
With fls_bd
.Visible = xlSheetVisible
.Select
End With
Range("A2", Range("A65536").End(xlUp)).Select
For Each m_cell In Selection
.AddItem m_cell.Value
Next
fls_bd.Visible = xlSheetHidden
.Caption = "selectionné le compte à ouvrir"
.OnAction = "bouton2_change" 'ok
End With
Set bouton3 = .Controls.Add(Type:=msoControlButton, before:=2, Temporary:=True)
With bouton3
.Caption = nm_bt3
.FaceId = id_bt3
.Style = msoButtonIconAndCaption
.OnAction = "ajout_op"
End With
Set bouton4 = .Controls.Add(Type:=msoControlButton, before:=2, Temporary:=True)
With bouton4 'ok
.Caption = nm_bt4
.FaceId = id_bt4
.Style = msoButtonIconAndCaption
.OnAction = "import_compte"
End With
End With
End Sub
Private Sub bouton2_Change() '(ByVal Ctrl As CommandBarComboBox)
Stop
MsgBox bouton2.Text
End Sub
dans l'aide il parle d'utiliser un module de classe pour le fonctionnement événementielle mais je n'ai pas réussi à le faire fonctionner.
Si qu'elle qu'un avait une idée, je suis preneur.
A+ et merci d'avance
Ps :
-j'ai mis un espion sur bouton2 et j'ai pour valeur nothing
- mes variables sont déclarer dans un module variable en Public
Dernière édition: