Private Sub UserForm_Initialize()
Dim Plage As Variant
With Sheets("Feuil1")
Plage = .Range("P4:P" & .Range("P65536").End(xlUp).Row)
End With
Me.ComboBox1.List = Plage
End Sub
Bonsoir EricBonsoir le forum
Bonsoir chaelie2015
Avec ceci :
Bonne soirée à toutes & à tousVB:Private Sub UserForm_Initialize() Dim Plage As Variant With Sheets("Feuil1") Plage = .Range("P4:P" & .Range("P65536").End(xlUp).Row) End With Me.ComboBox1.List = Plage End Sub
@+ Eric c