Re : La grosse seche
Bonsoir à tous !!
J'ai bien lu tous vos liens et je vous en remercie , effectivement la soluce est bien dans la liste en cascade,
En revenche pour un débutant certaine fonction semble obscure mais bon en tatonan;;;;
Set f = Sheets("FEUIL2")
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In Range(f.[A2], f.[A65000].End(xlUp))
If c.Value <> "" Then MonDico.Item(c.Value) = c.Value
Next c
Me.ComboBox2.List = MonDico.items
SendKeys "{F4}"
ce qui serait sympa s'est de comprendre comment fonctionne chaque ligne (lSendKeys "{F4}") me parrait tres etrange!!!
bonsoir à tous et toutes