séparer plusieurs données d'une cellule (nom, téléphone, fax, email...)

[bachus]

Bonjour,
je suis face à un problème que je n'arrive pas du tout à régler.

j'ai plusieurs données à séparer sur des cellule qui n'ont pas le même nombre de caractères. je ne vois pas comment m'y prendre:

=> ex: dans une cellule il y a :

Cindy
Tel:0595-22765581
Fax:0595-22765584
Email:vicky@qzshuoxin.cn

=> je souaite avoir dans des cellules séparée:
[Cindy] [0595-22765581] [0595-22765584] [vicky@qzshuoxin.cn]

je vous met le fichier en PJ pour ceux qui souhaitent avoir plus d'info. merci d'avance.


Regarde la pièce jointe BDD_sarah(1).xls

 

[Efgé]

Re : séparer plusieurs données d'une cellule (nom, téléphone, fax, email...)

Bonjour bachus, le fil, le forum
Une proposition par macro :

Sub Eclat()
Dim C As Range, T As Variant
With Sheets("Feuil1")
    For Each C In .Range("F2:F" & .Cells(Rows.Count, 6).End(xlUp).Row)
        T = Split(C.Value, Chr(10))
        C.Offset(0, 1).Resize(1, UBound(T) + 1) = T
    Next C
End With
End Sub

Cordialement

EDIT : Cette solution n'est pas bonne, je n'avais pas tout pris en compte...

Il me semble difficile d'arriver au résultat attendu

 

[Victor21]

Re : séparer plusieurs données d'une cellule (nom, téléphone, fax, email...)

Bonjour, Bachus.

Sans macro :
En G2, à recopier vers le bas :

=SUBSTITUE(F2;CAR(10);"µ")

Puis Copier, collage spécial valeur la colonne G
Puis Données, convertir avec comme séparateur µ
Restera ensuite à remplacer (Edition, remplacer, tout) "Tel:" par rien en colonne H,"Fax:" par rien en colonne I et "Email:" par rien en colonne J.

 

[bachus]

Re : séparer plusieurs données d'une cellule (nom, téléphone, fax, email...)

Bonjour, Bachus.

Sans macro :
En G2, à recopier vers le bas :

=SUBSTITUE(F2;CAR(10);"µ")

Puis Copier, collage spécial valeur la colonne G
Puis Données, convertir avec comme séparateur µ
Restera ensuite à remplacer (Edition, remplacer, tout) "Tel:" par rien en colonne H,"Fax:" par rien en colonne I et "Email:" par rien en colonne J.

super patrick ça fonctionne parfaitement, je connaissais pas du tout cette formule, merci beaucoup

 

[Efgé]

Re : séparer plusieurs données d'une cellule (nom, téléphone, fax, email...)

Re, Bonjour Victor21,
Si la procédure de Victor21 correspond à la demande, cela ira aussis (bien que la pauvre Amy ne soit pas traitée comme les autres...😉)

Sub Eclat()
Dim TR(), T As Variant, C As Range, Plg As Range, i&
With Sheets("Feuil1")
    Set Plg = .Range("F2:F" & .Cells(Rows.Count, 6).End(xlUp).Row)
End With
For Each C In Plg
    T = Split(C.Value, Chr(10))
    ReDim TR(0 To UBound(T))
    TR(0) = T(0)
    For i = 1 To UBound(T)
        If T(i) <> "" Then TR(i) = Split(T(i), ":")(1)
    Next i
    C.Offset(0, 1).Resize(1, UBound(TR) + 1) = TR
Next C
End Sub

Cordialement