Modification de cellules depuis deux feuilles

Bonjour à tous les champions :)

J'ai une petite colle pour vous

J'ai un classeur dans lequel j'ai deux onglets.

dans le 1er onglet, j'ai une date en B2 et une date en E2

dans le 2eme onglet , une date en C2 et une en G2.

je souhaiterais que les dates correspondent mais que je puisse les modifier depuis n'importe lequel de mes deux onglets : B2=C2 et E2=G2

Je ne sais pas si je suis clair ahahah

Hâte de vous lire

merci à tous

Salut Kevin,

code à coller dans le module VBA 'ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'
Dim iOff%
'
Application.EnableEvents = False
'
If Not Intersect(Target, Union(Sh.[B2], Sh.[C2], Sh.[E2], Sh.[G2])) Is Nothing Then
    iOff = IIf(Target.Column = 2 Or Target.Column = 5, Fix(Target.Column / 2), -Fix(Target.Column / 3))
    With Worksheets(IIf(iOff > 0, "Feuille2", "Feuille1"))
        .Range(Target.Address).Offset(0, iOff).Value = CDate(Target)
    End With
End If
'
Application.EnableEvents = True
'
End Sub

A+

Salutations à toi curulis57 :)

Super job merci beaucoup, tu as assuré

Ce forum est vraiment génial

bon courage à tous et merci encore

Kévin