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é :
VB:
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...
Code:
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
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 :
VB:
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