Enlever les 0 devant

Excel
#1

Bonjour j’ai plus de 500 références que je dois enlever le 0 devant (j’ai mis en standard) ça ne fonctionne pas car mes références se terminent par une lettre ou lettre après les 0 :

069911023MX je voudrais 69911023MX
00E4420000492 je voudrais E4420000492
000E504269559 je voudrais E504269559

dans l’attente d’une réponse bonne journée
Patricia

#2

Bonjour,

Avec une macro (dans un module standard) :

Sub test()
Dim c As Range
Dim s As String
  With Worksheets("Feuil1").UsedRange.Columns("A") 'Adapter les noms de feuille et de colonne
    For Each c In .Cells
      s = c.Text
      Do While Mid(s, 1, 1) = "0": s = Mid(s, 2): Loop
      c.Formula = s
    Next c
  End With
End Sub
#3

Merci Patrice33740 mais je sais pas créer de macro, j’ai demandé une formation et j’attends toujours une réponse de mon employeur

#4

Voilà un fichier avec la macro :

  • Copies / colles tes références dans la colonne A
  • Exécute la macro
  • Copies / colles les références dans ton fichier

Supprimer les 0 au début des valeurs.xlsm (14,9 Ko)

#5

Bonjour Patricia,
Je peux te proposer une formule sans passer par le VBA pour la rédaction d’une formule.
La formule est un peu longue mais cela fonctionne.

Je joins le fichier Excel qui reprend les cas que tu as soumis à savoir
069911023MX
00E4420000492
000E504269559

enlever un ou deux ou trois zéros.xlsx (10,9 Ko)

Bien à toi et bon travail

#6

Re,

Avec une formule (quel que soit le nombre de 0) :

=STXT(A1;TROUVE(GAUCHE(SUBSTITUE(A1;"0";"");1);A1);NBCAR(A1))
#7

Merci beaucoup Patrice33740

#8

Merci Beaucoup CordierEt

#9

Encore merci pour ton aide

#10

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.