help boucle if

[ibizalo]

bonjour le forum ,
aujourd'hui je travail sur une application le problème c'est que ma boucle if ne veut pas tourner.
ce que je voudrai faire c'est insérer "0"en première position si le deuxième et ou en 4ème position si l'avant dernier caractère est une lettre. en sachant que le nombre de caractère ne doit pas excéder 5 caractères.
tout ça pour avoir un résultat du type
01A01
quelqu'un aurait une idée??
merci
je joint le fichier avec l'exemple
je n'arrive pas franchement;

j'ai essayé ça mais marche pas

Sub rang()
With ActiveSheet
Dim s As Integer

For s = 3 To Cells(Cells.Rows.Count, "B").End(x1Up).Row
If Len(Cells(s, 16)) = 3 Then Cells(s, 17) = "0" & Len(Cells(s, 16))

Next
End With

End Sub

 

[ibizalo]

Re : help boucle if

Merci d'avance

 

[CHALET53]

Re : help boucle if

bonjour,

Un essai
J'ai été obligé de supprimer les blancs présents dans la colonne C
Et mis les colonnes au format texte
Résultat dernière colonne

a+

 

[ibizalo]

Re : help boucle if

merci pour ton travail mais je constate que tu as supprimer la lettre dans certaines cellules.
est-ce possible de les garder??

 

[CHALET53]

Re : help boucle if

Et comme cela ?

 

[ibizalo]

Re : help boucle if

salut chalet53
parfait fonctionne à merveille, j'ai juste changé cells(s,8) en cells(s,3) pour ne pas rajouter de colonne .
merci pour cette solution

 

[ibizalo]

Re : help boucle if

re bonjour le fil
ups le sub ne fonctionne pas à partir d'un certain nombre de colonne(n=5621)
quelqu'un à une idée??