La grosse seche

Re : La grosse seche

Bonjour, toine84.

ps : je suis super débutant

Cliquez pour agrandir...

Tout le monde a été un jour, débutant.

Pour "super bien débuter", commence donc par joindre ton fichier !
On ne sait pas comment tu alimentes tes comboboxes, où se situent tes données ? listes?

Re : La grosse seche

Bonjour à tous

regarde peut être ce lien, tu devrais y trouver ta réponse...
Listes en cascade

pas top ton titre... ne permettra aucune recherche ultérieure...

bonne journée
@+

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