Microsoft 365 pb formule vba

le-croco · 25 Mars 2023

Bonjour je souhaite déclencher une macro en fonction de la valeur d'une cellule (nombre de jour restant) qui change en fonctionne de date dans d'autre cellules.
Mon code VBA fonctionne quand je rentre dans la dite cellule et que je valide avec la touche entrée, mais ne fonctionne pas quand je laisse les choses ce faire seul.
Ma formule ne détecte pas le changement de la valeur de la cellule qui ce fait par un formule.
Qqn peut il m aider ?

mon code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 1 To 30: Macro1
Case Is < 1: Macro2
End Select
End If
End Sub

Dranreb · 27 Mars 2023

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Me.[A1].Precedents, Target) Is Nothing Then Exit Sub
   Select Case Me.[A1].Value
      Case 1 To 30: Macro1
      Case Is < 1: Macro2
      End Select
   End Sub

le-croco · 28 Mars 2023

Bonjour a tous merci pour tous vos messages. dsl de ne pas être réactif mais je ne maitrise pas bien le code VBA.
Comme demandé voici mon tableau test.

Microsoft 365 pb formule vba

le-croco

XLDnaute Nouveau

Dranreb

le-croco

XLDnaute Nouveau

Pièces jointes

Discussions similaires