Procedure IF, verification d'un nombre de caractère

[lolosca]

Bonjour tout le monde,


J'ai écrit ce code pour une vérification du nombre de caractère dans une textbox, cependant que je mette 4 caractères ou moins ou plus, le résultat est le même, il m'affiche la msgbox. Pourtant il me semble qu'il n'y a pas d'erreur dans mon code. Si vous voyez une erreur ou que vous avez une autre solution je sui biensure preneur!!

If Len(ZT1_ExComp) <> 4 Then
    MsgBox ("Erreur Exercice comptable, moins de 4 caractères"), vbCritical
    sortir = 1
    Exit Sub
End If

Si vous voyez une erreur ou que vous avez une autre solution je sui biensure preneur!!

Merci d'avance

 

[vgendron]

Re : Procedure IF, verification d'un nombre de caractère

salut,
je viens de tester et.. pas d'erreur..
si je mets 4 caractères, j'ai pas le message.

 

[CHALET53]

Re : Procedure IF, verification d'un nombre de caractère

Et moi de même

ZT1_ExComp = "rrrr"
If Len(ZT1_ExComp) <> 4 Then
MsgBox ("Erreur Exercice comptable, moins de 4 caractères"), vbCritical
sortir = 1
Exit Sub
End If

a+

 

[Pierrot93]

Re : Procedure IF, verification d'un nombre de caractère

Bonjour à tous,

voir peut être où est placé le code et comment il est déclenché....

bonne journée
@+

 

[lolosca]

Re : Procedure IF, verification d'un nombre de caractère

Merci pour vos réponses, moi aussi je l'ai testé dans un autre fichier et ca marche, je vous mets un fichier test pour que vous puissiez voir.

La formule se trouve dans le module1 et elle est utilisée dans le userform bouton ajouter.

Merci d'avance

 

[Pierrot93]

Re : Procedure IF, verification d'un nombre de caractère

Re,

faire précéder du nom de l'usf dans ce cas :

If Len(NomUSF.ZT1_ExComp)

 

[Pierrot93]

Re : Procedure IF, verification d'un nombre de caractère

Re,

A noter également, travailler en "option explicit", ce qui éviterait ce genre d'erreur, à placer en tête de tous les modules :

Option Explicit

oblige à la déclaration de toutes les variables....