debuter par le nom qui majuscule

[BIL boud]

BONJOUR tout le monde

je suis debutant dans vba et je souhaitrais que vous maidiez si c possbile

donc voila mon cas
dans les cellule A j'enregistre un NOM et Prenom de cette facon :
Jerymi VALENTIN
NOM : VALENTIN
Prenom : Jerymi

ce que je souhaite c'est de reverser l'ordre, ca veut dire commencer par le NOM qui est en majuscule apres le prenoim sen suit avec la premiere lettre de prenom est en majuscule

exemple

dans la cellule A1 = Jerymi VALENTIN
je veux que la cellule A1 affiche = VALENTIN Jerymi

merci pour votre aide

 

[Victor21]

Bonjour.

Peut-être :
=STXT(A1;TROUVE(" ";A1)+1;9^9)&" "&STXT(A1;1;TROUVE(" ";A1)-1)

 

[BIL boud]

Re

desole oui ca a marche

est il possible de le faire comme code pour que je puisse le faire dans un bouton

merci et desole

nn ca n apas marche desole je vous embtte trop

en faite la formule inverse les mots et elle prend pas en compte le nom et prenom

exemple

VALENTIN Jerymi elle le transforme a Jerymi VALENTIN

ALORS que dans ce cas elle doit rester comme ca VALENTIN Jerymi

merci et deosle pour le cassement de tete

 

[BOISGONTIER]

Bonjour,

Met dans l'ordre NOM Prénom

=SI(CODE(STXT(A1;2;1))>=97;STXT(A1;EQUIV(VRAI;EXACT(STXT(A1;LIGNE($1:$255);3);MAJUSCULE(STXT(A1;LIGNE($1:$255);3)));0)+1;999)&" "&GAUCHE(A1;EQUIV(VRAI;EXACT(STXT(A1;LIGNE($1:$255);3);MAJUSCULE(STXT(A1;LIGNE($1:$255);3)));0));A1)
Valider avec maj+ctrl+entrée

Jerymi VALENTIN	VALENTIN Jerymi
Jean DUPONT	DUPONT Jean
DUPONT Jean	DUPONT Jean
Daniel DURAND	DURAND Daniel
DUPONT LAJOIE Marc	DUPONT LAJOIE Marc
DUPONT DE NEMOURS Jean Marie	DUPONT DE NEMOURS Jean Marie
Jean-Paul LE MEUR	LE MEUR Jean-Paul
LE MEUR Jean Paul	LE MEUR Jean Paul
DUPONT Jean Paul	DUPONT Jean Paul
Jean Paul LE MEUR	LE MEUR Jean Paul
Jean Marie DUPONT DE NEMOURS	DUPONT DE NEMOURS Jean Marie
OLIVIER HENRY Jean-Paul	OLIVIER HENRY Jean-Paul
Alain LU	LU Alain
LU Alain	LU Alain
Pierre ÔMAR	ÔMAR Pierre
MAMERE Noël	MAMERE Noël
Noël MAMERE	MAMERE Noël
Alain L'HERMITTE	L'HERMITTE Alain
L'HERMITTE Alain	L'HERMITTE Alain

Boisgontier

 

[BIL boud]

Bonjour,

=SI(CODE(STXT(A1;2;1))>=97;STXT(A1;EQUIV(VRAI;EXACT(STXT(A1;LIGNE($1:$255);3);MAJUSCULE(STXT(A1;LIGNE($1:$255);3)));0)+1;999)&" "&GAUCHE(A1;EQUIV(VRAI;EXACT(STXT(A1;LIGNE($1:$255);3);MAJUSCULE(STXT(A1;LIGNE($1:$255);3)));0));A1)
Valider avec maj+ctrl+entrée

Jerymi VALENTIN	VALENTIN Jerymi
Jean DUPONT	DUPONT Jean
DUPONT Jean	DUPONT Jean
Daniel DURAND	DURAND Daniel
DUPONT LAJOIE Marc	DUPONT LAJOIE Marc
DUPONT DE NEMOURS Jean Marie	DUPONT DE NEMOURS Jean Marie
Jean-Paul LE MEUR	LE MEUR Jean-Paul
LE MEUR Jean Paul	LE MEUR Jean Paul
DUPONT Jean Paul	DUPONT Jean Paul
Jean Paul LE MEUR	LE MEUR Jean Paul
Jean Marie DUPONT DE NEMOURS	DUPONT DE NEMOURS Jean Marie
OLIVIER HENRY Jean-Paul	OLIVIER HENRY Jean-Paul
Alain LU	LU Alain
LU Alain	LU Alain
Pierre ÔMAR	ÔMAR Pierre
MAMERE Noël	MAMERE Noël
Noël MAMERE	MAMERE Noël
Alain L'HERMITTE	L'HERMITTE Alain
L'HERMITTE Alain	L'HERMITTE Alain

Boisgontier

je vous remercie

svp pouvez vous me le transferer a un code VBA pour qui je puise creer un bouton et en cliquanr sur ce bouton le code va s'excuter

si vous faite vous me sauvez la vie vraiment

merci encore

 

[BIL boud]

je vous remercie

svp pouvez vous me le transferer a un code VBA pour qui je puise creer un bouton et en cliquanr sur ce bouton le code va s'excuter

si vous faite vous me sauvez la vie vraiment

merci encore

pour bien vous expliquer

je souhaite creer un code sous VBA qui me permet de faire ce que vous venez de me faire la

exmeple

dans la cellule A1 j'enregistre : Jerimy VALENTIN

si je clique sur le bouton crée : la cellule A1 va afficher VALENTIN Jerimy

merci d'avance

 

[BIL boud]

pour bien vous expliquer

je souhaite creer un code sous VBA qui me permet de faire ce que vous venez de me faire la

exmeple

dans la cellule A1 j'enregistre : Jerimy VALENTIN

si je clique sur le bouton crée : la cellule A1 va afficher VALENTIN Jerimy

merci d'avance

je viens de penser a qlq chose plus simple

et si je crée une autre feuil " ANNEXE_NOM_Prenom" alors que les nom et prenoms que je veux transferer se trouve dans la feuille qui est nommee "Recup_absences" je dois ajouter quoi pour la formule que vous m'avez donne

merci

 

[BOISGONTIER]

Sélectionner le champ à convertir puis clic sur bouton.

Boisgontier

 

[BIL boud]

RE

merci beaucoupe pour aide si précieuse

 

[BIL boud]

RE

=SI(CODE(STXT(A1;2;1))>=97;STXT(A1;EQUIV(VRAI;EXACT(STXT(A1;LIGNE($1:$255);3);MAJUSCULE(STXT(A1;LIGNE($1:$255);3)));0)+1;999)&" "&GAUCHE(A1;EQUIV(VRAI;EXACT(STXT(A1;LIGNE($1:$255);3);MAJUSCULE(STXT(A1;LIGNE($1:$255);3)));0));A1)

est il possible d'ajouter a la formule que vous m'avez donné une condition que si la case A1 est vide le resultat de la cellule ou on va mettre cette formule sera aussi une cellule vide

Merci et je m'excuse de vous avoir encore deranger