Probleme de Code

[apdf1]

Bonjour,

Je voudrais alimenté une combobox depuis la feuille 2 "Adresse" de la colonne C9 à G

J'ai mis ce code et sa ne marche pas ?

Si quelqu'un peut m'aider je le remercie d'avance.

 Private Sub ComboBox4_Change()

 If ComboBox4.ListIndex = -1 Then Exit Sub
    
    Dim cc As Variant
    cc = Sheets(2).Range("C9:G" & Sheets(2).Range("a65536").End(xlUp).Row)
    
    For i = 1 To 5
        Controls("TextBox" & i) = ComboBox4.List(ComboBox4.ListIndex, i - 1)
    Next i

End Sub

 Private Sub UserForm_Initialize()
' Combobox4
      Dim cc As Variant
    cc = Sheets(2).Range("C9:G" & Sheets(2).Range("a65536").End(xlUp).Row)
    ComboBox4.List = cc
End Sub

Cordialement

Max

 

[Pierrot93]

Re : Aide code

Bonjour,

pas top l'objet de ta question (aide code)... et c'est pas la 1ère fois.... avec des objets comme ceux-ci, le moteur de recherche du forum ne peut pas fonctionner....

 

[Pierrot93]

Re : Probleme de Code

Re,

pas mieux ton titre...

pour initialiser une variable objet :

Dim cc As Range
Set cc = Sheets(2).Range("C9:G" & Sheets(2).Range("a65536").End(xlUp).Row)

@+