Discussion :

[RootsInternationnal]

J'ai un bout de ma procédure que je souhaiterai transformé en fonction
mais je n'y arrive pas.
le but de la fonction serai de renvoyer un tableau rempli.

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
37
38
39
40
41
42
43
dim j as integer
dim tablo(25) ,extrac(string)
extrac= L;1023/6666;2;350;;0;0;10;TEST;20101010;652016;;;;100000
 
                        Line Input #filenum, extrac
                        TOTAL = Len(extrac) 'longueur de la chaine
                        j = 1
                        Do While TOTAL > 0
                               If Left(extrac, 1) <> ";" And InStr(1, extrac, ";") <> 0 Then
                                   tablo(j) = Left(extrac, (InStr(1, extrac, ";") - 1))
                                    extrac = Right(extrac, TOTAL - Len(tablo(j)) - 1)
                            Else
                                   If InStr(1, extrac, ";") = 0 Then ' si plus de ;  alors dans la ligne
                                      tablo(j) = IIf(IsNull(extrac), " ", extrac)  'si c NULL alors  " "  sinon on mais la valeur ds la table
                                       extrac = ""
                                 Else
                                          If Left(extrac, 1) = ";" Then       'si deux ; se suivent
                                               tablo(j) = " "
                                                extrac = Right(extrac, TOTAL - 1)
                                           End If
                                End If
                            End If
                           TOTAL = Len(extrac) 'longueur de la chaine
                           j = j + 1
                        Loop
                        j = j - 1
                        '----------------     extraction vers des variables
                        valeur30 = numcde       'numero 
                        valeur31 = tablo(3)     'numero de ligne
                        valeur32 = tablo(2)     'code 
                        valeur33 = tablo(5)
                        valeur34 = tablo(6)
                        valeur35 = tablo(7)
                        valeur36 = tablo(8)
                        valeur37 = tablo(9)
                        valeur38 = tablo(10)
                        valeur39 = tablo(11)
                        valeur40 = tablo(12)
                        valeur41 = tablo(13)
                        valeur42 = tablo(14)
                        valeur43 = tablo(15)
                        valeur44 = tablo(16)
--------------------------------------------------------------------------

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
Function extraction(ByRef extrac As String, ByVal tablo As String) As String
Dim extract, tablo() As String
Dim j, total As Integer
 
 '           total = Len(extrac) 'longueur de la chaine
  '          j = 1
  '          Do While total > 0
  '              If Left(extrac, 1) <> ";" And InStr(1, extrac, ";") <> 0 Then
  '                  tablo(j) = Left(extrac, (InStr(1, extrac, ";") - 1))
  '                  extrac = Right(extrac, total - Len(tablo(j)) - 1)
  '              Else
  '                  If InStr(1, extrac, ";") = 0 Then ' si plus de ;  alors dans la ligne
 '                       tablo(j) = IIf(IsNull(extrac), " ", extrac)  'si c NULL alors  " "  sinon on mais la valeur ds la table
 '                       extrac = ""
 '                    Else
 '                           If Left(extrac, 1) = ";" Then       'si deux ; se suivent
 '                                tablo(j) = " "
 '                                extrac = Right(extrac, total - 1)
 '                           End If
 '                   End If
 '               End If
 '              total = Len(extrac) 'longueur de la chaine
 '              j = j + 1
 '           Loop
 '           j = j - 1
End Function

'Dans ma procedure j'appel la fonction extraction
'pour essayer de remplir mon tableau

Code :

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

tablo() = extraction(extrac, tablo)

' Mais cela ne marche pas !
le code pour trié est bon , c'est juste l'appel de la fonction qui ne marche pas
Quelqu'un aurait il une idée!

[Demco]

Bonjour,

Une exemple dans la FAQ : http://access.developpez.com/faq/?pa...renvoi_tableau

Essaie donner le type String() à ta fonction.

En espérant t'aider.

[RootsInternationnal]

