Saisie Obligatoire

Bonsoir à tous,

une solution parmi d'autres?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets(1).Range("C1") = "" And Target.Address <> "$C$1" Then
MsgBox "Une valeur doit être saisi en C1 "
Sheets(1).Range("C1").Select
Exit Sub
End If

End Sub
L'utilisateur ne pourra pas sélectionner une autre cellule tant que C1 est vide

En espérant t'avoir aidé

@+
Steplof