Meilleure façon de supprimer plusieurs zéros de gauche dans les valeurs non numériques dans Excel

1

Je lisais à propos de "Meilleur moyen de supprimer les zéros non significatifs d'une valeur non numérique dans Excel" et j'adore la solution proposée, mais le problème est que son retrait de 1 seul des zéros précédents est nul. J'en ai besoin pour trouver les zéros et les supprimer tous. J'ai donc utilisé cette formule et inséré une autre instruction if comme ceci:

=IF( LEFT(S3) = "0", RIGHT(S3, LEN(S3)-1),IF(
    LEFT(S3) = "0",
    RIGHT(S3, LEN(S3)),
    S3))

Mais ça n'a pas marché.

microsoft-excel

— user2089542
source

Qu'est-ce qui viendra après le 0, que des chiffres ou du texte également?

— Scott Craner

Vous devez définir la longueur maximale de chaque chaîne de texte et la longueur maximale du nombre sans zéros. Je vois des solutions créatives, mais elles sont toutes hypothétiques en dehors de votre problème théorique.

— ejbytes

0

Vous n'avez pas mentionné le nombre maximal de «0» attendu dans votre valeur alphanumérique. Voici donc un exemple avec un maximum de 4 zéros:

=IF(LEFT(A1,4)="0000",RIGHT(A1,LEN(A1)-4), IF(LEFT(A1,3)="000",RIGHT(A1,LEN(A1)-3), IF(LEFT(A1,2)="00",RIGHT(A1,LEN(A1)-2), IF(LEFT(A1,1)="0",RIGHT(A1,LEN(A1)-1), A1))))

Cela vous donnera le prochain résultat:

Bien sûr si votre valeur est numérique un seul:

=VALUE(A1)

suffira.

— fernando.reyes
source

Merci beaucoup fernando pour votre aide. Cela a très bien fonctionné. Merci pour votre aide.

— user2089542

0

Utilisez cette formule matricielle:

=MID(A1,MIN(IF(MID(A1,ROW(INDIRECT("1:" & LEN(A1))),1)<>"0",ROW(INDIRECT("1:" & LEN(A1))))),LEN(A1))

S'agissant d'une formule matricielle, elle doit être confirmée avec Ctrl-Maj-Entrée au lieu de Entrée lorsque vous quittez le mode édition. Si cela est fait correctement, Excel mettra {} autour de la formule.

Il trouvera le premier non 0 et définissez-le comme premier caractère de la fonction MID.

— Scott Craner
source

0

Essayez cette petite fonction définie par l'utilisateur:

Public Function nozero(s As String) As String
    Dim l As Long
    l = Len(s)

    If Left(s, 1) <> "0" Then
        nozero = s
        Exit Function
    End If

    t = s
    While Left(t, 1) = "0"
        t = Mid(t, 2)
    Wend
    nozero = t
End Function

— Gary's Student
source

Et si vous ajoutez Option Explicit En haut de votre module, vous pouvez l’utiliser comme formule locale.

— ejbytes

@ejbytes Vous avez raison

— Gary's Student

0

Définir un nom qui crée un tableau de nombres 1:255

seq   refers to:  =ROW(INDEX($1:$65535,1,1):INDEX($1:$65535,255,1))

Ensuite, utilisez cette formule entrée en maintenant enfoncée ctrl + shift en frappant Entrer

=MID(A1,MATCH(TRUE,MID(A1,seq,1)<>"0",0),99)

— Ron Rosenfeld
source