Discussion :

[michaelknight00]

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.

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

Merci de vos réponses
++

[David2304]

Bonjour,

Essaye quelque chose comme ça :

Code :

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

1
2
3
4
5
CHAINE = "test"
For i = Len(CHAINE) To 7
CHAINE = " " & CHAINE
Next
Range("A1") = CHAINE

[michaelknight00]

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

[AlainTech]

Plus simple:

Code :

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

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

[David2304]

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

[michaelknight00]

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 :

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

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