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 Récuperer NOM Prénom dans chaîne de caractères

Récuperer NOM Prénom dans chaîne de caractères

8 réponses
Avatar
xem
Bonjour à tout le groupe,

J'ai une macro pour renomer l'onglet de
la feuille active en fonction de la valeur de A1.
Dans A1 je peux avoir :
"Mr et Mme DUPONT André" ou
"Mr MARTIN Paul" ou
"Mme CHOSE Françoise" ou
"Mlle TRUC Sophie"

J'aimerais récuperer que le nom de famille et
le prénom pour renomer l'onglet.
Je sèche............. Merci de votre aide

Xem
Signaler un problème avec ce contenu

8 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
Avatar
AV
=SUPPRESPACE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;"Mr";"");"Mme";"");"Mlle
";"");"et";""))

AV
Avatar
papou
Bonjour
Pour te permettre d'avancer, regarde notamment du côté des fonctions texte
STXT, TROUVE.
Exemple avec en cellule F1 la valeur Mr TALON Achille, la formule
=STXT(F1;TROUVE(" ";F1;1)+1;NBCAR(F1))
Te renverra TALON Achille.
A toi de jouer !

Cordialement
Pascal

"xem" a écrit dans le message de news:
%
Bonjour à tout le groupe,

J'ai une macro pour renomer l'onglet de
la feuille active en fonction de la valeur de A1.
Dans A1 je peux avoir :
"Mr et Mme DUPONT André" ou
"Mr MARTIN Paul" ou
"Mme CHOSE Françoise" ou
"Mlle TRUC Sophie"

J'aimerais récuperer que le nom de famille et
le prénom pour renomer l'onglet.
Je sèche............. Merci de votre aide

Xem




Avatar
xem
Bonsoir à tous,

AV, Papou , merci pour vos réponses
qui me conviennent.
La solution d'AV est facile à comprendre,
celle de Papou un petit peu moins évidente
mais je vais y travailler...
Merci encore
Xem




"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Pour te permettre d'avancer, regarde notamment du côté des fonctions texte
STXT, TROUVE.
Exemple avec en cellule F1 la valeur Mr TALON Achille, la formule
=STXT(F1;TROUVE(" ";F1;1)+1;NBCAR(F1))
Te renverra TALON Achille.
A toi de jouer !

Cordialement
Pascal

"xem" a écrit dans le message de news:
%
Bonjour à tout le groupe,

J'ai une macro pour renomer l'onglet de
la feuille active en fonction de la valeur de A1.
Dans A1 je peux avoir :
"Mr et Mme DUPONT André" ou
"Mr MARTIN Paul" ou
"Mme CHOSE Françoise" ou
"Mlle TRUC Sophie"

J'aimerais récuperer que le nom de famille et
le prénom pour renomer l'onglet.
Je sèche............. Merci de votre aide

Xem








Avatar
Frédéric Sigonneau
Bonjour,

Autre approche possible avec une fonction perso VBA si tu utilises Excel 2000 ou
+ récent :

Function NomPrenom(cell)
NomPrenom = Split(cell)(UBound(Split(cell)) - 1) & " " & _
Split(cell)(UBound(Split(cell)))
End Function

Pour renommer une feuille selon ta demande :

Sub test()
ActiveSheet.Name = NomPrenom(Range("A1").Value)
End Sub


FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour à tout le groupe,

J'ai une macro pour renomer l'onglet de
la feuille active en fonction de la valeur de A1.
Dans A1 je peux avoir :
"Mr et Mme DUPONT André" ou
"Mr MARTIN Paul" ou
"Mme CHOSE Françoise" ou
"Mlle TRUC Sophie"

J'aimerais récuperer que le nom de famille et
le prénom pour renomer l'onglet.
Je sèche............. Merci de votre aide

Xem




Avatar
xem
Bonsoir,

Merci Frédéric, ton approche me plaît
aussi et je crois bien qu'une fois testée
je vais l'adpoter.
Si j'ai un problème, je reviens.

Xem

