Boucle trim VBA et controle de format

For Each Cel In Range("E2:E" & x)

' Teste si vide ou non DETECTER CELLULES VIDES

Cel.Value = Trim(Cel)

If Left(Cel, 1) <> "I" And Len(Cel.Value) <> 11 Then

MsgBox "Merci de revoir votre compte " & Cel.Address

Exit For

End If

Bonsoir

pourriez-vous corriger mon code svp? j'ai réussi à faire fonctionner la fonction TRIM (je ne sais pas si c'est la meilleure des facons) mais le" If Left(Cel, 1) <> "I" And Len(Cel.Value) <> 11" ne fonctionne pas. Je souhaite faire un double contrôle.

1/ Que la première lettre de la valeur de chaque cellule commence par un I (i majuscule)

2/la longueur de chaque valeur soit égale à 11

merci d'avance

bien cordialement

     For Each cel In Range("E2:E" & X).Cells
          s = Trim(cel.value)
          If s <> cel.value Then cel.value = s
          If Len(s) Then
               If StrComp(Left(s, 1), "I", 0) <> 0 Or Len(cel.value) <> 11 Then
                    MsgBox "problème avec longueur ou première lettre ", vbInformation, cel.Address
               End If
          End If
     Next

un grand merci pour ton retour ca fonctionne

peux-tu m'expliquer stp à quoi sert la ligne

merci d'avance

 If Len(s) Then

Cordialement

re,

If Len(s) Then est l'équivalent de If Len(s)<>0 Then et regarde si le string s (après le trim) est vide ou pas

merci beaucoup pour ton aide :)

Bonne fin de journée