Tableau fichier csv, split virgule

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,
étant particulièrement novice en VBA, j'ai besoin d'aide pour un projet d'étude. en effet, je veux splitter les caractères séparés par une virgule entre 2 mais il y a une colonne qui contient des noms où la virgule ne doit pas être splitter et les mots sont en guillemets. Je sais pas si je suis bien claire.
Je veux tout splitter à la virgule sauf le nom qui est entre guillemets mais qui est aussi séparé d'une virgule, du coup la fonction me le spplit aussi.

Comment faire pour que le Nom de se spillt pas. Je vous mets mon code et mon fichier
Code:

1 2 3 4 5 6 7 8 9 10 11 DerniereLigne = Cells(65535, 1).End(xlUp).Row Dim ContenuInitial As String Dim a() As String For i = 1 To DerniereLigne ContenuInitial = Cells(i, 1).Value a() = Split(ContenuInitial, ",") For j = 0 To UBound(a) Cells(i, j + 1).Value = a(j) Next j Next I

Bonjour,

une piste à creuser avec un split intermédiaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub toto()
Dim a, b
 
' on sépare en fonction des guillemets
a = Split(ActiveCell.Value, """")
 
' la seconde portion contient la chaine où la virgule doit être exclue
' on la remplace par un point virgule
a(1) = Replace(a(1), ",", ";")
 
' on rassemble et on resplit
b = Split(Join(a, """"), ",")
 
End Sub

Si besoin de remettre la virgule en place, je te laisse ajouter ce post-traitement

24/01/2018, 08h33
Invité

Bonjour,

Regardes ce lien tu pourras définir la virgule comme délimiteur!

Note qu'en Ado la virgule est le délimiteur par défaut pas besoin de schéma.ini!

https://www.developpez.net/forums/d1...e/#post9771189
24/01/2018, 10h13
polo9431

Citation:

Envoyé par dysorthographie

Bonjour,

Regardes ce lien tu pourras définir la virgule comme délimiteur!

Note qu'en Ado la virgule est le délimiteur par défaut pas besoin de schéma.ini!

https://www.developpez.net/forums/d1...e/#post9771189

Bonjour merci pour votre réponse mais quel est le but exacte de cette manip? je comprends pas pas très bien le code..?

Citation:
Envoyé par joe.levrai
Bonjour,

une piste à creuser avec un split intermédiaire
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub toto() Dim a, b ' on sépare en fonction des guillemets a = Split(ActiveCell.Value, """") ' la seconde portion contient la chaine où la virgule doit être exclue ' on la remplace par un point virgule a(1) = Replace(a(1), ",", ";") ' on rassemble et on resplit b = Split(Join(a, """"), ",") End Sub
Si besoin de remettre la virgule en place, je te laisse ajouter ce post-traitement
Merci beaucoup de ta réponse.
Oui en effet, c'est une idée, j'essaye de la réaliser. toutefois je comprends pas, j'ai un message d'erreur au niveau de a(1) message d'erreur 9"l'indice est en dehors des délimitations". Je dois mal l'exécuter

24/01/2018, 10h18
Invité

le but de cette manip est de remplir ta feuille sens faire un replace des virgule, sens faire un split ,sens faire un scan du tableau pour renseigner tes cellule!

en gros moyennant une légère modification faire exactement ce que tu demande!
24/01/2018, 10h22
Menhir

Citation:

Envoyé par polo9431

Je veux tout splitter à la virgule sauf le nom qui est entre guillemets mais qui est aussi séparé d'une virgule, du coup la fonction me le spplit aussi.

Au lieu d'utiliser la fonction Split qui est assez limitée dans ses possibilités, copie tes données dans des cellules et utilise la méthode TextToColumns qui peut faire exactement ce que tu décris (si on lui donne les bons paramètres).
https://msdn.microsoft.com/fr-fr/lib.../ff193593.aspx

Ce qui peut donner un code du style :

Code:

Range("A1:A100").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Tab:=False, Comma:=True,

Pour faire propre, il faudrait aussi typer les données par colonne avec le paramètre FieldInfo.

Code:

1
2
3
4
5
6
7
Sub test()
With CreateObject("AdoDb.Connection")
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\MyRepertoire;Extended Properties=""Text;HDR=YES;"""
    Range("a1").CopyFromRecordset .Execute("Select * from [Testes2Rd#csv]")
    .Close
End With
End Sub

Citation:
Envoyé par dysorthographie
Code:

1 2 3 4 5 6 7 Sub test() With CreateObject("AdoDb.Connection") .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\MyRepertoire;Extended Properties=""Text;HDR=YES;""" Range("a1").CopyFromRecordset .Execute("Select * from [Testes2Rd#csv]") .Close End With End Sub
Merci de tes réponses, c'est super. Toutefois je crois que je capte toujours pas...
Message d'erreur quand je l'utilise "un exposant active x ne peut pas être crée sur le "with créate object"

24/01/2018, 10h43
polo9431

Citation:

Envoyé par Menhir

Au lieu d'utiliser la fonction Split qui est assez limitée dans ses possibilités, copie tes données dans des cellules et utilise la méthode TextToColumns qui peut faire exactement ce que tu décris (si on lui donne les bons paramètres).
https://msdn.microsoft.com/fr-fr/lib.../ff193593.aspx

Ce qui peut donner un code du style :

Code:

Range("A1:A100").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Tab:=False, Comma:=True,

Pour faire propre, il faudrait aussi typer les données par colonne avec le paramètre FieldInfo.

J'ai essayer de le faire toutefois de 1 colonnes je veux "splitter" en plusieurs colonne qui ne sont pas défini par à l'avance. De plus, le nombre de ligne est aléatoire, Je ne sais donc pas si cette fonction peut marcher encore
24/01/2018, 10h46
Invité

tu travail dans un milieu sécurisé genre banque,assurance?

plus clair

Merci a tous pour vos réponses, pour comprendre exactement ce que je veux faire, je vous mets le code complet (pas optimiser du tout :roll:)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Dim premier_ligne As String
   Dim derniere_ligne As Long
   Dim i_tab As Long
   Dim a, b
 
    'Application.ScreenUpdating = False
                 ' initialisation classeur source
                        Set wbSource = ThisWorkbook
                        ' sélection du fichier à importer
                     FileToOpen = Application.GetOpenFilename()
                        ' si choix effectué
                        If FileToOpen = False Then
                            MsgBox "Vous n'avez pas sélectionné de fichier csv.", 16
                            Exit Sub
                        Else
                            ' ouverture du fichier csv
                            Workbooks.OpenText FileName:=FileToOpen, Local:=True
 
                            'colle la partie csv dans excel
                            Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
  ' FileToOpen.Close
 
End If
 
 
DerniereLigne = Cells(65535, 1).End(xlUp).Row
   Dim ContenuInitial As String
    Dim c() As String
 
    For i = 1 To DerniereLigne
        ContenuInitial = Cells(i, 1).Value
        c() = Split(ContenuInitial, ",")
        For j = 0 To UBound(c)
        Cells(i, j + 1).Value = c(j)
        Next j
    Next i

24/01/2018, 10h52
polo9431

pas sécurisé du tout

Citation:

Envoyé par dysorthographie

tu travail dans un milieu sécurisé genre banque,assurance?

Non pas du tout ke suis étudiant sur mon ordi perso (mac)
8O
24/01/2018, 11h04
Invité

je n'avais as vue que dans ton poste tu avais précisé que tu travaillais sur mac! désole ça marchera pas!

mais effectivement c'est indiqué!

si une personne peut t'indique comment convertir mon code sur MAC, ça m'intéressera de voir le processus, car je suis convaincu qu'il est possible de faire du l'Ado Sql sur MAC!

Citation:

Envoyé par polo9431

J'ai essayer de le faire toutefois de 1 colonnes je veux "splitter" en plusieurs colonne qui ne sont pas défini par à l'avance. De plus, le nombre de ligne est aléatoire, Je ne sais donc pas si cette fonction peut marcher encore

Je suppose que le terme "aléatoire" est mal choisi et que tu veux dire "variable".
Ceci ne pose pas de problème. D'autant plus que tu as déjà le nombre de lignes dans une variable.

Je ne vois pas non plus en quoi le nombre de colonnes peut poser problème.
Il suffit de faire l'opération sur une feuille vierge.
Mais comme je vois que dans ton code tu mets le résultat dans les colonnes B et plus, je pense que ce ne sera pas nécessaire.
En tout cas, je ne vois pas pourquoi ça pourrait poser problème avec des cellules et ne pas poser de problème avec un tableau de variables.
Code:

1 2 3 Dim DerniereLigne As Range Set DerniereLigne = Cells(Rows.Count, 1).End(xlUp) Range("A1", DerniereLigne).TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Tab:=False, Comma:=True
Attention à ta variable DerniereLigne : tu as un orthographe différent dans la déclaration et dans le reste du code.

24/01/2018, 12h30
polo9431

Bonjour et merci pour ta réponse,

quand j'utilise ton code il m'affiche une erreur "variable objet ou variable de bloc With non défini"?

C'est à dire mon code VBE, c'est un copié coller de mon code dans l'éditeur de macro si :)
24/01/2018, 13h00
patricktoulon

re

re

bonjour
donc je reprends depuis le debut;)

si je comprends bien tu a un csv qui a comme separateur une virgule MAIS!!!!!! deux de tes colonnes sont en fait une avec nom/prenom entre guillemet separer par une virgule
c'est bien ca ???

si c'est le cas il te faut travailler en deux fois
a savoir
ouvrir le csv en text avec open for input (en memoire)

faire un replace de tout le texte sur le (","( la virgule qui separe nom/prenom) par exemple par ceci:("|") ou ce que tu veux
tu peut faire ensuite un replace sur les virgule en point virgule
a partir de maintenant tu a le choix
soit tu sauve le texte obtenu dans un fichier tempavec open for output et tu le réouvre en mode local puis un texttocolonne par les ";"
soit tu fait un tablo avec un double split ligne/colonne

rien de bien compliqué

ai je bien saisi ton probleme ?
24/01/2018, 13h12
Menhir

Citation:

Envoyé par polo9431

quand j'utilise ton code il m'affiche une erreur "variable objet ou variable de bloc With non défini"?

Je l'ai testée avant de la mettre en ligne.
Si ça ne marche pas dans ton code, c'est soit que tu as mal copié, soit qu'il y a quelque chose dans ton code qui met un grain de sable.
As-tu remarqué que DerniereLigne est définie en tant que Range ?

Citation:

C'est à dire mon code VBE, c'est un copié coller de mon code dans l'éditeur de macro si

C'est la faute d'orthographe sur ta variable derniere_ligne / DerniereLigne qui m'a induit en erreur.
Tu devrais mettre un Option Explicit au début de tes codes pour éviter de type d'erreur.
24/01/2018, 13h15
Invité

Citation:

Envoyé par Menhir

Je l'ai testée avant de la mettre en ligne.

C'est la faute d'orthographe sur ta variable derniere_ligne / DerniereLigne qui m'a induit en erreur.
Tu devrais mettre un Option Explicit au début de tes codes pour éviter de type d'erreur.

Bonjour Menhir,

si tu veux t’enduire avec de l'erreur il m'en reste!
24/01/2018, 13h21
Menhir

Citation:

Envoyé par dysorthographie

Bonjour Menhir,
si tu veux t’enduire avec de l'erreur il m'en reste!

Bonjour dysorthographie,

Tu parles d'erreur dans mon code ou dans le sien ?

Voir 40 message(s) de cette discussion en une page