Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Extraire par la gauche

Extraire par la gauche

13 réponses
Avatar
Vincent
Bonjour.
J'ai dans une cellule A1 un mot par ex : bonjour
Je souhaite avoir en B1 la 1 ère lettre soit "b", puis en C1 "o", puis en D1
"n" etc.
Mais, je ne me souviens plus de la fonction afin d'extraire par la gauche
dans l'ordre
Merci beaucoup.
Vincent
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Pierre CFI [mvp]
bonjour
GAUCHE, DROITE, STXT

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Vincent" a écrit dans le message de news:OpuOT$
Bonjour.
J'ai dans une cellule A1 un mot par ex : bonjour
Je souhaite avoir en B1 la 1 ère lettre soit "b", puis en C1 "o", puis en D1
"n" etc.
Mais, je ne me souviens plus de la fonction afin d'extraire par la gauche
dans l'ordre
Merci beaucoup.
Vincent




Avatar
Joël GARBE
Bonjour,

Une peite macro ?

Sub Extraire()
Dim i As Integer
If Range("A1") = "" Then Exit Sub
For i = 1 To Len(Range("A1"))
Cells(1, i + 1) = Mid(Range("A1"), i, 1)
Next
End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Vincent" a écrit dans le message de news:
OpuOT$
Bonjour.
J'ai dans une cellule A1 un mot par ex : bonjour
Je souhaite avoir en B1 la 1 ère lettre soit "b", puis en C1 "o", puis en
D1
"n" etc.
Mais, je ne me souviens plus de la fonction afin d'extraire par la gauche
dans l'ordre
Merci beaucoup.
Vincent




Avatar
Vincent
Bonjour Joel
Cela ne fonctionne pas
Merci quand même
Vincent

"Joël GARBE" a écrit dans le message de
news:415fd6ea$0$3081$
Bonjour,

Une peite macro ?

Sub Extraire()
Dim i As Integer
If Range("A1") = "" Then Exit Sub
For i = 1 To Len(Range("A1"))
Cells(1, i + 1) = Mid(Range("A1"), i, 1)
Next
End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Vincent" a écrit dans le message de news:
OpuOT$
Bonjour.
J'ai dans une cellule A1 un mot par ex : bonjour
Je souhaite avoir en B1 la 1 ère lettre soit "b", puis en C1 "o", puis
en


D1
"n" etc.
Mais, je ne me souviens plus de la fonction afin d'extraire par la
gauche


dans l'ordre
Merci beaucoup.
Vincent








Avatar
Vincent
Bonjour
Merci beaucoup
Vincent

"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
GAUCHE, DROITE, STXT

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Vincent" a écrit dans le message de
news:OpuOT$

Bonjour.
J'ai dans une cellule A1 un mot par ex : bonjour
Je souhaite avoir en B1 la 1 ère lettre soit "b", puis en C1 "o", puis
en D1


"n" etc.
Mais, je ne me souviens plus de la fonction afin d'extraire par la
gauche


dans l'ordre
Merci beaucoup.
Vincent








Avatar
Ricky
Bonjour *Vincent*
| Bonjour Joel
| Cela ne fonctionne pas
| Merci quand même
| Vincent

Tu as placé cette macro dans un module (ALT+F11)
Tu écris le texte dans A1
Tu exécutes par Outils / Macro / Macros / Exécuter

Tu peux ensuite adapter à tes besoins mais après vérification je t'assure Que la macro de Joël fonctionne


--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
Avatar
AV
Ou encore, pour varier...
La chaîne en A1

Formule :
En B1 et recopie --> xxx1 :
=STXT($A$1;COLONNE()-1;1)

Macro :
Sub zzz()
Range("b1:" & Cells(1, CDbl(Len([a1]))).Address) = "=mid($a$1,column()-1,1)"
Range("b1:" & Cells(1, CDbl(Len([a1]))).Address) = (Range("b1:" & Cells(1,
CDbl(Len([a1]))).Address))
End Sub

AV
Avatar
Vincent
Opus pardon Joël
effectivement cela fonctionne parfaitement
Merci beaucoup,
bonne journée.
Vincent


"Joël GARBE" a écrit dans le message de
news:415fd6ea$0$3081$
Bonjour,

Une peite macro ?

Sub Extraire()
Dim i As Integer
If Range("A1") = "" Then Exit Sub
For i = 1 To Len(Range("A1"))
Cells(1, i + 1) = Mid(Range("A1"), i, 1)
Next
End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Vincent" a écrit dans le message de news:
OpuOT$
Bonjour.
J'ai dans une cellule A1 un mot par ex : bonjour
Je souhaite avoir en B1 la 1 ère lettre soit "b", puis en C1 "o", puis
en


D1
"n" etc.
Mais, je ne me souviens plus de la fonction afin d'extraire par la
gauche


dans l'ordre
Merci beaucoup.
Vincent








Avatar
Vincent
Merci beaucoup, effectivement
cela fonctionne parfaitement
Merci
Vincent

"Ricky" a écrit dans le message de
news:eK$
Bonjour *Vincent*
| Bonjour Joel
| Cela ne fonctionne pas
| Merci quand même
| Vincent

Tu as placé cette macro dans un module (ALT+F11)
Tu écris le texte dans A1
Tu exécutes par Outils / Macro / Macros / Exécuter

Tu peux ensuite adapter à tes besoins mais après vérification je t'assure
Que la macro de Joël fonctionne



--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net



Avatar
Vincent
Merci beaucoup AV
Cela est impeccable.
Bonne journée.
Vincent

"AV" a écrit dans le message de
news:
Ou encore, pour varier...
La chaîne en A1

Formule :
En B1 et recopie --> xxx1 :
=STXT($A$1;COLONNE()-1;1)

Macro :
Sub zzz()
Range("b1:" & Cells(1, CDbl(Len([a1]))).Address) "=mid($a$1,column()-1,1)"
Range("b1:" & Cells(1, CDbl(Len([a1]))).Address) = (Range("b1:" & Cells(1,
CDbl(Len([a1]))).Address))
End Sub

AV




Avatar
Joël GARBE
Ce fut un plaisir

;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Vincent" a écrit dans le message de news:

Opus pardon Joël
effectivement cela fonctionne parfaitement
Merci beaucoup,
bonne journée.
Vincent


"Joël GARBE" a écrit dans le message de
news:415fd6ea$0$3081$
Bonjour,

Une peite macro ?

Sub Extraire()
Dim i As Integer
If Range("A1") = "" Then Exit Sub
For i = 1 To Len(Range("A1"))
Cells(1, i + 1) = Mid(Range("A1"), i, 1)
Next
End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Vincent" a écrit dans le message de news:
OpuOT$
Bonjour.
J'ai dans une cellule A1 un mot par ex : bonjour
Je souhaite avoir en B1 la 1 ère lettre soit "b", puis en C1 "o", puis
en


D1
"n" etc.
Mais, je ne me souviens plus de la fonction afin d'extraire par la
gauche


dans l'ordre
Merci beaucoup.
Vincent












1 2