Discussion :

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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

[ARTURO83]

Bonjour,

Il faut mettre la colonne B au format texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[spedy34]

Bonjour,

Il faut mettre la colonne B au format texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é !

[Pierre Fauconnier]

Salut

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








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

[Patrice740]

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.

[patricktoulon]

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

[Pierre Fauconnier]

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

[anasecu]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=A1*3

et tu obtiens bien tes 3 douzaines !

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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