pb combo

P

PY

Guest
Bonsoir à tous.

j'ai un userform avec un combo quand je tape le code suivant:

Private Sub UserForm_Activate()

Comboclient.RowSource = Sheets("client").Range("c3:c81")
Comboclient.ControlSource = Range("c3")
End Sub

le combo ne se rempli pas, Pourquoi ?

merci
 
T

Ti

Guest
J'avais déjà je crois donné la solution il y a quelques jours :
Modifie ta procédure ainsi et ça marchera :

Private Sub UserForm_Activate()
Worksheets("Clients").Activate
ComboClient.RowSource = "c3:c81"
ComboClient.ControlSource = "c3"
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
312 508
Messages
2 089 137
Membres
104 045
dernier inscrit
Megajoules