"Frédéric Sigonneau" a écrit dans le message de
news:
Bonjour,

Autre approche possible avec une fonction perso VBA si tu utilises Excel
2000 ou

+ récent :

Function NomPrenom(cell)
NomPrenom = Split(cell)(UBound(Split(cell)) - 1) & " " & _
Split(cell)(UBound(Split(cell)))
End Function

Pour renommer une feuille selon ta demande :

Sub test()
ActiveSheet.Name = NomPrenom(Range("A1").Value)
End Sub


FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour à tout le groupe,

J'ai une macro pour renomer l'onglet de
la feuille active en fonction de la valeur de A1.
Dans A1 je peux avoir :
"Mr et Mme DUPONT André" ou
"Mr MARTIN Paul" ou
"Mme CHOSE Françoise" ou
"Mlle TRUC Sophie"

J'aimerais récuperer que le nom de famille et
le prénom pour renomer l'onglet.
Je sèche............. Merci de votre aide

Xem






Avatar
xem
Re,

J'ai pas su faire.
Que dois-je mettre à la place de cell ?
Déclarer un tableau avec Mr, et, Mme, Mlle,...
si oui, je ne sais pas faire.
J'ai essayé pourtant.......
Peux-tu me le mettre noir sur blanc, si ce n'est
pas trop demandé, si tu as quelques minutes.
Merci.

Xem

"xem" a écrit dans le message de
news:
Bonsoir,

Merci Frédéric, ton approche me plaît
aussi et je crois bien qu'une fois testée
je vais l'adpoter.
Si j'ai un problème, je reviens.

Xem

"Frédéric Sigonneau" a écrit dans le message
de

news:
Bonjour,

Autre approche possible avec une fonction perso VBA si tu utilises Excel
2000 ou

+ récent :

Function NomPrenom(cell)
NomPrenom = Split(cell)(UBound(Split(cell)) - 1) & " " & _
Split(cell)(UBound(Split(cell)))
End Function

Pour renommer une feuille selon ta demande :

Sub test()
ActiveSheet.Name = NomPrenom(Range("A1").Value)
End Sub


FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour à tout le groupe,

J'ai une macro pour renomer l'onglet de
la feuille active en fonction de la valeur de A1.
Dans A1 je peux avoir :
"Mr et Mme DUPONT André" ou
"Mr MARTIN Paul" ou
"Mme CHOSE Françoise" ou
"Mlle TRUC Sophie"

J'aimerais récuperer que le nom de famille et
le prénom pour renomer l'onglet.
Je sèche............. Merci de votre aide

Xem










Avatar
Frédéric Sigonneau
Bonsoir,

