Combobox bug

Bonjour mon vba plante sur un combobox

• Sub typeinter()
  Dim Lig As Integer, drLig As Integer
  With Sheets("Type_inter")
  drLig = .Range("a1").End(xlDown).Row
  For Lig = 1 To drLig
  Me.C_typedinter.AddItem .Range("A" & Lig)
  Next Lig
  End With
  End Sub

je pense pouvoir l'avoir bien copié j'ai tout simplement fait un copier/coller d'un existant mais ça ne fonctionne pas biensur en changeant la destination, la source est la même

Bonjour,

• Redessinez la combobox C_typedinter dans l'userform
• Supprimez le code Sub typeinter()
• Placer le code ci-dessous dans la Private sub ... initialize en lieu et place de l'instruction "typinter"

With Sheets("Type_inter")
drLig = .Range("a" & .Rows.Count).End(xlUp).Row
Me.C_typedinter.list() = .Range("A1:A" & drLig).Value
End With

Si ok et terminé, lors de votre réponse, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Cordialement

Re,

m'semble que l'erreur se trouve là, tu lances une procédure dans L'Userform initialize

en premier l'USF doit détecté ta combo et ensuite, tu feras appel à la procédure typeinter

typeinter

mais attendons l'expert d'un Professionnel d'Excel car, sans doute je dois me trompé

Edit : à Merci Dan

merci a vous je ne savais pas qu'il fallait faire toutes les mise en forme dans l'initialize car certaines n'y sont pas...