Bonjour Phil, et le Forum
Ce n'est pas une question de débutant, c'est déjà d'un niveau plus élevé.
A première vu il y a deux approches de solutions à cette question, pour autant que je l'ai interprétée correctement :
"Ma macro fonctionne, mais ne me remet pas mes zones de liste sur ma première cellule de ma liste" que je comprends :
Ma Macro fonctionne, mais ne réinitialise pas la valeur des cellules contenants des Listes Modifiables (du Menu => Donnée Validation) au première enregistrement de cette liste.
Pour te répondre au Pourquoi :
Ben même sans macro, si tu fais ceci manuellement tu n'auras pas de valeur dans la cellule, il faudra sélectionner la première valeur de la liste manuellement.
D'ailleurs même si tu créées une telle liste sur une feuille vierge, la cellule en question ne se remplira pas pour autant, il faudra faire une sélection.
Pour te répondre au Comment :
Ben les deux approches sont en fonction de tes aptitudes en VBA, donc la première sera la plus facile à comprendre et à mettre en oeuvre :
Exemple en Feuil1 la cellule A1 contient une liste de validation dont la source est la Feuil2 dans les cellules A1 à A10 dans une plage nommée "Maplage" avec des valeurs Toto1, Toto2, Toto3, Toto4, Toto5...etc (Si tu fais ta liste directement dans "Données Validation", je te conseille de faire des recherche dans ce forum, car la soluce 1 ne marchera pas)
Soluce 1
Tu nettoies A1 à D50 (par exemple) le code donne ceci :
Sheets("Feuil1").Range("A1
50").ClearContents
Et tu fais écrire par VBA la valeur de la première cellule Source de ta liste en A1 comme ceci :
Sheets("Feuil1").Range("A1").Value = Sheets("Feuil2").Range("A1").Value
Soluce 2
je pense qu'on peut arriver à faire comprendre à VBA qu'il fasse le checking de toutes les cellules vidées pour savoir si elles ont une "Liste de Validation", et ensuite de donner à la cellule la valeur du premier item... mais je n'ai pas le code sous la main, et je dois quitter le bureau.
Enfin la soluce 1 devrait déjà te faire avance un petit peu j'espère
Bonne Soirée
@+Thierry