Excel LENT
XLDnaute Nouveau
Bonsoir à tous, Qqn a t-il le tuyau pour imposer une saisie obligatoire dans une cellule ?
Merci
Merci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range('A1') = '' Then Range('A1').Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1).Value = '' Then
MsgBox 'remplissez la cellule A1'
End If
End Sub