Discussion :

[chtrousselle]

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

[MarcelG]

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 :

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

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.

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

[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

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

[MarcelG]

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.

[QuestVba]

Bonjour

sans macro

a1:0
b1:123
c1:

Code :

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

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

te donne 00000123