Séparer des prénoms et noms collés

Question

A la suite d’une erreur inconnue la plupart des noms et prénoms d’une colonne d’un de mes tableaux sont collés, c’est à dire qu’il n’y a plus d’espace entre le prénom et le nom. Mais j’ai conservé dans une autre colonne les noms seuls . J’ai donc une colonne avec nom et prénom collés et une autre avec des noms tout seuls. Y aurait-il une formule qui me permettrait de retrouver ma séparation nom prénom avec ces 2 valeurs ? Merci Ce que j’ai : Col 1 JeanDupont Col 2 Dupont Ce que j’aimerais : Col 3 Jean Dupont...

JFL · Accepted Answer

Vous avez, sur d'autres sujets, noté les posts comme étant résolus.... vous êtes donc en capacité de réitérer la chose.... non ...

BAROUTE78 · Answer

En colonne D ligne 1 : = SUBSTITUE(A1 ; B1 ; "") & " " & B1 @+...

BAROUTE78 · Answer

Dur sans fichier de voir ce qui cloche...

salmanasard · Answer

Je ne sais pas comment ça se traduit en 365 pour Ipad mais pour moi, ça fonctionne aussi comme ça : =GAUCHE(A1;NBCAR(A1)-NBCAR(C1)) à adapter avec tes cellules de référence ;)...

Geof52 · Answer

Ton premier message n'est pas représentatif de ton probleme (capture d'ecran et fichier). BAROUTE78 a raison mais du coup ta formule doit etre : =SUBSTITUE(&#91;@&#91;Collage des auteurs&#93;&#93;;&#91;@trinomdefamille&#93;;"")&" "&&#91;@trinomdefamille&#93; Edit : il y a d'autres problemes pour Andrea Maria par exemple Edit 2 : Ok ce fichier c'est n'importe quoi Tu demandes a ta colonne D de prendre les données de la colonne A en supprimant les espaces, c'est donc normal que tes noms soient collé "erreur inconnue". J'essai de te faire un truc sur la colonne A Edit 3 : Je pensais supprimer toutes les epaces et en mettre seulement devant les majuscules mais certains auteurs sur tes lignes masquées ont leurs nom entier en majuscule Donc je seche... A+...

JFL · Answer

Une tentative (MAC ? Ipad ?) pour une valeur en A1 : =LET(t;SUBSTITUE(A1;" ";"");REDUCE(;STXT(t;SEQUENCE(NBCAR(t));1);LAMBDA(i;c;SI(UNICODE(c)&lt;97;i&" "&c;i&c))))...

Geof52 · Answer

Le bout de code qui me permet de supprimer les espaces et d'en ajouter devant les majuscules : (sur colonne A)

Sub ChangeAuteur()

Const MajChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Dim LigneListe, DerLigne, Chars As Integer
Dim SuiteChars As String * 1
Dim PreNom As String

Application.ScreenUpdating = False

DerLigne = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For LigneListe = 2 To DerLigne

    PreNom = ActiveSheet.Cells(LigneListe, 1).Value
    PreNom = Replace(PreNom, " ", "")
    For Chars = 1 To Len(MajChars)
        SuiteChars = Mid(MajChars, Chars, 1)
        PreNom = Replace(PreNom, SuiteChars, " " & SuiteChars)
    Next Chars

    PreNom = Replace(PreNom, " ", "", 1, 1)
    ActiveSheet.Cells(LigneListe, 1).Value = PreNom
Next LigneListe

MsgBox "fin"
End Sub

Probleme 1 : Tu as des carateres qui semble etre des espaces mais qui n'en sont pas comme les lignes de 2 a 16

Probleme 2 : Les Noms entirement en Majuscule donnent : "C A S A R E S"

Mais "Adrian Conan Doyle John Dickson Carr" est correctement écrit.

6copie-de-copie-de-copie-de-copie-de-polars-ok-ok-ok-p-for-geof52.zip (476.38 Ko)

Pour info dans ce fichier, j'ai supprimé les filtres et executé la macro puis enregistré en xlsx
(la macro est toujours a l'intérieur de ta feuille)

JFL · Answer

Bien... Je vous remercie de ce retour. Ne pas oublier de passer le sujet en mode résolu ...