Discussion :

[redstoff]

Bonjour,

j'ai une variable string definit de la sorte

Code :

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

1
2
3
Dim Monstring as String * 10
 
Monstring = range("a1")

Petit exemple:
La cellule A1 à comme valeur "ABCD"

avec la commande, Monstring aura normalement comme valeur: "ABCD______" _ = un espace
donc les 4 lettres et 6 espaces pour completer.

Ma question est:
est ce possible de faire en sorte que ma variable soit: "______ABCD" _ = un espace
donc 6 espaces et les 4 lettres?

Je vous remercie pour votre aide

[Jean-Philippe André]

salut,
c'est toujours tendu avec les strings

Tu manipules donc une chaîne de caractères de 10 caractères, et souhaites que le bourrages d'espace se fasse "avant" le mot et non pas après, c'est bien cela ?

[casefayere]

Bonjour,
ce code ne répond pas à la question mais peut suffire, non ?

Code :

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

1
2
3
4
5
6
Sub aa()
Dim Monstring As String
 
Monstring = Application.WorksheetFunction.Rept(" ", (10 - Len(Range("a1")))) & Range("a1")
MsgBox "z" & Monstring 'z pour montrer (facultatif)
End Sub

[Philippe Tulliez]

Bonjour,
Une solution parmi d'autres

Code :

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

1
2
3
 Dim Monstring As String * 10
 Mid(Monstring, 1 + Len(Monstring) - Len(Range("A1"))) = Range("a1")
 Debug.Print ">" & Monstring & "<"

[redstoff]

Tu manipules donc une chaîne de caractères de 10 caractères, et souhaites que le bourrages d'espace se fasse "avant" le mot et non pas après, c'est bien cela ?

Oui je veux les espaces avant les caracteres
Un autre exemple
A1 = 123456
Monstring *10 sera égale à = "____123456"
4 espaces et 6 caracteres

[redstoff]

Je vous remercie tous pour vos reponses.

j'ai donc choisi la solution de Cesafayere. Mais la solution de Corona est egalement bonne.

encore merci