Problème liste sur une ComboBox

Bonjour,

J'ai un problème, j'essai de faire un comboBox avec une liste qui est écrite sur la feuille excel, en vba, sans passer par les propriétés du bouton.

Mais je n'arrive pas à le faire fonctionné, j'ai essayé beaucoup de chose, auriez-vous une solution ?

Merci !

Bonjour,

essai ce code sur la page de Thisworkbook

enregistre le fichier, le fermer et le ré-ouvrir

Private Sub Workbook_Open()
With Sheets("SAV")
.cb_Civilite.List = .Range("A1:A3").Value
End With
End Sub

Bonjour i20100, super je te remercie, ça marche parfaitement. Cependant est-il possible de faire marcher ce code non pas dans la page Thisworkbook, mais dans la Feuil1 et directement dans le cb_Civilite, comme dans le screen du premier post ? Pour un soucis de clarté

re,

tu pourrais utiliser l'événement DblClick

Private Sub cb_Civilite_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With Sheets("SAV")
.cb_Civilite.List = .Range("b1:b3").Value
End With
End Sub

Re,

J'ai essayé tous les événements rien ne fonctionne :

J'ai mis en PJ le fichier si vous avez une solution

re,

essai comme ça,

Private Sub cb_Civilite_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

' Création de liste pour choisir la civilité

    Sheets("SAV").cb_Civilite.List = Feuil4.Range("B4:B6").Value

End Sub

Re,

J'ai tout essayé mais rien ne marche, donc j'abandonne et je vais laisser le code dans le Workbook_Open

Private Sub Workbook_Open()

    Feuil1.cb_Civilite.List = Feuil4.Range("nCivilité")

End Sub

Merci pour l'aide

re,

à tester,

ps/

je ne sais pas quel est l'onglet actif lors de l'ouverture de ton fichier

si cette onglet est autre que l'onglet "SAV"

tu pourrais utiliser ce code sur la page ThisWorbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "SAV" Then Sheets(Sh.Name).cb_Civilite.List = Feuil4.Range("B4:B6").Value
End Sub