XL 2013 Macro modifier une cellule d'une autre feuille

[ludOw]

Bonjour.

J'ai une "feuille 1" sur laquelle à chaque modification de cellule (Feuille 1, A6) une autre cellule de la "feuille 1" est modifiée.

Voici le code fonctionnel que j'ai utilisé :

Private Sub Worksheet_Change(ByVal Target As Range)  
If Not Application.Intersect(Target, Range("F6")) Is Nothing Then 
Cells(78, 1) = 0  End If End Sub
End Sub

Pour optimiser l'affichage, j'ai du déplacer la cellule F6 sur une autre feuille, en A5.

On a qu'à l'appeler "feuille 2" pour faire simple.

Je ne parviens pas à adapter ma macro.

Voici mon essai...

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Sheet("feuille 2").Range("a5")) Is Nothing Then
   Cells(78, 1) = 0
  End If
End Sub

Ca ne fonctionne evidemment pas...

Si quelqu'un a une idée...

Merci d'avance.

 

[sylvanu]

Bonsoir LudOw,
Dans quelle feuille avez vous mis votre seconde macro ?
Elle doit être dans la feuille2 puisque c'est là que se déclenche la macro.
La ligne If Not Application.Intersect(Target, Sheet("feuille 2").Range("a5")) Is Nothing Then
pose un problème. L'intersect ne peut être que sur la feuille où est la macro.
Donc dans feuille2 mettre :

Private Sub Worksheet_Change(ByVal Target As Range) 
   If Not Application.Intersect(Target, Range("A5")) Is Nothing Then
      Action à effectuer sur feuille1 
   End If
End Sub