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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

SPGoder

XLDnaute Occasionnel
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

VB:
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
 
Bonsoir,
Si la cellule à vérifier est bien la cellule B1, tu peux essayer avec cet évènement de feuille :
VB:
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...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
389
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
981
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
423
Retour