XL 2019 SI date < à aujourd'hui = message

[Sellig]

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]

Bonjour Sellig,
Utilisez la balise </> pour le code, c'est plus lisible :

Essayez :

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

 

[Sellig]

Bonjour Sellig,
Utilisez la balise </> pour le code, c'est plus lisible :
Regarde la pièce jointe 1183538
Essayez :

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

 

[Sellig]

Ça fonctionne nickel.

Grand grand merci

Bonne fin de journée