XL 2016 listes liées

[perrmi]

bonjour
comment a partir d'une liste agir sur une autre liste identique dans une autre cellule et inversemement.
voir fichier joint
merci
Michel

 

[Hieu]

Salut,

En créant un évènement dans la feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("g6")) Is Nothing Then Range("l6") = Target
If Not Intersect(Target, Range("l6")) Is Nothing Then Range("g6") = Target
End Sub

 

[Robert]

Bonjour Michel, bonjour le forum,

En pièce jointe ton fichier modifié avec la macro événementielle Change ci-dessous :

Dim TEST As Boolean 'déclare la variable TEST

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
'si la cellule modifiée n'est pas G6 ou L6 sort de la procédure
If Not Application.Intersect(Target, Range("G6"), Range("L6")) Is Nothing Then Exit Sub
If TEST = True Then Exit Sub 'si TEST est [Vrai], sort de la procédure
If Target.Address = "$G$6" Or Target.Address = "$L$6" Then TEST = True 'si la cellule modifié est G6 ou L6 alors TEST devient [Vrai]
'si la cellule modifié est G6, L6 prend la valeur de la cellule modifié, TEST devient [Faux], sort de la procédure
If Target.Address = "$G$6" Then Range("L6") = Target.Value: TEST = False: Exit Sub
'si la cellule modifié est L6, G6 prend la valeur de la cellule modifié, TEST devient [Faux]
If Target.Address = "$L$6" Then Range("G6") = Target.Value: TEST = False
End Sub

 

[perrmi]

merci de vos réponses
assez faible en niveau macro et visual basic
je redoute un peu cette procédure
je pensais sans faire des macros
mais encore merci de votre peine
bonne journée

 

[perrmi]

je vous transmet une capture d'ecran ou j'ai mis votre procedure dans une feuille25(life)
recopier avec mes nouvelles cellules mais cela ne marche pas aucune action ne se passe
merci

 

[perrmi]

merci
cela marche
erreur de ma part et ...oui
bonne journée et merci a tous
Michel

 

[mapomme]

Bonjour à tous,
Un autre code :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Range("g6,L6"), Target) Is Nothing Then
      Application.EnableEvents = False
      Range("g6,L6") = Target.Value
      Application.EnableEvents = True
   End If
End Sub

 

[mapomme]

Bonjour à tous,

Une manière de faire sans code VBA.

 

[perrmi]

que de solutions merci a vous
beaucoup de gens compétents sur ce blog
merci a vous
Michel

 

[mapomme]

Bonjour à tous,

Une version analogue à la précédente (sans code VBA) mais qui utilise des controles ActiveX. Ceci permet :

• une lecture directe de la valeur sélectionée (cellule G6)
• une remise à zéro de la valeur de la liste (sélectionner le texte d'une liste puis appuyer sur Suppr.)
• des mises en forme enrichies pour chacune des listes