XL 2016 [RESOLU]Séparer mots si la dernière lettre est une minuscule

[Etn]

Bonjour,

Je souhaiterais savoir s'il est possible d'avoir une macro (ou une formule mais j'en doute), qui séparerait les mots en 2 colonnes différentes : La 1ere avec les mots qui ont une minuscule en dernier, et la 2e avec les mots qui ont une majuscule en dernier. (histoire de séparer les noms/prénoms vous l'aurez deviné je suppose).

Ex : HENRY DUPONT Jimmy ==> HENRY DUPONT dans la 1e colonne et Jimmy dans la 2e.

J'espère que ma demande est claire.

Merci d'avance,

Bonne journée,
Etn

 

[JHA]

Bonjour à tous,

un essai avec cette formule

=STXT(A1;SI(NBCAR(SUPPRESPACE(A1))-NBCAR(SUBSTITUE(SUPPRESPACE(A1);" ";""))>1;CHERCHE(" ";A1;CHERCHE(" ";A1)+1);CHERCHE(" ";A1))+1;99)

JHA

 

[Etn]

Waouh, bluffant !

Merci beaucoup !

Bonne journée !
Etn

 

[Etn]

Aaah attend,

Je viens de tester avec Jean Paul en prénom, malheureusement je me retrouve avec "DUPONT Jean" dans la colonne Nom et "Paul" dans la colonne prénom.
Y a pas moyen de faire passer "Jean" dans la colonne Prénom pour avoir "Jean Paul" svp ?

Merci d'avance,
Etn

 

[CISCO]

Bonjour

Cela n'est pas nickel si il ni a que des majuscules, comme avec HENRY DUPONT. Est-ce que ce genre de situation peut se présenter ?

@ plus

 

[Etn]

Bonjour Cisco,

Non cela ne peut pas se présenter. Il y a obligatoirement le prénom en minuscule.

 

[CISCO]

Bonjour

Deux possibilités en pièce jointe, prenant en compte deux autres possibilités.
En colonne G, la formule la plus simple, convenant peut-être, mais mettant un espace devant le prénom lorsque celui-ci est écrit sans majuscule au début (jean au lieu de Jean).
En colonne F, une formule matricielle éliminant cet espace devant les prénoms écrits sans majuscule au début.
Ces deux formules sont matricielles, donc à valider avec Ctrl+maj+entrer

@ plus

P.S : 20 lettres au max dans le prénom

 

[patricktoulon]

re
bonjour
DUPONT jean paul
DUPONT Jean paul
DUPONT Jean Paul
et ben tu va t'amuser avec une formule
sans parler des noms composés

en VBA pas de soucis si tu veux
la seule condition est que le nom soit en majuscule, les prénoms (même composés) pourront être en min ou vbpropercase

 

[CISCO]

Bonjour à tous

@ patricktoulon : Cela fonctionne en mettant en évidence la première minuscule...

@ plus

 

[Etn]

Et bah ! Incroyable !!

Merci beaucoup Cisco !! (et les autres également)

Juste bluffant !

 

[patricktoulon]

re
oui j'ai vu la matricielle

sinon en VBA tout simplement

Function nomPrenom(ByVal cel As String, ByVal x As Long)
    Dim t, i&, z$
    t = Split(cel, " ")
    For i = 0 To UBound(t)
        If x = 1 Then If t(i) = UCase(t(i)) Then z = z & " " & t(i)
        If x = 2 Then If Not t(i) = UCase(t(i)) Then z = z & " " & t(i)
    Next
    nomPrenom = Trim(z)
End Function

et la formule
=nomPrenom(A8;1) pour le nom
=nomPrenom(A8;2) pour le prenom

comme je disais la seule obligation est que le nom soit en maj l'ordre peu importe

 

[Etn]

Excellente solution aussi !

Je vais réfléchir pour voir laquelle prendre.

Merci à vous !

 

[Amilo]

Bonsoir,
Comme je tombe sur ce fil, je poste une autre solution pour le fun en colonne J et K
Cordialement

 

[CISCO]

Bonsoir

Bien vu, l'utilisation de la fonction CAR

@ plus