Discussion :

[polo9431]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

Bonjour,

une piste à creuser avec un split intermédiaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[polo9431]

Bonjour,

une piste à creuser avec un split intermédiaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[polo9431]

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..?

[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!

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[polo9431]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[patricktoulon]

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 ?

[Menhir]

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 ?

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.

[Invité]

Code Voila tout en 1 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[polo9431]

Code Voila tout en 1 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[Invité]

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

[polo9431]

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 )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[polo9431]

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

Non pas du tout ke suis étudiant sur mon ordi perso (mac)

[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!

[Invité]

le mien et par voie de conséquence le tien!

C'est la faute d'orthographe sur ta variable derniere_ligne / DerniereLigne qui m'a induit en erreur.