Données validations

Private test As Boolean 'déclare la variable test
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub 'si le changement à lieu ailleurs que dans la colonne B, sort de la procédure
If test = True Then Exit Sub 'si la variable test est vraie, sort de la procédure
 
test = True 'définit la variable test
If UCase(Target.Value) = "FAIT" Then 'condition 1 : si la donnée est "fait" (accepte les majuscules et/ou les minuscules)
    If Target.Offset(0, -1).Value = "" Then 'condition : si la cellule en colonne A est vide
        Target.ClearContents 'vide la cellule de la colonne B (ceci provoque une boucle de cette macro où intervient la variable test)
        MsgBox "Vous devez presicer la date en colonne A !"
        Target.Offset(0, -1).Select 'sélectionne la cellule de la colonne A
    End If 'fin de la condition
End If
test = False 'redéfinit la variable test
End Sub

Private test As Boolean 'déclare la variable test
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dA As Date 'déclare la variable dA (Date de la colonne A)
 
If Target.Column <> 2 Then Exit Sub 'si le changement à lieu ailleurs que dans la colonne B, sort de la procédure
If test = True Then Exit Sub 'si la variable test est vraie, sort de la procédure
 
test = True 'définit la variable test
If UCase(Target.Value) = "FAIT" Then 'condition 1 : si la donnée est "fait" (accepte les majuscules et/ou les minuscules)
    On Error Resume Next 'gestion des erreurs : en cas de bug passe à la ligne suivante
    dA = CDate(Target.Offset(0, -1)) 'définit la variable dA (si la cellule ne contient pas une date cela provoque un bug)
    If Err <> 0 Then 'condition 2 : si bug
        'Target.ClearContents 'peut-être plus nécesssaire dans cet exemple ???
        MsgBox "Vous devez taper une date valide en colonne A !" 'message
        Target.Offset(0, -1).Select 'sélectionne la cellule de la colonne A
    End If 'fin de la condition 2
    On Error GoTo 0 'fin de la gestion des erreurs
End If 'fin de la condition 1
test = False 'redéfinit la variable test
End Sub

Private test As Boolean 'déclare la variable test
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dA As Date 'déclare la variable dA (Date de la colonne A)
If Target.Column <> 2 Then Exit Sub 'si le changement à lieu ailleurs que dans la colonne B, sort de la procédure
If test = True Then Exit Sub 'si la variable test est vraie, sort de la procédure
 
test = True 'définit la variable test
If UCase(Target.Value) = "FAIT" Then 'condition 1 : si la donnée est "fait" (accepte les majuscules et/ou les minuscules)
    If IsDate(Target.Offset(0, -1).Value) = False Then
        'Target.ClearContents 'peut-être plus nécesssaire dans cet exemple ???
        MsgBox "Vous devez taper une date valide en colonne A !" 'message
        Target.Offset(0, -1).Select 'sélectionne la cellule de la colonne A
    End If 'fin de la condition 2
    On Error GoTo 0 'fin de la gestion des erreurs
End If 'fin de la condition 1
test = False 'redéfinit la variable test
End Sub