Bonjour a toutes et tous
Dans des cellules j'ai "nom prénom" si j'applique cette formule
=DROITE(A1;NBCAR(A1)-TROUVE(" ";A1))
Je récupère le prénom.
Je voudrais dans une procédure du genre
For x=1 to nbvaleur
nomprénom = Cells(x, 1).Value
prénom= équivalent en vba de la formule ci-dessus que je n'arrive pas a
écrire
Merci de votre aide
A+
yannick
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
Pounet95
Bonsoir, Ceci peut-être ?
Sub x() nom = "toto jules" prenom = Right(nom, Len(nom) - InStr(nom, " ")) MsgBox prenom End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"yan" a écrit dans le message de news: 41acc553$0$8085$
Bonjour a toutes et tous Dans des cellules j'ai "nom prénom" si j'applique cette formule =DROITE(A1;NBCAR(A1)-TROUVE(" ";A1)) Je récupère le prénom. Je voudrais dans une procédure du genre For x=1 to nbvaleur nomprénom = Cells(x, 1).Value prénom= équivalent en vba de la formule ci-dessus que je n'arrive pas a écrire Merci de votre aide A+ yannick
Bonsoir,
Ceci peut-être ?
Sub x()
nom = "toto jules"
prenom = Right(nom, Len(nom) - InStr(nom, " "))
MsgBox prenom
End Sub
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"yan" <xyz@wanadoo.fr> a écrit dans le message de news:
41acc553$0$8085$8fcfb975@news.wanadoo.fr...
Bonjour a toutes et tous
Dans des cellules j'ai "nom prénom" si j'applique cette formule
=DROITE(A1;NBCAR(A1)-TROUVE(" ";A1))
Je récupère le prénom.
Je voudrais dans une procédure du genre
For x=1 to nbvaleur
nomprénom = Cells(x, 1).Value
prénom= équivalent en vba de la formule ci-dessus que je n'arrive pas a
écrire
Merci de votre aide
A+
yannick
Sub x() nom = "toto jules" prenom = Right(nom, Len(nom) - InStr(nom, " ")) MsgBox prenom End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"yan" a écrit dans le message de news: 41acc553$0$8085$
Bonjour a toutes et tous Dans des cellules j'ai "nom prénom" si j'applique cette formule =DROITE(A1;NBCAR(A1)-TROUVE(" ";A1)) Je récupère le prénom. Je voudrais dans une procédure du genre For x=1 to nbvaleur nomprénom = Cells(x, 1).Value prénom= équivalent en vba de la formule ci-dessus que je n'arrive pas a écrire Merci de votre aide A+ yannick
yan
impec! Merci a toi et bonne soirée A+ yannick
"Pounet95" a écrit dans le message de news:
Bonsoir, Ceci peut-être ?
Sub x() nom = "toto jules" prenom = Right(nom, Len(nom) - InStr(nom, " ")) MsgBox prenom End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"yan" a écrit dans le message de news: 41acc553$0$8085$
Bonjour a toutes et tous Dans des cellules j'ai "nom prénom" si j'applique cette formule =DROITE(A1;NBCAR(A1)-TROUVE(" ";A1)) Je récupère le prénom. Je voudrais dans une procédure du genre For x=1 to nbvaleur nomprénom = Cells(x, 1).Value prénom= équivalent en vba de la formule ci-dessus que je n'arrive pas a écrire Merci de votre aide A+ yannick
impec!
Merci a toi et bonne soirée
A+
yannick
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
uaDOiHx1EHA.1188@tk2msftngp13.phx.gbl...
Bonsoir,
Ceci peut-être ?
Sub x()
nom = "toto jules"
prenom = Right(nom, Len(nom) - InStr(nom, " "))
MsgBox prenom
End Sub
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"yan" <xyz@wanadoo.fr> a écrit dans le message de news:
41acc553$0$8085$8fcfb975@news.wanadoo.fr...
Bonjour a toutes et tous
Dans des cellules j'ai "nom prénom" si j'applique cette formule
=DROITE(A1;NBCAR(A1)-TROUVE(" ";A1))
Je récupère le prénom.
Je voudrais dans une procédure du genre
For x=1 to nbvaleur
nomprénom = Cells(x, 1).Value
prénom= équivalent en vba de la formule ci-dessus que je n'arrive pas a
écrire
Merci de votre aide
A+
yannick
Sub x() nom = "toto jules" prenom = Right(nom, Len(nom) - InStr(nom, " ")) MsgBox prenom End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"yan" a écrit dans le message de news: 41acc553$0$8085$
Bonjour a toutes et tous Dans des cellules j'ai "nom prénom" si j'applique cette formule =DROITE(A1;NBCAR(A1)-TROUVE(" ";A1)) Je récupère le prénom. Je voudrais dans une procédure du genre For x=1 to nbvaleur nomprénom = Cells(x, 1).Value prénom= équivalent en vba de la formule ci-dessus que je n'arrive pas a écrire Merci de votre aide A+ yannick
bourdugephilippe
For x=1 to nbvaleur nomprénom = Cells(x, 1).Value (sans utilité dans l'extraction du prénom) prénom=right(cells(x,1),len(cells(x,1))-instr(1,cells(x,1)," ") Next Ca devrait coller
For x=1 to nbvaleur
nomprénom = Cells(x, 1).Value (sans utilité dans l'extraction du prénom)
prénom=right(cells(x,1),len(cells(x,1))-instr(1,cells(x,1)," ")
Next
Ca devrait coller
For x=1 to nbvaleur nomprénom = Cells(x, 1).Value (sans utilité dans l'extraction du prénom) prénom=right(cells(x,1),len(cells(x,1))-instr(1,cells(x,1)," ") Next Ca devrait coller
yan
Salut! Merci de ta réponse ça marche bonne journée A+ yannick
"Bourdugephilippe" a écrit dans le message de news:
For x=1 to nbvaleur nomprénom = Cells(x, 1).Value (sans utilité dans l'extraction du prénom) prénom=right(cells(x,1),len(cells(x,1))-instr(1,cells(x,1)," ") Next Ca devrait coller
Salut!
Merci de ta réponse ça marche
bonne journée
A+
yannick
"Bourdugephilippe" <bourdugephilippe@aol.com> a écrit dans le message de
news: 20041130165415.07716.00001293@mb-m01.aol.com...
For x=1 to nbvaleur
nomprénom = Cells(x, 1).Value (sans utilité dans l'extraction du prénom)
prénom=right(cells(x,1),len(cells(x,1))-instr(1,cells(x,1)," ")
Next
Ca devrait coller
Salut! Merci de ta réponse ça marche bonne journée A+ yannick
"Bourdugephilippe" a écrit dans le message de news:
For x=1 to nbvaleur nomprénom = Cells(x, 1).Value (sans utilité dans l'extraction du prénom) prénom=right(cells(x,1),len(cells(x,1))-instr(1,cells(x,1)," ") Next Ca devrait coller
