Ajouter 0 devant un chiffre

Version imprimable

04/06/2019, 20h56
spedy34

Ajouter 0 devant un chiffre

Bonjour,

J'ai besoin d'ajouter un zéro devant tous les chiffres seul dans la colonne B uniquement.
Je souhaite le faire dans une Macro VBA plutôt que par le format de cellule, car lorsque la cellule est utilisée dans une fonction ça ne rajoute pas le zéro...

En vous remerciant par avance de votre aide.

re
bonsoir
applique un numberformat au cellule qui ont le round(.value,0)=au .value sur toutes les cellules utilisée de la colonne"B"

Code:

1
2
3
4
5
6
7
8
9
 
 
Sub test()
    For Each cel In Sheets(1).Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
        If IsNumeric(cel.Value) Then
            If Round(cel.Value, 0) = cel.Value Then cel.NumberFormat = "00"
        End If
    Next
End Sub

04/06/2019, 21h42
spedy34

Bonjour et merci pour ta réponse patricktoulon !

En effet c'est efficace, mais malheureusement j'ai le même problème que lorsque j'utilise le format de cellule personnalisé 0#
Lorsque j'utilise une case B avec la fonction suivante :

Code:

=CONCATENER(A1;"|";B1)

Et bien le chiffre ne s'affiche pas avec le 0 ...

En fait, je suis obligé de forcer le format de cellule en mode texte. Mais si je fais cela, alors le code VBA ne fonctionne plus évidemment :?

Bonjour,

Il faut mettre la colonne B au format texte

Code:

1
2
3
4
5
6
Sub test()
    Columns("B:B").NumberFormat = "@"
    For Each cel In Sheets(1).Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
        If IsNumeric(cel.Value) Then cel.Value = "0" & cel.Value
    Next
End Sub

Cdlt

05/06/2019, 12h53
Patrice740

Nombre vs chiffre

Bonjour,

Excel a une tendance naturelle (et compréhensible) à transformer les chiffres en nombres. Seul le format de cellule 'Texte' permet d'écrire dans une cellule des chiffres commençant par zéro sans qu'Excel ne le transforme en nombre. Le format numérique "00" ne fait que changer l'apparence d'un nombre sans réellement ajouter de zéro devant.

Citation:
Envoyé par ARTURO83
Bonjour,

Il faut mettre la colonne B au format texte
Code:

1 2 3 4 5 6 Sub test() Columns("B:B").NumberFormat = "@" For Each cel In Sheets(1).Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row) If IsNumeric(cel.Value) Then cel.Value = "0" & cel.Value Next End Sub
Cdlt
Splendide ! Merci beaucoup à vous deux pour votre réactivité !

05/06/2019, 20h46
Pierre Fauconnier

2 pièce(s) jointe(s)

Salut

Citation:

Envoyé par patricktoulon

[...]
applique un numberformat au cellule qui ont le round(.value,0)=au .value sur toutes les cellules utilisée de la colonne"B"[...]

Je me méfierais grandement de cette solution qui, si elle "corrige" visuellement la valeur, ne la modifie pas. Ca peut amener à des casse-têtes par la suite.

Pièce jointe 481192

Pièce jointe 481195

Normalement, dans un classeur bien construit, ne devraient être en numérique que les cellules contenant des valeurs sur lesquelles on peut réaliser des opérations arithmétiques. Je doute que l'on manipule arithmétiquement les cp ou les numéros de téléphone, sauf dans le cas assez rare où un lillois marierait une privadoise et qu'ils s'établiraient à Perpignan... ;)
05/06/2019, 22h43
patricktoulon

Citation:

Envoyé par spedy34

Bonjour,

J'ai besoin d'ajouter un zéro devant tous les chiffres seul dans la colonne B uniquement.
Je souhaite le faire dans une Macro VBA plutôt que par le format de cellule, car lorsque la cellule est utilisée dans une fonction ça ne rajoute pas le zéro...

En vous remerciant par avance de votre aide.

on est bien d'accords qu'a partir du moment ou il y a vraiment un "0" devant elle n'est plus exploitable en tant que nombre t'en es bien conscient

perso je ferais la modif dans ta fonction l'ors de la référence a ces cellules comme ca tu peux faire des opérations numériques ou concaténation avec d'autre cellules en formatant les valeurs (string avec format(cellule.value,"00"))
06/06/2019, 07h49
Pierre Fauconnier

Citation:

Envoyé par patricktoulon

[...]
perso je ferais la modif dans ta fonction l'ors de la référence a ces cellules comme ca tu peux faire des opérations numériques ou concaténation avec d'autre cellules en formatant les valeurs[...]

Là on est d'accord ;)
06/06/2019, 08h54
anasecu

Bonjour,

Citation:

Envoyé par patricktoulon

on est bien d'accords qu'a partir du moment ou il y a vraiment un "0" devant elle n'est plus exploitable en tant que nombre

Si tu as 012 en format texte en A1 ou même '012, rien n'empêche Excel de te résoudre la formule

Code:

=A1*3

et tu obtiens bien tes 3 douzaines !
06/06/2019, 09h11
Pierre Fauconnier

1 pièce(s) jointe(s)

Citation:

Envoyé par anasecu

Bonjour,

Si tu as 012 en format texte en A1 ou même '012, rien n'empêche Excel de te résoudre la formule

Code:

=A1*3

et tu obtiens bien tes 3 douzaines !

Il n'y a pas que des cas comme celui-là. Il y des cas où ce n'est pas si simple. Les besoins de formatage de nombres en Excel sont variés.

Pièce jointe 481262