Microsoft 365 Extraire éléments d'une cellule

[libellule85]

Bonsoir le forum,
Je viens de récupérer un fichier d'une data publique d'une mairie.
Je cherche à récupérer les éléments d'une cellule : Prénom Nbre Année Sexe pour les mettre chacun dans une colonne.
Ces éléments sont dans chaque cellules de la colonne C à partir de la C3, en plus chaque élément est séparé d'un trait vertical !
Pour récupérer les extrêmes, pas de problème j'utilise droite et gauche mais pour les autres éléments à l'intérieur de la cellule je ne sais pas comment faire.
Vous remerciant par avance pour votre aide.

 

[sylvanu]

Bonsoir Libellule,
Un essai en PJ avec :

Sub Worksheet_Activate()
    Dim DL%, T, T2, L%, i%
    With Sheets("Feuil1")
        DL = .Cells(.Rows.Count, "A").End(xlUp).Row
        T = .Range("C3:C" & DL)
    End With
    [A2:A10000].ClearContents
    L = 2
    For i = 1 To UBound(T)
        T2 = Split(T(i, 1), "|")
        Cells(L, "A") = Trim(T2(0))
        Cells(L, "B") = Val(T2(1))
        Cells(L, "C") = Val(T2(2))
        Cells(L, "D") = Trim(T2(3))
        L = L + 1
    Next i
End Sub

La macro s'exécute quand on sélectionne Feuil2.

 

[Gégé-45550]

Bonsoir le forum,
Je viens de récupérer un fichier d'une data publique d'une mairie.
Je cherche à récupérer les éléments d'une cellule : Prénom Nbre Année Sexe pour les mettre chacun dans une colonne.
Ces éléments sont dans chaque cellules de la colonne C à partir de la C3, en plus chaque élément est séparé d'un trait vertical !
Pour récupérer les extrêmes, pas de problème j'utilise droite et gauche mais pour les autres éléments à l'intérieur de la cellule je ne sais pas comment faire.
Vous remerciant par avance pour votre aide.

Bonjour,
Utilisez le Menu 'Données" ,puis "à partir d'un tableau ou d'une plage" et enfin sélectionnez la barre verticale comme séparateur.
Voir exemple en PJ.
Cordialement,

 

[libellule85]

Bonsoir sylvanu, Gégé-45550,
Merci beaucoup pour vos réponses.
J'ai recherché sur Internet, j'ai essayé avec la fonction MID qui est remplacée en français par STXT et j'ai réussi à extraire les éléments...
Mais vos méthodes sont mieux

 

[patricktoulon]

Bonsoir
Tu copies la colonne tu la colle en cellule 1 de l'autre feuille ensuite donnée /convertir tu prends délimité et tu précises le séparateur"|"
Terminé tu n'a besoins de personne

 

[OKBI]

Bonsoir,
A tester Après avoir sélectionné les cellules --> Données/Convertir/Délimité/Autre --> |
Cdt

 

[sylvanu]

Re,
Un autre essai très rapide s'il y a beaucoup de lignes.

 

[libellule85]

Bonsoir patricktoulon, OKBI,
Merci beaucoup pour vos réponses

 

[Jean-Eric]

Bonjour,
Une proposition avec formule (XL365, 2024).
Cdlt.

 

[Hecatonchire]

Bonjour à toutes et tous

Je joue aussi donc je propose
=FRACTIONNER.TEXTE(SUBSTITUE(C3;" ";"");"|") à recopier vers le bas

ou sans recopie
=FRACTIONNER.TEXTE(JOINDRE.TEXTE("@";FAUX;SUBSTITUE(C3:C10;" ";""));"|";"@")