A+++Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'ici colonneA
If Len(Target) ="" THEN exit sub else
If Len(Target) > 7 Or Len(Target) < 7 Then
MsgBox " "
Target.Select
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target = "" Then Exit Sub
If Target <> 7 Then
MsgBox Target.Value
Target.Select
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Len(Target) = 7 Then
MsgBox "La cellule doit contenir 7 caractères, ni plus ni moins", vbExclamation, "ERREUR"
Target.Select
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "[COLOR="Red"]$A$1[/COLOR]" Then
If Len(Target) < 7 Then MsgBox "Nombre de caracteres < 7": target.Select
If Len(Target) > 7 Then MsgBox "Nombre de caracteres > 7": target.Select
End If
End Sub