Formats de cellule

Version imprimable

14/11/2012, 11h37
chtrousselle

Formats de cellule

Bonjour,

j'ai besoin via une macro de concaténer un 0 à un nombre de 7 chiffres à toute une colonne

J'ai essayé ceci : Range("B:B").Cells.EntireColumn = "00000000" mais le format affecte l'affichage et non la valeur de la cellule.

Ex: l'affichage est 01234567 alors que la valeur de la cellule est 1234567

J'ai besoin de faire une comparaison entre deux cellules donc je dois avoir exactement un nombre avec une valeur de 8 chiffres

Quelqu'un aurait-il une solution ?

Merci d'avance

concaténation

Bonjour,

Hou là là!

Je te conseille d'abord de définir le champ des données dont tu veux modifier l'affichage puis d'utiliser la propriété NumberFormat.

Exemple à adapter
Code:

1 2 3 4 5 6 7 8 Public Sub ESSAI() Dim derncel As Range With Sheets("lafeuille") Set derncel = .Cells(.Rows.Count, 5).End(xlUp) 'si colonne E .Range("E1", derncel).NumberFormat = "00000000" End With Set derncel = Nothing End Sub
Reviens si nécessaire.

14/11/2012, 12h11
chtrousselle

Merci pour votre réponse,

Mais cette méthode modifie l'affichage et non la valeur (dans la barre de formule on a toujours par exemple 123 alors que je souhaiterais avoir 00000123)
14/11/2012, 12h18
gui-llaume

dans une boucle sur chaque ligne de ta colonne,
je testerai le nom de caractères de la valeur dans la cellule,
puis je modifie la valeur de cette cellule avec le nombre de zéro nécessaire
14/11/2012, 12h22
QuestVba

Bonjour

sans macro

a1:0
b1:123
c1:

Code:

=A1&REPT(0;7-NBCAR(B1))&B1

te donne 00000123
14/11/2012, 12h24
MarcelG

L'affichage n'affecte en rien la valeur.

Une cellule peut très bien avoir la valeur 150 et afficher, par format personnalisé, "TRUCMUCH 150".

Quant à Gui-llaume, tant qu'à faire mieux vaut éviter les balayages.
14/11/2012, 12h34
MarcelG

Rept

Bonjour Lionel,

J'ai l'impression que ta méthode transforme un nombre en texte.
Or, je ne crois pas que c'est ce que souhaite notre ami.

D'autre part, cette méthode nécessite l'utilisation d'une cellule supplémentaire pour chaque cellule informée.

Bien entendu, sans code, la personnalisation du format de nombre est possible. Ce n'est dès lors plus le bon forum.

Bonjour,

Pour obtenir la valeur 01234567, il faut effectivement transformer le nombre 1234567 en texte.
Une solution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub Test()
Dim DerLigne As Long
Dim MaPlage As Range, Cel As Range
With Sheets("Feuil1")
        DerLigne = .Cells(.Rows.Count, 2).End(xlUp).Row
        Set MaPlage = .Range("B1:B" & DerLigne)
        MaPlage.NumberFormat = "@"
        For Each Cel In MaPlage
            Cel = Format(Cel, "00000000")
        Next Cel
End With
Set MaPlage = Nothing
End Sub

Cordialement.

14/11/2012, 13h10
QuestVba

Bonjour Marcel,

Evidemment cela fonctionne très bien avec

Code:

Cells(x, x).NumberFormat = " 00000000"
14/11/2012, 14h49
chtrousselle

Merci pour vos différentes réponses !

gFZT82 c'est exactement ce que je souhaitais avoir, merci beaucoup !