Mot avec lettres séparées

Modeste

29/10/2008 à 09:03

Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Bonjour,
Avec une cellule contenant par exemple "France", de le recopier avec
une lettre dans chaque cellule.
A10 = France ====> A20="F",A21="r",A22="a" .........etc

=STXT($A$10;LIGNE()-19;1)

adapter le 19 en fonction de la ligne de debut de recopie de la formule

--
--
@+
;o)))

JPMonnier

29/10/2008 à 09:16

Bonjour,
Version vba
France en A10
résultat A11,A12 ...

Sub Mot()
For x = 1 To Len([a10])
Cells(x + 10, 1) = Mid([a10], x, 1)
Next
End Sub

--
Cordialement

"Guy72" a écrit dans le message de
news:

Bonjour,
Avec une cellule contenant par exemple "France", de le recopier avec une
lettre dans chaque cellule.
A10 = France ====> A20="F",A21="r",A22="a" .........etc
--
Cordialement
Guy

Guy72

29/10/2008 à 09:31

Bonjour,
Aïe..Aïe..Aïe..je me suis trompé, je voulais le mot France à l'horizontal.
J'ai une fâcheuse manie de penser que les lignes sont les lettres.
--
Cordialement
Guy

"Modeste" a écrit dans le message de news:

Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Bonjour,
Avec une cellule contenant par exemple "France", de le recopier avec
une lettre dans chaque cellule.
A10 = France ====> A20="F",A21="r",A22="a" .........etc

=STXT($A$10;LIGNE()-19;1)

adapter le 19 en fonction de la ligne de debut de recopie de la formule

--
--
@+
;o)))

JPMonnier

29/10/2008 à 09:45

A10= France
résultat en B10, C10 ...
Sub Mot()
For x = 1 To Len([a10])
Cells(10, 1 + x) = Mid([a10], x, 1)
Next
End Sub

--
Cordialement

"Guy72" a écrit dans le message de
news:

Bonjour,
Aïe..Aïe..Aïe..je me suis trompé, je voulais le mot France à l'horizontal.
J'ai une fâcheuse manie de penser que les lignes sont les lettres.
--
Cordialement
Guy

"Modeste" a écrit dans le message de news:

Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Bonjour,
Avec une cellule contenant par exemple "France", de le recopier avec
une lettre dans chaque cellule.
A10 = France ====> A20="F",A21="r",A22="a" .........etc

=STXT($A$10;LIGNE()-19;1)

adapter le 19 en fonction de la ligne de debut de recopie de la formule

--
--
@+
;o)))

Guy72

29/10/2008 à 10:20

Bonjour JP
Ok pour le mot à l'horizontale, je peux modifier pour le copier à droite et
vers le haut.
Ok pour le mot à la vertical (qui m'intéresse quand même), idem
Mais comment faire pour aller le copier vers le bas ?
J'ai essayer le signe - mais c'est ça.
Peut-tu m'expliquer comment le mettre ou je veux ?
--
Cordialement
Guy
"JPMonnier" a écrit dans le message de news:

A10= France
résultat en B10, C10 ...
Sub Mot()
For x = 1 To Len([a10])
Cells(10, 1 + x) = Mid([a10], x, 1)
Next
End Sub

--
Cordialement

"Guy72" a écrit dans le message de
news:
Bonjour,
Aïe..Aïe..Aïe..je me suis trompé, je voulais le mot France à
l'horizontal.
J'ai une fâcheuse manie de penser que les lignes sont les lettres.
--
Cordialement
Guy

"Modeste" a écrit dans le message de news:

Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Bonjour,
Avec une cellule contenant par exemple "France", de le recopier avec
une lettre dans chaque cellule.
A10 = France ====> A20="F",A21="r",A22="a" .........etc

=STXT($A$10;LIGNE()-19;1)

adapter le 19 en fonction de la ligne de debut de recopie de la formule

--
--
@+
;o)))

JPMonnier

29/10/2008 à 10:43

Cells(10, 1 + x) est la destination du mot en horizontal
Cells(ligne, Colonne + x)

Cells(x + 10, 1) est la destination en vertical
Cells(x + Ligne, Colonne)

La notion de cells considére le tableur en N° ligne (1 à 65535) et N°
colonne de (A à IV) A= 1, B=2 etc
--
Cordialement
"Guy72" a écrit dans le message
de news:

