macro limite de saisie a 3 caracteres

[GHISLAIN]

bonjour a tous


je cherche une formule qui controle la saisie sur des cellules

je voudrais avoir un message lors de la saisie inferieure ou superieure a 3 caracteres sur les cellules non vides de la ligne c4 à ap4

If Not Application.Intersect(Target, Range("C4:Ap4")) Is Nothing Then
If Target <> "" Then
If Len(Target <> 4) Then
MsgBox "NOMBRE DE CARACTERES MAXI MINI EST DE 3", vbExclamation
Target.ClearContents
Target.Select
End If
End If

j'essai avec cette formule qui me met le message tout le temps meme si je saisie 3 caracteres

Nb je souhaite utiliser une macro mes cellules contiennent des listes de validation


merci a tous de votre aide


amicalement

ghislain

 

[Roland_M]

Re : macro limite de saisie a 3 caracteres

bonjour
essai comme ceci

If Not Application.Intersect(Target, Range("C4:Ap4")) Is Nothing Then
If Target <> "" Then
V$ = Target.Value: V$ = Replace(V$, " ", "")
If Len(V$ )<> 3 Then
MsgBox "NOMBRE DE CARACTERES EXCLUSIVEMENT 3", vbExclamation
Target.ClearContents
Target.Select
End If
End If
End If

Roland

 

[GHISLAIN]

Re : macro limite de saisie a 3 caracteres

Bonjour ROLAND M

je viens de recuperer ta proposition de code que j'ai testé et qui fonctionne parfaitement

je te remercie d'etre passé sur mon fil et de m'avoir dépanné


amicalement


ghislain