Microsoft 365 VBA Action suivant le résultat d'une cellule

[SPGoder]

Bonjour
je souhaiterai éxécuter une action si le résultat d'une cellule est à 1
Avec le code suivant, cela fonctionne si j'écris manuellement dans la cellule, mais pas lorsque c'est le résultat d'un calcul

Private Sub Worksheet_Change(ByVal Target As Range)

        Const Nombre_de_Poste As String = "B1"
    
        If Not Intersect(Target, Me.Range(Nombre_de_Poste)) Is Nothing Then
            If Target.Value <> 1 Then
                TextBox_MAJ_Date.Visible = False
            Else
                TextBox_MAJ_Date.Visible = True
            End If
        End If
    
End Sub

J'ai simplifié le code au maximum
Merci de vos lumières, car je sèche

 

[TooFatBoy]

Bonjour,

C'est normal : Worksheet_Change n'est pas déclenchée par un changement de valeur suite à un calcul.

 

[SPGoder]

Merci de m'avoir répondu
Je me doutais bien, mais existe_t_il un moyen autre?

 

[TooFatBoy]

Si le résultat de la formule de cette cellule change, c'est probablement que tu as modifié "manuellement" une autre cellule de la feuille. Dans ce cas tu dois pouvoir te baser sur cette modification.
Sinon je ne vois pas. Désolé. 🙁

 

[SPGoder]

Malheureusement non, le résulat de cette cellule est le comptage du nombre d'élement unique sélectionné via un filtre automatique

 

[SPGoder]

Merci de ta réponse. J'ai essayé avec un changement de couleur, mais pas mieux

 

[Cousinhub]

Bonsoir,
Si la cellule à vérifier est bien la cellule B1, tu peux essayer avec cet évènement de feuille :

Private Sub Worksheet_Calculate()
If Range("B1").Value = 1 Then MsgBox "Yes!" 'ou ton code
End Sub

Bonne soirée

Edit, peut-être à borner avec des Application.EnableEvents, selon ce que tu veux faire par la suite
Car le code va se dérouler à chaque fois qu'il y aura un calcul...

 

[TooFatBoy]

Est-ce qu'on peut savoir ce que doit faire la macro quand tu modifies le filtrage dans ta feuille ?