XL 2019 SI date < à aujourd'hui = message

Sellig · 12 Novembre 2023

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

Sellig · 12 Novembre 2023

Ça fonctionne nickel.

Grand grand merci

Bonne fin de journée

sylvanu · 12 Novembre 2023

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

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

Sellig · 12 Novembre 2023

sylvanu à dit:
Bonjour Sellig,
Utilisez la balise </> pour le code, c'est plus lisible :
Regarde la pièce jointe 1183538
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

Sellig · 12 Novembre 2023

Ça fonctionne nickel.

Grand grand merci

Bonne fin de journée

XL 2019 SI date < à aujourd'hui = message

Sellig

XLDnaute Junior

Sellig

sylvanu

XLDnaute Barbatruc

Sellig

XLDnaute Junior

Sellig

XLDnaute Junior

Discussions similaires