fichier avec colone

[samiste]

bonjour a tous j'ai déjà postée le sujet mais je suis peut etre mal expliquée

voila mon probleme

dans la colone a j'ai madame ou monsieur j'arrive pas a enlever les '
dans la colone b j'ai le non et prénon pareil avec ', par contre apés sa ce gate j'ai la fin du non dans la colone c plus la fonction de la personne et ainsi de suite pour les autres colones

je sais ps comment faire pour avoir

dans la colone a madame dans la colone b le non et prénon et dans la colone c la fontion dans la d l'adresse et la e le uméro de téléphone

je joint un exemple du fichier


mercia tous pour votre aide [file name=fichier_20051205132647.zip size=3125]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/fichier_20051205132647.zip[/file]

 

[ERIC S]

Bonjour

La question est : d'où viennent les données ?

je pense que c'est dans le rapatriement de celles-ci qu'on pourrait faire quelque chose

pour l'histoire des ', edition-remplacer ' ok fonctionne

A+

 

[Hervé]

bonjour samiste, eric

Une proposition en pièce jointe, par vba, renvoi des données en feuille 2.

salut [file name=fichier_20051205135110.zip size=10108]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/fichier_20051205135110.zip[/file]

 

[samiste]

merci hervé c'est impecable

je peut avoir ton vba pour voir comment tu a fait

 

[samiste]

car j'ai plus de 150 lignes a faire comme ça

merci

 

[Hervé]

re samiste, eric


'avoir ton vba', je sais pas, j'ai peur que l'on ne se connaisse pas assez.

La macro s'adapte toute seule au nombre de ligne.

pour voir le code, tu fais simplement ALT + F11

Et tu va tomber sur ceci :

Sub Bouton1_QuandClic()
Dim c As String
Dim ligne As Integer
Dim i As Integer
Dim texte As String
Dim j As Byte

ligne = 1

For i = 2 To Range('a65536').End(xlUp).Row
        For j = 1 To 8
        c = Replace(Cells(i, j), '''', '')
                texte = texte & c
        Next j
        tablo = Split(texte, ',')
        For j = 0 To UBound(tablo)
                With Sheets('feuil2')
                        .Cells(ligne, 1) = tablo(0) 'titre
                        .Cells(ligne, 2) = tablo(1) 'nom complet
                        .Cells(ligne, 3) = tablo(4) 'fonction
                        .Cells(ligne, 4) = tablo(7) & ' ' & tablo(9) 'adresse complete
                        .Cells(ligne, 5) = tablo(10) 'téléphone
                End With
        Next j
        ligne = ligne + 1
        texte = ''
Next i

End Sub

salut

 

[samiste]

ok merci beaucoup c'est super sympas

Hervé
:woohoo:

 

[GIBI]

Bonjour,


je pense que tu as mal converti un fichier texte, mais on peut y remédier facilement sans macro, uniquement du bon vieux Excel.



Il faut recontituer le fichier en concaténant les colonnes sur la feuilles 2
enter la formule
=Feuil1!A2&Feuil1!B2&Feuil1!C2&Feuil1!E2&Feuil1!F2&Feuil1!G2&Feuil1!H2&Feuil1!H2

copier cette formule sur le nombre de lignes necessaires.

aprés reconstitution, il suffit d'utiliser la fonction Données/Convertir et de choisir fichier données avec séparateur et d'indiquer séparateur = ',' ===> ça marche tout seul


Bon courage