Lier 3 cellules ensemble [Résolu]

[Magic_Doctor]

Bonjour,

Le titre n'est, en effet, pas terrible...
J'ai 3 listes déroulantes, chacune attachée à une cellule (fucshia).

Si je choisis une valeur dans l'une des 3 listes, je voudrais que cette valeur s'affiche dans les 2 autres cellules fucshia, et ceci quelle que soit la liste.
Il doit y avoir un problème de boucle. Bref, ça ne marche pas.

Si quelqu'un peut m'aider à résoudre ce problème.

 

[Jacky67]

Bonjour,
Essaye comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
If Not Intersect(Target, [I2,C4,M4]) Is Nothing Then
  [I2,C4,M4] = Target.value
End If
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

 

[Magic_Doctor]

Bonsoir Jacky67,

Super, ça marche.

Merci beaucoup !