Automatiser l'ajout de 0

Bonjour à tous,

J’aimerai construire une macro toute simple qui ferait en sorte que chaque cellule d’une colonne soit automatiquement composé de 8 chiffres en ajoutant si nécessaire le nombre de 0 suffisant devant le chiffre en question. Par exemple si la cellule aurait pour nombre 543, la macro ajouterait 5 Zeros, soit 00000543.

C'est surement simple mais Je n’arrive pas à retranscrire cette condition de nombre de chiffre minimum et d’ajout de 0.

Merci à tous pour votre aide,

Bonjour,

Sans macro, tu sélectionnes ta colonne, "Format/Cellule", tu sélectionnes "Personnalisé", en bas, et dans la case "Type", tu entres 8 zéros.

Bonne journée

Pourquoi faire compliqué quand on peut faire simple Merci !!

Mais simple question de curiosité, en VBA ce genre de chose doit etre possible non ?

Bonjour,

Un exemple avec une fonction personnalisée sous VBA.

Cdlt

Option Explicit
Public Function Format_cellule(Valeur)
Dim x As Long
     If Not IsNumeric(Valeur) Then
          Format_cellule = ""
          Exit Function
     End If
     x = Len(Valeur)
     x = 8 - x
     Format_cellule = Application.Rept(0, x) & Valeur
End Function

Merci !!

alors pour être honnête je ne comprends pas toute la formule,

qu'est ce que le ifnot, une formule de non condition ? pourquoi exit function ?

merci encore !

Bonjour,

Si je peux me permettre

If Not IsNumeric(Valeur) Then
          Format_cellule = ""
          Exit Function

Si la valeur de la cellule n'est pas numérique, il ne faut pas appliquer le code d'où la sortie de la fonction

ah je vois merci,

j'essaye de l'appliquer ainsi mais évidemment ça ne marche pas

Public Function Format_cellule()

Dim x As Long

If Not IsNumeric(Range("A3")) Then

Format_cellule = ""

Exit Function

End If

x = Len(Range("A3"))

x = 8 - x

Format_cellule = Application.Rept(0, x) & (Range("a3"))

End Function

Bonsoir,

Avec un exemple

Cdlt

Ah en fait il n'y avait rien à changé, pour ma part j'essayait de faire en sorte que la colonne avec les chiffres soit directement changée sans faire appel à une autre colonne. Mais bon c'est un point de détail