Valeur par défaut+liste déroulante+VBA

[Svanus51]

Salut à tous,

J’aurai besoin d’un p’tit coup de main en vba. Je suis débutant en la matière.

J'ai un fichier Excel 2010 sous windows7 constitué de trois feuilles: 'recherche', 'liste désignation' et 'feuille de calculs'.
Sur la feuille 'recherche', l'opérateur a la possibilité de trouver un "code famille" pour le produit qu'il recherche. Il fait son choix dans 4 listes déroulantes en cascades. Ensuite, le code famille apparait en bas dans une case de couleur orange.
La feuille 'liste désignation' comporte comme son nom l'indique les différentes listes et la 'feuille de calculs' comporte les différentes formules pour retrouver le code famille.

Le problème est le suivant:
Si l'opérateur ne remet pas sur la valeur "vide" les 4 listes après une recherche, alors il peut tomber sur des codes aberrants.

Ma question est la suivante:
Comment peut-on forcer les listes à revenir sur la valeur "vide" en cliquant sur un bouton reset ?

Ci joint le fichier excel pour mieux comprendre la situation.

En vous remerciant par avance.

Svanus51

 

[Guest]

Re : Valeur par défaut+liste déroulante+VBA

Bonjour Svanus51 et bienvenue sur le forum,

Click-droit sur la bordure du bouton->affecter une macro ->bouton 'Nouvelle'

Dans le squelette de macro qui s'ouvre en la ligne qui commence par 'Sub' et la ligne 'End Sub' colles cette ligne de code:

ThisWorkbook.Sheets("Recherche").Range("C5,C7,C9,C11") = ThisWorkbook.Sheets("Listes désignations").Range("Vide")

A+

 

[Svanus51]

Re : Valeur par défaut+liste déroulante+VBA

Salut Hasco,
Merci pour cette bienvenue et pour ton aide qui se révèle très efficace !
Cela fonctionne parfaitement et va éviter bon nombre de clique en moins !
@ la prochaine