Extraire des éléments séparés par un point dans une cellule

BOnjour,

Je souhaiterais éclater des informations qui se trouve dans une cellule sur plusieurs colonnes. Ces élements sont séparés par un point le nombre de caractères varient la seule donnée fiable est le point.

J'ai trouvé la formule pour extraire les 3 ou 4 premiers caractères mais après je n'y arrive pas. Je vous ai mis dans les colonnes ce que j'attendais comme élément.

Je vous joins mon fichier.

Merci de votre aide

Bonjour,

Pourriez-vous m’expliquer comment vous êtes arrivé aux résultats pour CATFI et CRT ? Je comprends les autres, mais pas ces deux-là.

Cordialement

Bonsoir,

En fait pour CATFI et CRT ca correspond aux 2 champs avant celui du CR il y a 3 zéro qu'on ne prend pas.

ST99 activité

67010191 UO

621100 Compte

FDF LB

0 on ne le récupère pas

0 on ne le récupère pas

0 on ne le récupère pas

0 pour CATFI

01 pour CRT

67010 pour CR

Voilà j'expère avoir été claire dans mon explication.

Merci

Bonjour,

Tu sélectionnes A10:A15.

Onglet Données, outil Convertir.

Délimité, Suivant.

Séparateur : Autre : . (point), Suivant.

Sélectionne les colonnes qui ne t'intéressent pas, puis pour chacune coche Colonne non distribuée, Destination : B10, Terminer.

C'est pas automatique, mais à l'occasion ça marche.

Je pense qu'XOR va t'envoyer les bonnes formules sinon...

Salut.

Bonjour,

Concernant ma demande est-ce que quelqu'un aurait l'idée d'une formule car je souhaiterais automatiser ce problème et non pas convertir le fichier à chaque fois.

Merci de votre aide,

cordialement,

Bonjour,

Une proposition.

Cdlt

Option Explicit
Public Sub test()
Dim sH As Worksheet
Dim Derligne As Long, i As Long
Dim tmp
    Application.ScreenUpdating = False
    Set sH = Worksheets("Feuil1")
    With sH
        Derligne = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 10 To Derligne
            tmp = Split(.Cells(i, 1), ".")
            .Cells(i, 5) = tmp(0)
            .Cells(i, 6) = tmp(1)
            .Cells(i, 7) = tmp(2)
            .Cells(i, 8) = tmp(3)
            .Cells(i, 7) = tmp(7)
            .Cells(i, 10) = tmp(8)
            .Cells(i, 11) = tmp(9)
        Next
    End With
    Set sH = Nothing
End Sub

Bonjour,

Merci ca marche du tonnerre !!!

Cordialement,

Bonjour

Je permets de vous déranger car j'ai à peu près le même problème. J'ai dans un fichier xls une colonne adresse du type : 19 rue marignan 75008 Paris.

J'aimerai l'éclater et créer 3 colonne : 1 colonne adresse (19 rue Marignan), une colonne code postale (75008) et une colonne ville (Paris).

Pouvez-vous m'aidez?

Merci beaucoup par avance

Veaf

Bonsoir,

Exemple dans le fichier.

Cdlt