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

"Lier" des cellules

cwam

XLDnaute Nouveau
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

XLDnaute Accro
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
 
Dernière édition:

cwam

XLDnaute Nouveau
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

XLDnaute Accro
Re : "Lier" des cellules

En VBA, dans le code de la feuille :

Code:
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
 
Dernière édition:

cwam

XLDnaute Nouveau
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?
 

Discussions similaires

Réponses
6
Affichages
443
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…