Si tu utilises la fonction (après l'avoir recopiée dans un module standard du
classeur qui t'intéresse) dans une feuille de calcul, tu remplaces 'cell' par la
référence de la cellule qui contient les infos.
Exemple :
en A1 : Mr et Mme DUPONT André
en B1 :
=NomPrenom(A1)
et tu dois avoir comme résultat DUPONT André

dans du code VBA, tu utilises une syntaxe basée sur l'exemple de la procédure
test (avec toujours en A1 Mr et Mme DUPONT André) :

Sub test()
ActiveSheet.Name = NomPrenom(Range("A1").Value)
End Sub

ou, pour renommer une feuille "Feuil2" avec le nom et prénom de la cellule A1
d'une feuille "Feuil1" :

Sub test()
Sheets("Feuil2").Name = _
NomPrenom(Sheets("Feuil1").Range("A1").Value)
End Sub

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Re,

J'ai pas su faire.
Que dois-je mettre à la place de cell ?
Déclarer un tableau avec Mr, et, Mme, Mlle,...
si oui, je ne sais pas faire.
J'ai essayé pourtant.......
Peux-tu me le mettre noir sur blanc, si ce n'est
pas trop demandé, si tu as quelques minutes.
Merci.

Xem

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

Bonsoir,

Merci Frédéric, ton approche me plaît
aussi et je crois bien qu'une fois testée
je vais l'adpoter.
Si j'ai un problème, je reviens.

Xem

"Frédéric Sigonneau" a écrit dans le message


de

news:

Bonjour,

Autre approche possible avec une fonction perso VBA si tu utilises Excel


2000 ou

+ récent :

Function NomPrenom(cell)
NomPrenom = Split(cell)(UBound(Split(cell)) - 1) & " " & _
Split(cell)(UBound(Split(cell)))
End Function

Pour renommer une feuille selon ta demande :

Sub test()
ActiveSheet.Name = NomPrenom(Range("A1").Value)
End Sub


FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour à tout le groupe,

J'ai une macro pour renomer l'onglet de
la feuille active en fonction de la valeur de A1.
Dans A1 je peux avoir :
"Mr et Mme DUPONT André" ou
"Mr MARTIN Paul" ou
"Mme CHOSE Françoise" ou
"Mlle TRUC Sophie"

J'aimerais récuperer que le nom de famille et
le prénom pour renomer l'onglet.
Je sèche............. Merci de votre aide

Xem














Avatar
xem
Bonsoir,

Merci Frédéric pour tes précisions.
Je crois bien qu'hier soir je marchais à côté
de mes pompes.
Ca fonctionne bien , sauf dans le cas où l'on
ne saisi pas le prénom:
- Mr TRUC donne Mr TRUC
- Mr et Mme CHOSE donne Mme CHOSE
Ce n'est pas grave, je vais essayer d'en faire
mon affaire.
Merci encore.

Xem

"Frédéric Sigonneau" a écrit dans le message de
news:
Bonsoir,

Si tu utilises la fonction (après l'avoir recopiée dans un module standard
du

classeur qui t'intéresse) dans une feuille de calcul, tu remplaces 'cell'
par la

référence de la cellule qui contient les infos.
Exemple :
en A1 : Mr et Mme DUPONT André
en B1 :
=NomPrenom(A1)
et tu dois avoir comme résultat DUPONT André

dans du code VBA, tu utilises une syntaxe basée sur l'exemple de la
procédure

test (avec toujours en A1 Mr et Mme DUPONT André) :

Sub test()
ActiveSheet.Name = NomPrenom(Range("A1").Value)
End Sub

ou, pour renommer une feuille "Feuil2" avec le nom et prénom de la cellule
A1

d'une feuille "Feuil1" :

Sub test()
Sheets("Feuil2").Name = _
NomPrenom(Sheets("Feuil1").Range("A1").Value)
End Sub

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Re,

J'ai pas su faire.
Que dois-je mettre à la place de cell ?
Déclarer un tableau avec Mr, et, Mme, Mlle,...
si oui, je ne sais pas faire.
J'ai essayé pourtant.......
Peux-tu me le mettre noir sur blanc, si ce n'est
pas trop demandé, si tu as quelques minutes.
Merci.

Xem

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

Bonsoir,

Merci Frédéric, ton approche me plaît
aussi et je crois bien qu'une fois testée
je vais l'adpoter.
Si j'ai un problème, je reviens.

Xem

"Frédéric Sigonneau" a écrit dans le
message




de

news:

Bonjour,

Autre approche possible avec une fonction perso VBA si tu utilises
Excel





2000 ou

+ récent :

Function NomPrenom(cell)
NomPrenom = Split(cell)(UBound(Split(cell)) - 1) & " " & _
Split(cell)(UBound(Split(cell)))
End Function

Pour renommer une feuille selon ta demande :

Sub test()
ActiveSheet.Name = NomPrenom(Range("A1").Value)
End Sub


FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour à tout le groupe,

J'ai une macro pour renomer l'onglet de
la feuille active en fonction de la valeur de A1.
Dans A1 je peux avoir :
"Mr et Mme DUPONT André" ou
"Mr MARTIN Paul" ou
"Mme CHOSE Françoise" ou
"Mlle TRUC Sophie"

J'aimerais récuperer que le nom de famille et
le prénom pour renomer l'onglet.
Je sèche............. Merci de votre aide

Xem