XL 2019 SI date < à aujourd'hui = message

Sellig

XLDnaute Nouveau
Bonjour,

Vous serez-t-il possible me modifier cette macro afin de lui demander ça :

Si la date de la cellule A1 est inférieur à aujourd’hui alors ouvrir msbox

(il serait bien que je puisse modifier A1 et le message par la suite si besoin)



Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Cells.Count > 12 Then Exit Sub

If IsNumeric(Target) And Target.Address = "$A$1" Then

Select Case Target.Value

Case Is > 5: MsgBox ("Bonjour")

End Select

End If

End Sub



Avec les dates je ni arrive pas


Grand merci d’avance

Cordialement
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Sellig,
Utilisez la balise </> pour le code, c'est plus lisible :
1699798310671.png

Essayez :
VB:
Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 12 Then Exit Sub
If IsDate(Target) And Target.Address = "$A$1" Then
    If Target < Date Then MsgBox ("Bonjour")
End If
End Sub
 

Discussions similaires

  • Résolu(e)
Microsoft 365 pb formule vba
Réponses
15
Affichages
832

Statistiques des forums

Discussions
312 534
Messages
2 089 379
Membres
104 150
dernier inscrit
pape.so