bonjour a tous ,
j'utilise ce code ci dessous pour obliger un nombre obligatoire de caractere dans la saisie
If Not Application.Intersect(Target, Range("C7:IV42")) Is Nothing Then
If Target.Count = 1 Then
v$ = Target.Value: v$ = Replace(v$, " ", "")
If Len(v$) <> 4 Then
MsgBox "NOMBRE DE CARACTERES EXCLUSIVEMENT 4", vbExclamation
Target.ClearContents
Target.Select
Exit Sub
End If
End If
End If
si je saisie 1563 ce code fonctionne
par contre si je saisie 0256 celui ci ne fonctionne pas
le code ne tien pas compte du zéro
comment contourner le probleme ??
merci a tous de votre aide et suggestion amicalement Ghislain
j'utilise ce code ci dessous pour obliger un nombre obligatoire de caractere dans la saisie
If Not Application.Intersect(Target, Range("C7:IV42")) Is Nothing Then
If Target.Count = 1 Then
v$ = Target.Value: v$ = Replace(v$, " ", "")
If Len(v$) <> 4 Then
MsgBox "NOMBRE DE CARACTERES EXCLUSIVEMENT 4", vbExclamation
Target.ClearContents
Target.Select
Exit Sub
End If
End If
End If
si je saisie 1563 ce code fonctionne
par contre si je saisie 0256 celui ci ne fonctionne pas
le code ne tien pas compte du zéro
comment contourner le probleme ??
merci a tous de votre aide et suggestion amicalement Ghislain