Décomposer un mot

Le
Claudy
Bonjour,
je cherche une macro pour décomposer un mot dans les lignes en dessous.
Exemple: CLAUDY en A1
A2=C
A3=L
A4=A
A5=U
.
.
.
.
En sachant que le nombre de lettres en A1 peut varier!
Merci d'avance,
Claudy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Francois L
Le #6644711

Bonjour,

MAcro à déclencher avec la cellule contenant le mot complet activée

Sub compost()
Dim b As Long, a As String
With ActiveCell
b = Len(.Value)
For i = 1 To b
a = Mid(.Value, i, 1)
.Offset(i, 0).Value = a
Next
End With
End Sub

--
François L

Bonjour,
je cherche une macro pour décomposer un mot dans les lignes en dessous.
Exemple: CLAUDY en A1
A2=C
A3=L
A4=A
A5=U
.
.
.
.
En sachant que le nombre de lettres en A1 peut varier!
Merci d'avance,
Claudy




JB
Le #6645921
Bonjour,

Sélectionner A2:A7
=STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)
Valider avec Maj+ctrl+entrée

JB
http://boisgontierjacques.free.fr/

On 17 mai, 09:28, "Claudy" wrote:
Bonjour,
je cherche une macro pour décomposer un mot dans les lignes en dessous.
Exemple: CLAUDY en A1
A2=C
A3=L
A4=A
A5=U
.
.
.
.
En sachant que le nombre de lettres en A1 peut varier!
Merci d'avance,
Claudy


Modeste
Le #6645911
Bonsour® Claudy avec ferveur ;o))) vous nous disiez :

Bonjour,
je cherche une macro pour décomposer un mot dans les lignes en
dessous. Exemple: CLAUDY en A1
A2=C
A3=L
A4=A
A5=U


en A2 la formule
=STXT($A$1;LIGNE(A1);1)
recopier vers le bas autant que necessaire


--
--
@+
;o)))

JB
Le #6646591
Fonction perso matricielle:

Function decoupe(mot)
Dim a(1 To 20)
For i = 1 To UBound(a)
a(i) = Mid(mot, i, 1)
Next i
decoupe = Application.Transpose(a)
End Function

http://cjoint.com/?frp1LG2bM6

JB


On 17 mai, 13:34, JB
Bonjour,

Sélectionner A2:A7
=STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)
Valider avec Maj+ctrl+entrée

JBhttp://boisgontierjacques.free.fr/

On 17 mai, 09:28, "Claudy" wrote:



Bonjour,
je cherche une macro pour décomposer un mot dans les lignes en dessous .
Exemple: CLAUDY en A1
A2=C
A3=L
A4=A
A5=U
.
.
.
.
En sachant que le nombre de lettres en A1 peut varier!
Merci d'avance,
Claudy- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Tatanka
Le #6664721
Bonjour Claudy,

Il y a aussi :

Sub Décompose()
Set m = [b6] ' ou autre cellule ou ActiveCell
For i = 1 To Len(m)
m.Offset(i) = Mid(m, i, 1)
Next i
End Sub

Serge


"Claudy" de news: 482e8907$0$2991$
Bonjour,
je cherche une macro pour décomposer un mot dans les lignes en dessous.
Exemple: CLAUDY en A1
A2=C
A3=L
A4=A
A5=U
.
.
.
.
En sachant que le nombre de lettres en A1 peut varier!
Merci d'avance,
Claudy



Claudy
Le #6667161
merci à tous
claudy
"Tatanka" uEsYj.28322$
Bonjour Claudy,

Il y a aussi :

Sub Décompose()
Set m = [b6] ' ou autre cellule ou ActiveCell
For i = 1 To Len(m)
m.Offset(i) = Mid(m, i, 1)
Next i
End Sub

Serge


"Claudy" message de news: 482e8907$0$2991$
Bonjour,
je cherche une macro pour décomposer un mot dans les lignes en dessous.
Exemple: CLAUDY en A1
A2=C
A3=L
A4=A
A5=U
.
.
.
.
En sachant que le nombre de lettres en A1 peut varier!
Merci d'avance,
Claudy







Publicité
Poster une réponse
Anonyme