XL 2019 VBA : tester une date

Dranreb à dit:

Bonjour.
Vous feriez mieux je crois de tester le type de donnée de la valeur de la cellule, ce qui est complètement différent de ce qu'on y voit.
Son format d'affichage n'a rien à voir avec ça, et n'est pas appliqué si sa valeur n'est pas numérique.
Par contre VarType(Target.Value) = vbDate, là oui, c'est vrai si on n'a modifié qu'une seule cellule et si du coup sa valeur est demeurée ou devenue une date.

Cliquez pour agrandir...

    Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Not Intersect(Target, Range("Ma_date")) Is Nothing And VarType(Target.Value) = vbDate Then
        Call CLICK_INFOS_OPOC
    End If
    If Not Intersect(Target, Range("Ma_date")) Is Nothing And VarType(Target.Value) <> vbDate Then
       MsgBox "Entrez la date en format jj/mm/aaaa"
    End If
    End Sub

Dranreb à dit:

Oui, pratiquement. Mais j'aurais peut être plutôt écrit :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> Range("Ma_date").Address Then Exit Sub
   If VarType(Target.Value) = vbDate Then
      Call CLICK_INFOS_OPOC
   Else
      MsgBox "Entrez la date en format jj/mm/aaaa", vbExclamation, "Vérification"
      End If
   End Sub

Cliquez pour agrandir...

Dranreb à dit:

Range.Address Propriété (Excel VBA)

Des informations sur la procédure Address de la classe Range

codevba.com

Cliquez pour agrandir...