Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

clonage liste déroulante

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 !

TEMAGOULTFARID

XLDnaute Occasionnel
Bonjour à vous toutes et tous,
je ne sais pas si c'est possible car j'ai chercher et je n’ai pas trouver ce que je cherche si évidement cela est possible.
est ce possible lorsque je clic sur liste déroulante Feuil1 A1 et que les listes déroulantes A1 des feuilles 2 et 3 se mettent a jour, jusqu'ici , je sais faire, par contre si je devais le faire a partir de la liste Feuil3 et bien que les liste déroulante Feuil 1/2 se mettent a jour , idem avec, la Feuil2 pour les feuil 1/3.
en Résumé quelque soit la liste déroulante que j’utilise des Feuil 1/2/3 , les 3 sont identiques.
j’espère que cette demande est comprise.
para avance merci a vous et prenez soins de vous.
cordialement
 

Pièces jointes

Bonjour,

Cette sale habitude du crossposting

La réponse est ICI
Bonjour Bruno,
Je ne comprends pas , est ce que cela est a éviter ?Si vous regardez bien sur l'autre site, je ne suis pas cotisant alors que sur celui-ci je le suis.Et pour votre info je suis sur un 3 ème site et pourtant je participe financièrement qu'a ce site , alors vous allez me dire pourquoi?, ce site a contribué a prés de 90% de mon projet. En plus lorsque la réponse viens d'un autre site , j'essai de partager le résultat ici pour que tout le mon en profite.
bien a vous et prenez soins de vous
cordialement
 
la solution qui n'est pas de moi pour ceux que cela interresse
d'un certain i20100 en le remerciant
copier les macro suivante:

sur la page code de la Feuil1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Sheets("Feuil2").Range("A1") = Target.Value
Sheets("Feuil3").Range("A1") = Target.Value
Application.EnableEvents = True
End If
End Sub
sur la page code de la Feuil2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Sheets("Feuil1").Range("A1") = Target.Value
Sheets("Feuil3").Range("A1") = Target.Value
Application.EnableEvents = True
End If
End Sub
sur la page code de la Feuil3
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Sheets("Feuil1").Range("A1") = Target.Value
Sheets("Feuil2").Range("A1") = Target.Value
Application.EnableEvents = True
End If
End Sub
 
Re,
Je ne comprends pas , est ce que cela est a éviter ?
Il est regrettable de ne pas comprendre que le crossposting est à éviter
Mon avis :
Nous sommes tous des bénévoles et prenons du temps à vous trouver une solution.
Aller faire sa demande sur plusieurs forums, n'est qu'un manque de respect à mes yeux

Je dirais alors "pourquoi" mais pourquoi aller voir sur un autre site si celui-là t'apporte 90% des solutions ?

En plus lorsque la réponse viens d'un autre site , j'essai de partager le résultat ici pour que tout le monde en profite
Je dirais FAUX.. 1 seul exemple (réponse donnée le 09/04) mais quand on s'éparpille 🙄

Bref, je clôturerai le sujet ICI (tu es mis dans mes ignorés)
Continue surtout de la sorte, sans le moindre respect... la vie est un carma
 
Bonjour et merci pour cet info.Effectivement je comprends mieux.Je vais de ce pas fermer le compte sur les autre site et rester sur celui-ci
Bonjour
je comprends mieux mais surtout le mal que je produisais en agissant de la sorte par ignorance.
J'ai donc décider de rompre avec tous sites et de conserver celui-ci.
je présente toutes mes excuses a toute personnes que j'aurai pu froissé ou manquer de respect qui n’était pas mon intention.
je ne pensais mal mais je ne voyais que par mon angle sans prendre en considération une vue d'ensemble .
prenez soins de vous et cordialement
 
Bonjour
je comprends mieux mais surtout le mal que je produisais en agissant de la sorte par ignorance.
J'ai donc décider de rompre avec tous sites et de conserver celui-ci.
je présente toutes mes excuses a toute personnes que j'aurai pu froissé ou manquer de respect qui n’était pas mon intention.
je ne pensais mal mais je ne voyais que par mon angle sans prendre en considération une vue d'ensemble .
prenez soins de vous et cordialement
 
- 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
8
Affichages
213
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…