Autres Changer sélection liste déroulante

Salmander

XLDnaute Occasionnel
Bonjour,
Je cherche une macro qui me permette de pointer sur la première ligne de ma Zone de liste déroulante.
L'utilisateur sélectionne son choix et une fois fini l'action, la Zone de liste déroulante revient tout en haut et la cellule lié revient à 1.
Merci pour votre aide.
 
Solution
Bonjour,
Il semblerait que je n’ai été très clair dans la description de mon besoin.
Je souhaiterais que, après avoir effectué certaines actions, ma « Zone de liste déroulante » revienne automatiquement en choix numéro 1.

[03/04/2021]
Et la réponse est dans le cas de ce fichier :

VB:
[Zone].ListIndex = 1

Jacky67

XLDnaute Barbatruc
Bonjour,
Je cherche une macro qui me permette de pointer sur la première ligne de ma Zone de liste déroulante.
L'utilisateur sélectionne son choix et une fois fini l'action, la Zone de liste déroulante revient tout en haut et la cellule lié revient à 1.
Merci pour votre aide.
Bonjour
Sans plus d'explications et sans classeur et si c'est une liste de validation
VB:
Sub premieritem()
    [cellule contenant la liste de validation] = ""
    ou
    [cellule contenant la liste de validation] = [première cellule de la plage de la liste]
End Sub
 

Salmander

XLDnaute Occasionnel
Bonjour,
Il semblerait que je n’ai été très clair dans la description de mon besoin.
Je souhaiterais que, après avoir effectué certaines actions, ma « Zone de liste déroulante » revienne automatiquement en choix numéro 1.

[03/04/2021]
Et la réponse est dans le cas de ce fichier :

VB:
[Zone].ListIndex = 1
 

Pièces jointes

  • ZLD.xlsx
    12.2 KB · Affichages: 25
Dernière édition:

Jacky67

XLDnaute Barbatruc
Bonjour,
Il semblerait que je n’ai été très clair dans la description de mon besoin.
Je souhaiterais que, après avoir effectué certaines actions, ma « Zone de liste déroulante » revienne automatiquement en choix numéro 1.

Et la réponse est dans le cas de ce fichier :

VB:
[Zone].ListIndex = 1
Re..
Un bidouille du genre
Oupsss,
Ne fonctionne correctement qu'avec
[Zone].ListIndex =0
Pj modifiée
 

Pièces jointes

  • ZLD.xlsm
    21.1 KB · Affichages: 7
Dernière édition:

Discussions similaires

Réponses
2
Affichages
264

Statistiques des forums

Discussions
312 089
Messages
2 085 206
Membres
102 819
dernier inscrit
Michew13