Macro sur changement de valeur

Bonjour.

Je cherche à créer une macro en fonction du changement de caractère d'une cellule.

Je sais que la démarche est simple j'ai d'ailleurs 90% de la solution mais je n'y parvient pas.

Le plus simple est que vous y jetiez un œil.

Voilà la fonction que j'insère dans ma feuille :

' Remplace le contenu de la cellule A78 par 0 dès que l'on modifie F6

If Target.Address = "$f$6" Then

Cells(78, 1) = 0

End If

End Sub

Je pense que vous avez compris l'idée. Que dois-je modifier?

Bonjour Arunka, le forum,

Peut-être ainsi:

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

A placer dans le module de la feuille concernée.

Cordialement,

Bonjour,

Ta procédure est fonctionnelle, mais que comporte la cellule F6 ?

Si F6 est une formule, la procédure ne sera pas exécutée.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$6" Then
        Me.Cells(78, 1) = 0
    End If
End Sub

BOnjour et merci pour la réponse.

C'était en effet la bonne. Je passais par une donnée modifiée via une liste en cascade manuelle. C'était donc de la pure modification de cellule

J'ai depuis optimisé mon outils.

Je passe désormais par une valeur indirecte extraite d'un tableau dynamique croisé.

Et du coup en effet... ça ne se modifie plus.

Pour être plus clair, F6 = une autre cellule. Dans la mesure où ce n'est plus une valeur mais une fonction, en effet la macro proposée ne fonctionne pas.

Que dois-je mettre?

Je peux vous mettre en lien le fichier en cours de modification si besoin. Impossible de le faire sur ce message je n'ai pas posté les 10 messages requis pour en avoir le droit.

Je cherche désespérément un moyen d'adapter mon code sans réussite...

Bonjour,

As tu une autre cellule (modifiée physiquement) qui pourrait remplacée F6 ?

Cdlt.

Jean-Eric a écrit :

Bonjour,

As tu une autre cellule (modifiée physiquement) qui pourrait remplacée F6 ?

Cdlt.

Bonjour. Merci pour ton aide.

Pour répondre : non la seule modification qui est faite sur la fiche passe par les boutons de l'outil de segment d'un tableau croisé dynamique.

J'ai remplacé l'ancien système de liste en cascade par ceci... question de lisibilité.

A part cliquer sur les boutons dans la page... on ne modifie aucune cellule...

Le plus simple reste de voir le fichier pour saisir je pense...

https://transfernow.net/48ibj1t648jb

Je suppose avoir trouvé une solution... je ne parviens pas à l'adapter...

J'ai une cellule en A5 dans la feuille "tableau croise dyn1" qui pourrait prendre la place de F6...

Je n'arrive pas à mettre le lien correctement dans la formule qui m'a été donnée...

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