Discussion :

[moimemessssssssss]

Bonjour,

Dans la colonne A, j'ai des cellules composées que de chiffres et d'autres cellules composées de lettres et de chiffres melangés.
je souhaiterais rajouter 3 ou 4 "Zéros" dans les cases contenant que des chiffres dépendant du nombre de chiffres présent et supprimer les "Zeros" des cases avec des lettres et des chiffres (seules les " zéros" en debut de case sont à supprimer, ceux en milieu et fin de case sont à garder).

Alors pour rajouter les "0" j'ai esasayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
replace(cells(3,1),"","0",1)

mais ca rajoute rien du tout

pour supprimer les 0 , j'ai esayé de les remplacer par des espaces mais le problème c'est qu'il tous les 0 par des espaces, je ne sais pas comment lui préciser que c'est seulement les 0 en début de cellules qui sont à remplacer.
merci de votre aide

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Do while Right(cells(3,1),1) = "0"
      Cells(3,1) = Left(cells(3,1),len(cells(3,1))-1)
Loop

Je regarde autre chose

Testé mais tu auras toujours la même boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Do while Cells(1, 1) Like ("*0") 
    Cells(1, 1) = Left(Cells(1, 1), Len(Cells(1, 1)) - 1)
Loop

[moimemessssssssss]

Bonjour,


j'ai teste et j'ai reussi à supprimer des zéros merci beaucoup
sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Do while Cells(1, 1) Like ("*0")

le "*0" ca veut dire qu'il cherche si la case se termine par un zero ou sil y a un zero dans la case??
si c 'est le premier cas, comment verifier si la case contient un 0 o milieu de l'expression.?
et comment rajouter un 0 à une position x de l'expression? j'ai esayé avec la fonction replace mais ca me donne des resultats non satisfaisantes.

merci beaucoup