remise à zéro de plusieurs menus déroulants

Question

Bonjour,
Je suis devant un joli problème, je gère les commande des mes clients sur un fichier excel qui me serts aussi de stock.
J'ai crée une petite base de donnée selon l'excellent site http://www.polykromy.com/blog/excel-base-de-donnees.htm
Donc j'utilise plusieurs menus déroulants pour mes clients. C'est à dire avec le menu déroulant je sélectionne le client et en dessous la ville du client et ainsi de suite sur toute mes feuilles car j'ai plusieurs produits. mon problème je cherche un moyen de remettre a zéro tous les menus déroulants pour recommencer le lendemain. donc un truc automatique , je signal que je travail sur de simple feuille et non avec des userform.

Avez-vous une solution?

Merci d'avance et bonne année

eriiic · Answer

Bonsoir,

et si tu mets ton fichier sur www.cijoint.fr et que tu colles le lien ici on pourra pe voir qcq chose...
eric

lesavoyard · Answer

Voilà c'est fait, et voici le lien http://www.cijoint.fr/cij395809851009.xls.
Ensuite il faut imaginé qu'il y a plusieurs menu deroulant par clients et par produits donc environs 10 menu par feuilles et sur 4 pages donc 40 menu a remettre a zéro en fin de journée.

Merci d'avance de votre aide.

eriiic · Answer

Re,

Je ne sais pas si j'ai bien compris comment tu veux utiliser tes listes mais pour les remettre à zéro (à 1 en fait) il suffit de saisir 1 dans la cellule liée, $A$1 en l'occurence dans ton exemple.
Mais toutes tes autres cellules liées par des formules à cette valeur évolueront aussi...
Au passage je te déconseille de fusionner les cellules, tôt ou tard ça te genera fortement

eric

lesavoyard · Answer

donjour, moi j'aurais plutôt utilisé un bouton pour remettre tout les menu a zéro, le soucis c'est que je ne sais pas comment faire, je ne vois meme pas le code du menu déroulant dans MS VB editor

Merci d'avance

eriiic · Answer

Bonjour,

Tu sélectionnes toutes tes cellules que tu veux faire passer à 1 et tu nommes ta selection 'liste'
Tu dessines ton bouton (celui de 'affichage / barres d'outils / boite à outils controles'), double-clic dessus,
et dans le code (entre sub et end sub) tu colles:
    For Each cel In Range("liste")
        cel.Value = 1
    Next cel
eric

lesavoyard · Answer

merci beaucoup l'ami, ça marche.

A bientôt

eriiic · Answer

De rien.
Bonne journée et n'oublie pas de passer le sujet à résolu stp. 
Merci

lesavoyard · Answer

je n'arrive pas a changer le statut de la conversation surement car je ne suis pas enregistré si un modo peux le faire,merci.

et merci encore à toi et a bientôt

Remise à zéro de plusieurs menus déroulants

8 réponses

Discussions similaires

Newsletters