"Lier" des cellules

[cwam]

Bonjour,

Je cherche à lier le contenu de plusieurs (prenons 2 comme exemple) cellules dès que j'en fait évoluer une.
Ce que je cherche concrètement à avoir pour etre plus explicite:
cellule A1: une liste de nom (exaris/Lyon/Marseille)
cellule B1: la meme liste de nom (Paris/Lyon/Marseille)

Comment dois je faire si je veux que les 2 cellules soient toujours identiques?

Fonctionnement:
Si je positionne A1 en Paris, alors B1 se positionne automatiquement en Paris
Ensuite, si je positionne B1 en Lyon (toujours par ma liste), A1 se repositionne en Lyon

Merci

 

[mécano41]

Re : "Lier" des cellules

Bonjour,

...dans B1 tu mets =A1...la cellule B1 contiendra ce qui a été sélectionné dans la liste en A1...mais tu n'auras pas de liste en B1

Cordialement

 

[cwam]

Re : "Lier" des cellules

Bonjour,

Soit vous avez mal compris, soit je me suis mal exprimé
Le problème dans votre solution est si je change la valeur de la cellule B1 (qui doit etre une liste!).
La cellule A1 ne sera alors pas en accord avec la nouvelle valeur de B1

 

[mécano41]

Re : "Lier" des cellules

En VBA, dans le code de la feuille :

Sub Worksheet_Change(ByVal Cible As Range)
Application.EnableEvents = False
If Not Intersect(Cible, Range("A1")) Is Nothing Then
    Range("B1").Value = Range("A1").Value
End If
If Not Intersect(Cible, Range("B1")) Is Nothing Then
    Range("A1").Value = Range("B1").Value
End If
Application.EnableEvents = True
End Sub

Cordialement

 

[cwam]

Re : "Lier" des cellules

ah j'avais oublié de préciser sans macro... désolé...

 

[JHA]

Re : "Lier" des cellules

Bonjour à tous,

Avec des zones déroulantes, à essayer

JHA

 

[cwam]

Re : "Lier" des cellules

bonjour,

ca semble parfait!
Mais autant je vois tres bien le concept des listes déroulantes, autant je n'arrive pas a ce résultat
Quelle est la démarche à suivre?

 

[mécano41]

Re : "Lier" des cellules

Pour voir comment JHA a fait, tu fais un clic droit sur une zone déroulante puis sur l'autre. Pour les créer, il a utilisé des contrôles de formulaire...

Cordialement