Microsoft 365 Extraire éléments d'une cellule

sylvanu

XLDnaute Barbatruc

Supporter XLD

• Samedi à 21:08

• #2

Bonsoir Libellule,
Un essai en PJ avec :

VB:

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.

 

Pièces jointes

• Exemple data Libellule85.xlsm

  20.7 KB · Affichages: 2

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• Samedi à 21:14

• #3

libellule85 à dit:

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.

Cliquez pour agrandir...

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,

 

Pièces jointes

• Exemple Libellule85.xlsm

  21.5 KB · Affichages: 3

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• Samedi à 21:30

• #4

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• Samedi à 21:32

• #5

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

 

Vote positif 0 Vote négatif

O

OKBI

XLDnaute Occasionnel

• Samedi à 21:32

• #6

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• Samedi à 21:38

• #7

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

 

Pièces jointes

• Exemple data Libellule85 V2.xlsm

  21.7 KB · Affichages: 4

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• Samedi à 21:39

• #8

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

 

Vote positif 0 Vote négatif

Jean-Eric

XLDnaute Occasionnel

• Samedi à 22:01

• #9

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

 

Pièces jointes

• Exemple data Libellule85.xlsx

  12.9 KB · Affichages: 1

Vote positif 0 Vote négatif

H

Hecatonchire

XLDnaute Occasionnel

• Samedi à 23:24

• #10

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;" ";""));"|";"@")

 

Vote positif 0 Vote négatif