Bonjour JP
Ok pour le mot à l'horizontale, je peux modifier pour le copier à droite
et vers le haut.
Ok pour le mot à la vertical (qui m'intéresse quand même), idem
Mais comment faire pour aller le copier vers le bas ?
J'ai essayer le signe - mais c'est ça.
Peut-tu m'expliquer comment le mettre ou je veux ?
--
Cordialement
Guy
"JPMonnier" a écrit dans le message de news:

A10= France
résultat en B10, C10 ...
Sub Mot()
For x = 1 To Len([a10])
Cells(10, 1 + x) = Mid([a10], x, 1)
Next
End Sub

--
Cordialement

"Guy72" a écrit dans le message de
news:
Bonjour,
Aïe..Aïe..Aïe..je me suis trompé, je voulais le mot France à
l'horizontal.
J'ai une fâcheuse manie de penser que les lignes sont les lettres.
--
Cordialement
Guy

"Modeste" a écrit dans le message de news:

Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Bonjour,
Avec une cellule contenant par exemple "France", de le recopier avec
une lettre dans chaque cellule.
A10 = France ====> A20="F",A21="r",A22="a" .........etc

=STXT($A$10;LIGNE()-19;1)

adapter le 19 en fonction de la ligne de debut de recopie de la formule

--
--
@+
;o)))

Guy72

29/10/2008 à 10:59

D'accord, merci de ton aide;
Moi, je considérais les lignes en dessous de la cellule d'origine (A10) en
négatif, alors que c'est plutôt l'inverse.
--
Cordialement
Guy
"JPMonnier" a écrit dans le message de news:

Cells(10, 1 + x) est la destination du mot en horizontal
Cells(ligne, Colonne + x)

Cells(x + 10, 1) est la destination en vertical
Cells(x + Ligne, Colonne)

La notion de cells considére le tableur en N° ligne (1 à 65535) et N°
colonne de (A à IV) A= 1, B=2 etc
--
Cordialement
"Guy72" a écrit dans le
message de news:
Bonjour JP
Ok pour le mot à l'horizontale, je peux modifier pour le copier à droite
et vers le haut.
Ok pour le mot à la vertical (qui m'intéresse quand même), idem
Mais comment faire pour aller le copier vers le bas ?
J'ai essayer le signe - mais c'est ça.
Peut-tu m'expliquer comment le mettre ou je veux ?
--
Cordialement
Guy
"JPMonnier" a écrit dans le message de news:

A10= France
résultat en B10, C10 ...
Sub Mot()
For x = 1 To Len([a10])
Cells(10, 1 + x) = Mid([a10], x, 1)
Next
End Sub

--
Cordialement

"Guy72" a écrit dans le message de
news:
Bonjour,
Aïe..Aïe..Aïe..je me suis trompé, je voulais le mot France à
l'horizontal.
J'ai une fâcheuse manie de penser que les lignes sont les lettres.
--
Cordialement
Guy

"Modeste" a écrit dans le message de news:

Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Bonjour,
Avec une cellule contenant par exemple "France", de le recopier avec
une lettre dans chaque cellule.
A10 = France ====> A20="F",A21="r",A22="a" .........etc

=STXT($A$10;LIGNE()-19;1)

adapter le 19 en fonction de la ligne de debut de recopie de la formule

--
--
@+
;o)))

D'accord, merci de ton aide;
Moi, je considérais les lignes en dessous de la cellule d'origine (A10) en
négatif, alors que c'est plutôt l'inverse.
--
Cordialement
Guy
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de news:
u6hUMraOJHA.4800@TK2MSFTNGP03.phx.gbl...

Cells(10, 1 + x) est la destination du mot en horizontal
Cells(ligne, Colonne + x)

Cells(x + 10, 1) est la destination en vertical
Cells(x + Ligne, Colonne)

La notion de cells considére le tableur en N° ligne (1 à 65535) et N°
colonne de (A à IV) A= 1, B=2 etc
--
Cordialement
jpmonnier-nospam@neuf.fr"Guy72" <guy72@bonjour.tous> a écrit dans le
message de news:uvwPreaOJHA.3748@TK2MSFTNGP04.phx.gbl...

