Microsoft 365 Va et vient entre 2 cellules

[JBL07]

Bonjour le Forum,

Après recherches, j'ai reporté un code trouvé sur ce forum en tentant de l'appliquer à un classeur ( ci-dessous, totalement simplifié )

Je souhaite entre 2 feuilles établir un va et vient sur 2 cellules, qui ferait que si je change la date dans la cellule A, elle s'applique à la B, et inversement

Hélas, ça ne semble pas fonctionner : il y a une demande de débogage sur la cellule qui reçoit la copie de la nouvelle date, quel que soit le sens de la tentative

Si quelqu'un peut m'aider à comprendre ??
Merci !

 

[sylvanu]

Bonjour JBL,
HiHiHi
Vous avez simplement oublié de renommer les feuilles. Dans le VBA, Il y avait encore Feuil1 Feuil2 au lieu de Accueil et Catégories.
En PJ c'est rectifié.

 

[JBL07]

Pfffff oh la la...
Un grand merci sylvanu

 

[fanfan38]

Bonjour
Petite Erreur ou tu utilise le nom de la feuille sheets("Catégories")
ou tu utilise la référence de la feuille sheets(Feuil12) dans ce cas tu ne mets pas de "
A+ François

 

[sylvanu]

Re JBL, bonjour Fanfan,
Ou encore plus simple ( à mes yeux ), nommer les deux cellules concernées. Dans ce cas plus besoin de faire référence aux feuilles et de savoir où elles se trouvent. Qui plus est, ces cellules peuvent être bougées sans conséquence ( ajout de colonnes, de lignes ) :

[DateCat] = target.Value
et
[DateAccueil] = target.Value

 

[patricktoulon]

bonjour

Petite Erreur ou tu utilise le nom de la feuille sheets("Catégories")
ou tu utilise la référence de la feuille sheets(Feuil12) dans ce cas tu ne mets pas de "

avec le codename tu met même pas sheets(..) d'ailleurs

mais bon je vois que l'on parle de L16 alors que c'est I18 sur "Acceuil"
perso je regroupe les 2 events feuille_change dans le thisworkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Select Case Sh.Name
    Case "acceuil": If Target.Address(0, 0) = "I18" Then Application.EnableEvents = False: Feuil12.[B5] = Target
    Case "Catégories": If Target.Address(0, 0) = "B5" Then Application.EnableEvents = False: Feuil5.[I18] = Target
    End Select
    Application.EnableEvents = True
End Sub

et je vire le code event change des deux feuilles

 

[JBL07]

On en apprends tous les jours !
Merci pour les différentes solutions, celle de patricktoulon étant trop complexe pour moi
La première fonctionnant très bien, je ne touche plus à rien dans mon classeur

Merci à vous