validation donnée liste multiple

  • Initiateur de la discussion Initiateur de la discussion legamin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

legamin

XLDnaute Nouveau
Bonsoir.
Nouveau sur ce forum.
J’ai cherché dans les divers postes mais je n'ai pas trouvé ma réponse.
Mon problème est le suivant.
J’aimerai que sur 3 voir 4 feuilles d'un même classeur, pouvoir en saisissant un mot (texte) dans validation donnée liste sur une des feuilles du classeur, avoir l'équivalent texte sur les autres feuilles de ce même classeur quel que soit la feuille sur laquelle la saisie a été faite.

En resumé le sujet est, si sur un même classeur,
- sur la feuille 1 une cellule a choix multiple (validation donnée (liste)). Je souhaiterai que les autre feuilles (2,3,4) soit agrémenté de la même valeur. et quelque soit la feuille sélectionné lors de la modification (si je modifie la feuille 3) quelle mette a l'identique la feuille 1,2,4 je m'entends quand je dis valeur ce n'est pas des nombres mais du texte.

faut-il passer par du vba?

En espérant être cohérant, si quelqu'un peut m'apporter son aide, j'en serai ravi.
Cordialement.
 
Re : validation donnée liste multiple

Bonsoir legamin, Gilbert,

Si les listes de validation sont en A1 pour les 4 feuilles, copier cette macro dans le code de ThisWorkbook :

Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
If Source.Address <> "$A$1" Then Exit Sub
Dim tablo(), i As Byte
tablo = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4") 'liste des noms des feuilles à traiter
Application.EnableEvents = False
For i = 0 To UBound(tablo)
Sheets(tablo(i)).Range(Source.Address) = Source
Next
Application.EnableEvents = True
End Sub

A+
 
resolu

un grand merci a vous deux pour vos reponses. et particulierement a job75,
ca correspondait exactement a ce que j'attendais.
c'etait effectivement pas si compliqué (facile a dire quand on a la soluce),
mais je fesais l'impasse la desus.
cordialement j-p.m
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
472
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
656
Réponses
2
Affichages
771
Retour