Bonjour JP
Ok pour le mot à l'horizontale, je peux modifier pour le copier à droite
et vers le haut.
Ok pour le mot à la vertical (qui m'intéresse quand même), idem
Mais comment faire pour aller le copier vers le bas ?
J'ai essayer le signe - mais c'est ça.
Peut-tu m'expliquer comment le mettre ou je veux ?
--
Cordialement
Guy
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de news:
uhM8oKaOJHA.4116@TK2MSFTNGP05.phx.gbl...

A10= France
résultat en B10, C10 ...
Sub Mot()
For x = 1 To Len([a10])
Cells(10, 1 + x) = Mid([a10], x, 1)
Next
End Sub

--
Cordialement
jpmonnier-nospam@neuf.fr
"Guy72" <guy72@bonjour.tous> a écrit dans le message de
news:e6GRMDaOJHA.1908@TK2MSFTNGP04.phx.gbl...

Bonjour,
Aïe..Aïe..Aïe..je me suis trompé, je voulais le mot France à
l'horizontal.
J'ai une fâcheuse manie de penser que les lignes sont les lettres.
--
Cordialement
Guy

"Modeste" <nomail@nomail.net> a écrit dans le message de news:
eh8VazZOJHA.2492@TK2MSFTNGP06.phx.gbl...
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Bonjour,
Avec une cellule contenant par exemple "France", de le recopier avec
une lettre dans chaque cellule.
A10 = France ====> A20="F",A21="r",A22="a" .........etc

=STXT($A$10;LIGNE()-19;1)

adapter le 19 en fonction de la ligne de debut de recopie de la formule

--
--
@+
;o)))

Guy72

30/10/2008 à 09:51

Bonjour JP,
Est-il possible de faire la même chose (horizontal) en intercalant une
cellule vide entre chaque lettre ?
--
Cordialement
Guy
"JPMonnier" a écrit dans le message de news:

Bonjour,
Version vba
France en A10
résultat A11,A12 ...

Sub Mot()
For x = 1 To Len([a10])
Cells(x + 10, 1) = Mid([a10], x, 1)
Next
End Sub

--
Cordialement

"Guy72" a écrit dans le message de
news:
Bonjour,
Avec une cellule contenant par exemple "France", de le recopier avec une
lettre dans chaque cellule.
A10 = France ====> A20="F",A21="r",A22="a" .........etc
--
Cordialement
Guy

JPMonnier

30/10/2008 à 12:50

Bonjour Guy,
Sub Mot()
y = 1
For x = 1 To Len([a10])
Cells(10, 1 + y) = Mid([a10], x, 1)
y = y + 2
Next
End Sub

--
Cordialement

"Guy72" a écrit dans le message de
news:%

Bonjour JP,
Est-il possible de faire la même chose (horizontal) en intercalant une
cellule vide entre chaque lettre ?
--
Cordialement
Guy
"JPMonnier" a écrit dans le message de news:

Bonjour,
Version vba
France en A10
résultat A11,A12 ...

Sub Mot()
For x = 1 To Len([a10])
Cells(x + 10, 1) = Mid([a10], x, 1)
Next
End Sub

--
Cordialement

"Guy72" a écrit dans le message de
news:
Bonjour,
Avec une cellule contenant par exemple "France", de le recopier avec une
lettre dans chaque cellule.
A10 = France ====> A20="F",A21="r",A22="a" .........etc
--
Cordialement
Guy

Guy72

30/10/2008 à 13:15

Bonjour et merci JB
--
Cordialement
Guy
"JPMonnier" a écrit dans le message de news:
uyOy$

Bonjour Guy,
Sub Mot()
y = 1
For x = 1 To Len([a10])
Cells(10, 1 + y) = Mid([a10], x, 1)
y = y + 2
Next
End Sub

--
Cordialement

"Guy72" a écrit dans le message de
news:%
Bonjour JP,
Est-il possible de faire la même chose (horizontal) en intercalant une
cellule vide entre chaque lettre ?
--
Cordialement
Guy
"JPMonnier" a écrit dans le message de news:

Bonjour,
Version vba
France en A10
résultat A11,A12 ...

Sub Mot()
For x = 1 To Len([a10])
Cells(x + 10, 1) = Mid([a10], x, 1)
Next
End Sub

--
Cordialement

"Guy72" a écrit dans le message de
news:
Bonjour,
Avec une cellule contenant par exemple "France", de le recopier avec
une lettre dans chaque cellule.
A10 = France ====> A20="F",A21="r",A22="a" .........etc
--
Cordialement
Guy

Mot avec lettres séparées

10 réponses

Veuillez sélectionner un problème