Comment structurer fichier excel

Résolu
B95190 -  
Bonjour,
j'ai un fichier excel contenant des données sur mes clients et je souhaite structurer ces données.
Actuellement mon fichier à la forme suivante :
"Durand","jacques","0505334422","PARIS"
et je voudrais creer un tableau excel avec le nom, le prénom,le numéro et la ville de chaque client.
Est il possible de faire cela et comment le faire en evitant d'avoir a copier manuellement chaque information puisque j'ai plus de 500 clients 0_u ??
Merci a tous

4 réponses

  1.  Vaucluse Contributeur
    Bonjour
    on peut y arriver par formule si le fichier est évolutif!mais avant de compliquer(c'est assez tordu), si vos données sont telles que vous le dites:
    si on est sous excel 2007:
    1° opération:
    sélectionnez la colonne pour supprimer les "" qui nous embêtent et ne conserver que les virgules:
    soit/ Onglet "Accueil" à droite: Recherche etc...
    sélectionnez:
    remplacer
    en haut " en bas rien
    et cliquez sur remplacer tout
    ensuite, toujours avec la colonne sélectionnée:
    onglet Données Outil de données / convertir
    cochez "délimité" et "suivant" et "virgule" et "terminer"
    vos données sont rangées en colonne selon les positions des virgules.

    Ps vous pouvez aussi éviter la 1° opérations en choisissant: autre et en entrant " dans la case réservée.
    Vous aurez alors une colonne vide entre chaque rubrique.

    Crdlmnt

    1
    2. B95190 Auteur
      Mercii beaucoup, j'ai essayé et ça fonctionne.J'ai une autre question, est il possible de faire en sorte que ces manipulations soit automatisées car je dois faire ce travail pour plusieurs fichiers.?
      0
      1. Vaucluse Contributeur
        " est il possible de faire en sorte que ces manipulations soit automatisées "

        ... sans doute, mais moi je ne sais pas!
        avec mes regrets
        Bonne chance.
        crdlmnt
        Ps à tout hasard le libellé de la macro qui fait le travail:

        Sub SEPARE()
        Columns("A:A").Select
        Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo:= _
        Array(Array(1, 1), Array(2, 1), Array(3, 1),Array(4, 1), TrailingMinusNumbers:=True
        End Sub
        0
    3. Bidouilleu_R
      voici une proposition pour automatiser mais à mon avis
      la source de ton fichier aurait pu être redistribuer comme te l'as indiqué vaucluse.

      note aussi 2 points :
      1 ) je considère qu'il y a une ligne de titre donc je commence en A2
      2) le 0 du numéro de telephone va disparaître il suffit d'appliquer le format spécial
      pour l'affichage du tel.

      bonne journée. 

      Sub decoupage()

Dim DerLig As Long
Dim Ligne As String
Dim K As Integer
Dim I As Integer
    Range("A1").Select
    Selection.CurrentRegion.Select
    ' suppression des guillemets
    Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

DerLig = Range("A65535").End(xlUp).Row
' je suppose que le tableau commence en A2
' s'il commence en A1 : changer le 2 en 1
' sur la ligne suivante
K = 2
For I = 2 To DerLig
     Ligne = Cells(I, 1).Value
     While Len(Ligne) > 0
        If Left(Ligne, 1) = "," Then
            K = K + 1
            Ligne = Right(Ligne, Len(Ligne) - 1)
        Else
          
             Cells(I, K).Value = Cells(I, K) & Left(Ligne, 1)
             Ligne = Right(Ligne, Len(Ligne) - 1)
           
        End If
        
     Wend
     K = 2


Next
End Sub
      0