XL 2019 retirer les zero en fin de nombres

patricktoulon

XLDnaute Barbatruc

• 20 Décembre 2023

• #2

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

 

Dernière édition: 20 Décembre 2023

Vote positif 0 Vote négatif

AL 22

XLDnaute Occasionnel

• 20 Décembre 2023

• #3

Bonjour Neileru4, patricktoulon, le forum,

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

Code:

=SUBSTITUE(E8;0;"")

Je sors tous les 0.
Cordialement.

AL 22

 

Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro

• 20 Décembre 2023

• #4

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...

 

Pièces jointes

• remplace zero.xlsx

  12.5 KB · Affichages: 4

Vote positif 0 Vote négatif

Neileru4

XLDnaute Occasionnel

• 20 Décembre 2023

• #5

AL 22 à dit:

Bonjour Neileru4, patricktoulon, le forum,

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

Code:

=SUBSTITUE(E8;0;"")

Je sors tous les 0.
Cordialement.

AL 22

Cliquez pour agrandir...

merci c'est ca que je voulais

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Décembre 2023

• #6

Bonjour,

Neileru4 à dit:

merci c'est ca que je voulais

Cliquez pour agrandir...

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 :

VB:

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

A+

 

Pièces jointes

• Classeur1.xlsm

  15.8 KB · Affichages: 1

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 20 Décembre 2023

• #7

Bonjour à tous 🙂 ,

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

Cliquez pour agrandir...

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);"")))

 

Pièces jointes

• Neileru4- suppr 0- v1.xlsx

  14.4 KB · Affichages: 0

Dernière édition: 20 Décembre 2023

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Décembre 2023

• #8

Une autre formule matricielle :

Code:

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

 

Pièces jointes

• Classeur1.xlsx

  10.7 KB · Affichages: 1

Vote positif 0 Vote négatif