J'ai fais quelques changement.
Mais cela me marque " erreur de compilation , impossible d'affecter a un tableau"

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
Function extraction(ByVal extrac As String, ParamArray tablo() As Variant) As String
Dim extract, tablo(25) As String
Dim j, total As Integer
 
    total = Len(extrac) 'longueur de la chaine
    j = 1
    Do While total > 0
        If Left(extrac, 1) <> ";" And InStr(1, extrac, ";") <> 0 Then
            tablo(j) = Left(extrac, (InStr(1, extrac, ";") - 1))
            extrac = Right(extrac, total - Len(tablo(j)) - 1)
        Else
            If InStr(1, extrac, ";") = 0 Then ' si plus de ;  alors dans la ligne
                tablo(j) = IIf(IsNull(extrac), " ", extrac)  'si c NULL alors  " "  sinon on mais la valeur ds la table
                extrac = ""
             Else
                    If Left(extrac, 1) = ";" Then       'si deux ; se suivent
                         tablo(j) = " "
                         extrac = Right(extrac, total - 1)
                    End If
            End If
        End If
       total = Len(extrac) 'longueur de la chaine
       j = j + 1
    Loop
    j = j - 1
End Function

Lors de l'appel de la fonction le probleme survient .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Commande17_Click()
Dim extract As String
Dim tablo(25) As Variant
extract = "L;1023/6666;2;350;;0;0;10;TEST;20101010;652016;;;;100000"
 
'Call extraction("extract", tablo)
tablo() = extraction(extract, tablo)
 
MsgBox (tablo(0) & " - " & tablo(1) & "  -  " & tablo(2) & "  -  " & tablo(3))
End Sub

[EddiGordo]

Bonjour,

Déclare ton tableau comme une variable de type variant et essaie de découper ta chaine :

Code :

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

1
2
3
4
5
6
Dim tablo As Variant
Dim extract As String
extract = "L;1023/6666;2;350;;0;0;10;TEST;20101010;652016;;;;100000"
tablo = Split(extract, ";")
MsgBox (tablo(0) & " - " & tablo(1) & "  -  " & tablo(2) & "  -  " & tablo(3))
...

[RootsInternationnal]

Split ne fonctionne pas sous VBA 97 !

[RootsInternationnal]

Ma fonction marche bien.
Le problème est de récupéré les valeurs du tableau passé en paramètre ,
j'ai du mal a comprendre.

[ilank]

Bonjour à tous,
je ne comprends pas ces deux lignes :

Code :

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

1
2
Function extraction(ByVal extrac As String, ParamArray tablo() As Variant) As String
Dim extract, tablo(25) As String

Tu as combien de variables TABLO dans cette fonction ?

[RootsInternationnal]

Merci ! sa marche ^
Je déclarai un tableau en trop ^
Maintenant c'est optimisé

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
37
Sub extraction(ByVal extrac As String, ByRef tablo() As Variant)
Dim j, total As Integer
 
    total = Len(extrac) 'longueur de la chaine
    j = 1
    Do While total > 0
        If Left(extrac, 1) <> ";" And InStr(1, extrac, ";") <> 0 Then
            tablo(j) = Left(extrac, (InStr(1, extrac, ";") - 1))
            extrac = Right(extrac, total - Len(tablo(j)) - 1)
        Else
            If InStr(1, extrac, ";") = 0 Then ' si plus de ;  alors dans la ligne
                tablo(j) = IIf(IsNull(extrac), " ", extrac)  'si c NULL alors  " "  sinon on mais la valeur ds la table
                extrac = ""
             Else
                    If Left(extrac, 1) = ";" Then       'si deux ; se suivent
                         tablo(j) = " "
                         extrac = Right(extrac, total - 1)
                    End If
            End If
        End If
       total = Len(extrac) 'longueur de la chaine
       j = j + 1
    Loop
    j = j - 1
End Sub
Private Sub Commande17_Click()
Dim extract As String
Dim tablo(25) As Variant
extract = "L;1023/6666;2;350;;0;0;10;TEST;20101010;652016;;;;100000"
 
Call extraction(extract, tablo)
'tabloo() = extraction(extract, tablo)
 
MsgBox (tablo(3) & " - " & tablo(1) & "  -  " & tablo(2) & "  -  " & tablo(3))
 
 
End Sub

Resultat
2 - L - 1023/6666 - 2