Set rgMotif = Feuil2.Range("B1:B3")
With Me.ComboBox1
.List = rgMotif.Value
If .ListCount > 0 Then .ListIndex = 0
.ListIndex = 1
End With
If .ListCount > 0 Then .ListIndex = 0
.ListIndex = 1
Re,
puisqu'il faut donner du tout cuit:
Code:Set rgMotif = Feuil2.Range("B1:B3") With Me.ComboBox1 .List = rgMotif.Value If .ListCount > 0 Then .ListIndex = 0 .ListIndex = 1 End With
Mais ceci n'a ni queue ni tête:
Que vient faire .listIndex = 1' surtout si listcount = 0Code:If .ListCount > 0 Then .ListIndex = 0 .ListIndex = 1
A+
J'ai encore une petit souci, tout à l'heure je voulais donner un nom à un label de ma USF grace au contenu d'une cellule et donc on m'a dit de mettre UserForm1.Label16 = Sheets("Feuil2").Range("A1").Value dans initialize mais cela me provoque une erreur sur cette ligne.