Pb format texte + nombre

Hello à tous,

Je bloque actuellement sur une tite macro vba...
J'ai une colonne de codes (à 3, 4 ou 5 chiffres) que j'aimerais formater en une chaîne de 8 caractères.
Je n'ai aucun souci pour rajouter des "0" pour arriver à 8 caractères, mais je voudrais ajouter des espaces plutôt que des "0", et c'est là que je bloque. :aie:

Pouvez-vous m'aider ?
J'espère avoir été assez clair !

Merci de vos réponses
++

Bonjour,

Essaye quelque chose comme ça :

Code:

---

1 2 3 4 5

CHAINE = "test" For i = Len(CHAINE) To 7 CHAINE = " " & CHAINE Next Range("A1") = CHAINE

---

Oui c'est le résultat que je souhaite obtenir.
J'essaye de l'adapter à ma macro et je reviens vers toi si problème !

Merci en tout cas

Plus simple:

Code:

---

1 2 3 4 5

Sub test() Dim strText As String strText = "123" Debug.Print Space(8 - Len(strText)) & strText End Sub

---

Effectivement c'est bien mieux, je ne connaissais pas cette fonction "space"

Hello,
Je viens de voir vos réponses, pas eu le temps de tester ta solution...
Par contre j'ai aussi cherché plus simple, et trouvé ça (qui ne marche pas). Avez-vous une idée ? (On apprend toujours plus de ses erreurs)

Code:

---

1 2 3 4 5 6 7

Columns("A:A").Select Selection.Insert Shift:=xlToRight   For i = 2 To nbLignes Cells("A", i) = String$(8 - Len(Cells("B", i)), " ") Next Columns("B:B").Delete

---

J'ai un souci avec Cells(x, y)

Merci encore

Bonjour,

Vous ne pouvez pas utiliser :

Code:

---

Cells("A", i) =

---

c'est :

Code:

---

Cells(i, 1) =

---

ou "1" est le N° de colonne

ou

Code:

---

Range("A" & i) =

---

Regardez bien quand vous tapez "Cells(" dans la fenêtre VBA, le format s'affiche : Default(RowIndex, ColumnIndex)

Merci bien pour les infos !
J'ai testé les deux solutions et elles marchent, MAIS problème... :

Les espaces s'ajoutent bien du nombre voulu, mais quand je veux ajouter le code à la suite, les espaces sont supprimés :

Code:

---

1 2 3 4 5 6

Columns("A:A").Select Selection.Insert Shift:=xlToRight For i = 2 To nbLignes Range("A" & i) = Space(8 - Len(Range("B" & i))) ' & Range("B" & i) Next Columns("B:B").Delete

---

C'est quand j'enlève le commentaire que les espaces disparaissent...

Avez-vous une idée ?

Merci encore

Bonjour,

Si la cellule n'est pas au format "texte", Excel supprime automatiquement les espaces se trouvant avant la chaîne de caractères. En ajoutant une apostrophe devant la chaîne de caractères, elle sera considérée comme du texte (y compris les espaces).

Autre petit truc, il n'est pas nécessaire d'ajouter une colone et de la supprimer par la suite

Essaie ceci :

Code:

---

1 2 3

For i = 2 To nbLignes Range("A" & i) = "'" & Space(8 - Len(Range("A" & i))) & Range("A" & i) Next

---

Bonjour,

Il faut rajouter un format texte

Code:

---

1 2 3 4 5 6 7

Columns("A:A").Select Selection.Insert Shift:=xlToRight For i = 1 To nbLignes Range("A" & i).NumberFormat = "@" Range("A" & i) = Space(8 - Len(Range("B" & i))) & Range("B" & i) Next Columns("B:B").Delete

---

Nickel !
Fring tu m'a mystifié avec ta formule en 1 ligne (je pensais avoir une référence circulaire)

Merci à tous pour votre aide et votre rapidité de réponse !!!
:yaisse2:

A plus