XL 2019 retirer les zero en fin de nombres

[Neileru4]

Bonjour a tous
J'aimerais pouvoir retiré mes zero sur mes fin nombres en sachant que dans mes cellules le nombres de zero varies
quelqu'un a til une idée
en sachant que j'ai utilisé la formule =GAUCHE(E8;NBCAR(E8)-2) mais cela ne vas pas car le nombre de zero est différant
ci joint mon fichier

 

[patricktoulon]

Bonjour si tu veux retirer 2 zeros
en H8 tu met
=SI(DROITE(E8;2)="00";GAUCHE(E8;NBCAR(E8)-2);E8)
et tu etends la formule vers le bas

 

[AL 22]

Bonjour Neileru4, patricktoulon, le forum,

Je n'ai pas compris la même chose ...

=SUBSTITUE(E8;0;"")

Je sors tous les 0.
Cordialement.

AL 22

 

[merinos]

Bonjour @Neileru4 ,

je vois un possibilité avec un systeme itératif....

Pour simplifier les écritures j'emploie un LET....


Si tu disposait de la version 365, une LAMBDA serait possible en itératif.
Sinon on passe par une macro...

 

[Neileru4]

Bonjour Neileru4, patricktoulon, le forum,

Je n'ai pas compris la même chose ...

=SUBSTITUE(E8;0;"")

Je sors tous les 0.
Cordialement.

AL 22

merci c'est ca que je voulais

 

[job75]

Bonjour,

merci c'est ca que je voulais

Vous êtes sûr ? Car avec le post #3 A005000 va donner A5 ?

Sinon avec une fonction VBA pour ne supprimer que les zéros en fin de chaîne :

Function SupZero(x$)
SupZero = x
While Right(SupZero, 1) = "0"
    SupZero = Left(SupZero, Len(SupZero) - 1)
Wend
End Function

A+

 

[mapomme]

Bonjour à tous ,

Pour supprimer tous les zéros en fin de texte comme le demandeur l'a formulé dans sa question.

Avec une formule matricielle en F8 à recopier vers le bas :
=GAUCHE(E8;NBCAR(E8)-MAX(SIERREUR(EQUIV(DROITE(E8;LIGNE($1:$33));REPT(0;LIGNE($1:$330));0);"")))

 

[job75]

Une autre formule matricielle :

=SIERREUR(GAUCHE(E8;EQUIV(1;LN(STXT(E8;LIGNE(INDIRECT("1:"&NBCAR(E8)));1)<>"0")));"")