Petit probleme de code avec VBA

Bonjour tous le monde,

Dernièrement j'ai crée un petit tableau dans lequel je souhaitai faire mon inventaire.

Dans ce tableau j'ai 2 cellules c1 et c3 qui doivent constamment avoir la même valeur, autrement dit si j'affecte la valeur X a c1, c3 doit prendre la valeur X également, et si j'affecte la valeur X a c3, c1 doit également prendre la valeur X.

Vous l'aurez compris, il y a un problème de boucle.

J'ai déjà trouvé un petit morceau de programme à insérer dans les macros, cependant je n'arrive pas à le modifié comme je le souhaite.

J'ai mis en pièces jointes le fichier excel en question.

En espérant que vous pourrez éclaircir ma lanterne.

Merci d'avance.

Cordialement,

Vaeolia

Bonjour

Remplacer le code par celui ci-dessous

Dim ok As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If ok Then Exit Sub
If Not Intersect(Target, Range("C1", "C3")) Is Nothing Then
    ok = True
    Select Case Target.Address
        Case Is = "$C$1": i = 2
        Case Is = "$C$3": i = -2
    End Select
    Target.Offset(i, 0).value = Target.value
  End If
ok = False
End Sub

Attention que l'instruction DIM doit se trouver en haut de la fenêtre

Si ok et terminé merci de cloturer le fil lors de votre réponse en cliquant sur la case à cocher verte à coté du bouton EDITER

Codialement

Bonjour Dan,

Merci beaucoup pour votre solution j'ai le plaisir de vous annoncer que la formule fonctionne parfaitement ^^.

J'ajouterai en plus qu'elle a l'avantage d’être facilement modifiable, ce qui me convient très utile.

Grâce à vous j'ai économisé un temps précieux.

Merci encore et bonne journée.

Cordialement,

Vaeolia