espace entre des lettres ds cellule fusionnée

[duc]

rebonjour à tous.

Je recherche le moyen de créer des espaces entre des lettres cette fois ci dans une cellule fusionnée.

Exemple avec cellule A3:A15 fusionnée j'ai

tonton david


Je voudrais

t o n t o n d a v i d (2 espaces)

exploitable avec n'importe quel non

Vous remerciant par avance.

duc_lorenzo@yahoo.fr

 

[aguwar]

Bonsoir à tous.

Voici une macro qui fait ce que tu demande dans les cellules où tu le demande.
IMPORTANT . Il faut mettre la formule 'NBCAR' qui est ici en G2 qui sert a arréter la boucle.
A aménager pour une utilisation perso;

A ton service si besoin est.



Sub tonton()
Dim Lettre, NouvMot As String
Dim Place As Integer
Lmot = Cells(2, 7).Value
Place = 0

For i = 1 To Lmot Step 1
Cells(3, 1).Select
Lettre = Mid(ActiveCell, Place + 1, Len('1'))
NouvMot = NouvMot & Lettre & ' '
Place = Place + 1
Next
Cells(3, 1).Value = NouvMot

End Sub

 

[aguwar]

Bonsoir à tous.

Voici une macro qui fait ce que tu demande dans les cellules où tu le demande.
IMPORTANT . Il faut mettre la formule 'NBCAR' qui est ici en G2 qui sert a arréter la boucle.
A aménager pour une utilisation perso;

A ton service si besoin est.



Sub tonton()
Dim Lettre, NouvMot As String
Dim Place As Integer
Lmot = Cells(2, 7).Value
Place = 0

For i = 1 To Lmot Step 1
Cells(3, 1).Select
Lettre = Mid(ActiveCell, Place + 1, Len('1'))
NouvMot = NouvMot & Lettre & ' '
Place = Place + 1
Next
Cells(3, 1).Value = NouvMot

End Sub

 

[Hervé]

Bonsoir duc, aguwar


Juste une petite information, si je peux me permettre.

aguwar, pour connaitre le nombre de caractère en vba on utilise len(), ca peut eviter la formule en G2.

de plus on est pas obligé de sélectionner une cellule pour travailler avec.

et enfin, le step 1 est inutile car par défaut dans les boucles for i.

Voici donc ma petite contribution :

Sub tonton()
Dim Lettre As String, NouvMot As String
Dim i As Byte

For i = 1 To Len(Cells(3, 1))
    Lettre = Mid(Cells(3, 1), i, 1)
    NouvMot = NouvMot & Lettre & ' '
Next i
Cells(3, 1) = NouvMot
End Sub

salut

 

[aguwar]

Bonsoir Hervé

Merci de tes précisions.
Pour step, je savais, mais c'était dans le petit bout de code que j'ai utilisé et je n'ai pas pensé a l'enlever.
Pour la sélection de cellule, je savais aussi mais le code est encore plus abtrait pour moi si je ne sélectionne pas.
Pour Len, je ne connaissait pas cette fontion en VBA et je suis bien contant de tes observations. (j'ignore tellement de choses de VBA).

Ce forum et ses animateurs... c'est vraiment 'excellent'!

 

[aguwar]

Bonsoir Hervé

Merci de tes précisions.
Pour step, je savais, mais c'était dans le petit bout de code que j'ai utilisé et je n'ai pas pensé a l'enlever.
Pour la sélection de cellule, je savais aussi mais le code est encore plus abtrait pour moi si je ne sélectionne pas.
Pour Len, je ne connaissait pas cette fontion en VBA et je suis bien contant de tes observations. (j'ignore tellement de choses de VBA).

Ce forum et ses animateurs... c'est vraiment 'excellent'!