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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Francois L
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
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
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
Bonjour,
Sélectionner A2:A7 =STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1) Valider avec Maj+ctrl+entrée
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
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" <claudylema...@skynet.be.yenamarredesspams>
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
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
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)))
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
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 -
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 <boisgont...@hotmail.com> wrote:
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" <claudylema...@skynet.be.yenamarredesspams>
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 -
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
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" a écrit dans le 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
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" <claudylemauve@skynet.be.yenamarredesspams> a écrit dans le message
de news: 482e8907$0$2991$ba620e4c@news.skynet.be...
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
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" a écrit dans le 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
Claudy
merci à tous claudy "Tatanka" a écrit dans le message de news: 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" a écrit dans le 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
merci à tous
claudy
"Tatanka" <garnote3RIEN@videotron.ca> a écrit dans le message de news:
uEsYj.28322$JJ4.47143@wagner.videotron.net...
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" <claudylemauve@skynet.be.yenamarredesspams> a écrit dans le
message de news: 482e8907$0$2991$ba620e4c@news.skynet.be...
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
merci à tous claudy "Tatanka" a écrit dans le message de news: 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" a écrit dans le 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