Discussion :

[Jean-Philippe André]

Salut,
je pense que ton soucis se situe dans le contenu de ton champ F19...
Et si en ajoutant par exemple un Nz comme ceci, ca donne quoi :

Code :

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

vaColone_1=Nz(Split(rstS("F19"),"") & "", ",")

[totor92290]

Bonsoir Marot_r

Je reviens vers toi si tu as une solution pour mon problem ou bien mon problem est-il mal décrit?

Merci à toi

Totor

[totor92290]

Bonsoir Marot_r

Je reviens vers toi pour savoir si tu as une solution pour mon problème ou bien mon problème est-il mal décrit?

Merci à toi
.... Je suis perdu!!!
Totor

[totor92290]

Bonsoir Marot_r,

Petit souci ... je viens de découvrir qu'il pouvait y avoir plusieurs pages!! D'ou mes relances successives!

Concernant ta proposition sur le code ci-dessous:

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
Private Sub Command13_Click()
 
    Dim db As DAO.Database: Set db = CurrentDb
    Dim rstS As DAO.Recordset, rstD As DAO.Recordset
    Dim strSQL As String
    Dim vaColonne_1() As Variant
    Dim i As Integer
 
    strSQL = "SELECT TaSourceADecouper.[F19] FROM TaSourceADecouper;"
    Set rstS = db.OpenRecordset(strSQL)
    strSQL = "SELECT TaTableResultat.Colonne_1, TaTableResultat.Colonne_2, TaTableResultat.Colonne_3, TaTableResultat.Colonne_4, TaTableResultat.Colonne_5, TaTableResultat.Colonne_6, TaTableResultat.Colonne_7, TaTableResultat.Colonne_8, TaTableResultat.Colonne_9, TaTableResultat.Colonne_10, TaTableResultat.Colonne_11, TaTableResultat.Colonne_12 FROM TaTableResultat;"
    Set rstD = db.OpenRecordset(strSQL)
 
    While rstS.EOF = False
        vaColone_1 = Nz(Split(rstS("F19"), "") & "", ",")
        rstD.AddNew
 
        For i = LBound(vaColonne_1) To UBound(vaColonne_1)
           rstD.Fields("Colonne_" & i + 1) = vaColonne_1(i)
 
        Next i
 
        rstD.Update
        rstS.MoveNext
    Wend
    rstS.Close
    rstD.Close
    Set rstS = Nothing
    Set rstD = Nothing
    Set db = Nothing
 
 
End Sub

c'est la ligne

Code :

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

        vaColone_1 = Nz(Split(rstS("F19"), "") & "", ",")

qui passe en jaune...
avec le message d'erreur Run-time error '13':
Type mismatch

C'est quoi qui coince?

Un grand merci

Totor

[Jean-Philippe André]

salut,

faire un split avec en second parametre une chaine vide "" c'est pas top faut dire

j'ai inverse les deux imbrications :

Code :

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

vaColone_1=Split(Nz(rstS("F19"),""),",")

[totor92290]

Bonjour jpcheck,


Toujours un message d'erreur!

sur la ligne

Code :

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

For i = LBound(vaColonne_1) To UBound(vaColonne_1)

message d'erreur

Run-time errort '9':
Subscript out of range

quand je passé la souris sur le champ surligné en jaune:
Lbound(vaColonne_1)=<Subscript out of range>

Qu'est ce que cela veut dire?
Mon champ F19 de la table "TaSourceADecouper" contient, pour l'instant, 8 references séparées par des virgules et ma table "TaTableResultat" est constituée de 12 colonnes, au cas ou!


code global:

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
Private Sub Command13_Click()
 
    Dim db As DAO.Database: Set db = CurrentDb
    Dim rstS As DAO.Recordset, rstD As DAO.Recordset
    Dim strSQL As String
    Dim vaColonne_1() As Variant
    Dim i As Integer
 
    strSQL = "SELECT TaSourceADecouper.[F19] FROM TaSourceADecouper;"
    Set rstS = db.OpenRecordset(strSQL)
    strSQL = "SELECT TaTableResultat.Colonne_1, TaTableResultat.Colonne_2, TaTableResultat.Colonne_3, TaTableResultat.Colonne_4, TaTableResultat.Colonne_5, TaTableResultat.Colonne_6, TaTableResultat.Colonne_7, TaTableResultat.Colonne_8, TaTableResultat.Colonne_9, TaTableResultat.Colonne_10, TaTableResultat.Colonne_11, TaTableResultat.Colonne_12 FROM TaTableResultat;"
    Set rstD = db.OpenRecordset(strSQL)
 
    While rstS.EOF = False
        vaColone_1 = Split(Nz(rstS("F19"), ""), ",")
        rstD.AddNew
 
        For i = LBound(vaColonne_1) To UBound(vaColonne_1)
           rstD.Fields("Colonne_" & i + 1) = vaColonne_1(i)
 
        Next i
 
        rstD.Update
        rstS.MoveNext
    Wend
    rstS.Close
    rstD.Close
    Set rstS = Nothing
    Set rstD = Nothing
    Set db = Nothing
 
 
End Sub

[Jean-Philippe André]

A noter que tu as ajoute discretos des parentheses dans ta declaration :

Code :

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

 Dim vaColonne_1() As Variant

enleve les en principe c'est un premier point

Second point, tu fais reference au champ F19 dans ton recordset alors qu'il n'apparait pas dans ta requete...

[totor92290]

Merci jpcheck,

J'ai retiré les parentheses et j'ai toujours un message d'erreur,

Run-time error '13':
Type mismatch

Ligne surlignée:
For i = LBound(vaColonne_1) To UBound(vaColonne_1) 
par contrre je fais reference à la colonne F19 dans le code

Code :

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

strSQL = "SELECT TaSourceADecouper.[F19] FROM TaSourceADecouper;"

ainsi que

Code :

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

vaColone_1 = Split(Nz(rstS("F19"), ""), ",")