Discussion :

[b.noureddine]

Bonsoir,
voila mon problème (étant débutant on VBA): j'arrive pas a créé un tableau avec des valeurs d'une colonne d'un autres tableau , j'ai cherché la fonction recherchev() sur vba mais je l'as trouve pas donc j'ai essayé de réalisé une boucle mais ça marche pas, je fais recoure a votre savoir faire messieurs dames .

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
Sub tab_pd()
    Dim rsData, rsData2 As ADODB.Recordset
    Dim sConnect As String
    Dim sSQL, sSQL2 As String
    Dim tab_Rating(), tab_pf(), tab_pd, a(0 To 2)
    Dim i As Variant
    Dim n As Variant
 
    sConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
               "Data Source=C:\Users\BOUMLAIK\Desktop\M2\VBA\Nouveau dossier\VBA\Projet VBA mdb\Credit_Portfolio.accdb"
 
    ' chargement des parametres par defaut
    sSQL = "SELECT * " & _
           "FROM Portfolio;"
 
    Set rsData = New ADODB.Recordset
    rsData.Open sSQL, sConnect
 
    sSQL2 = "SELECT * " & _
           "FROM Rating;"
 
    Set rsData2 = New ADODB.Recordset
    rsData2.Open sSQL2, sConnect
 
 
    tab_Rating = rsData2.GetRows(2)
    tab_pf = rsData.GetRows(2)
 
    'generation du tableau
 
 
     For i = 0 To 2
     n = tab_pf(2, i)
    tab_Rating(3, n) = a(i)
    MsgBox a(i)
 
     Next i
 
End Sub

[Tofalu]

A mon avis, votre façon de faire pourrait avantageusement être remplacée par une requête.

[b.noureddine]

oui c'est vrai mais le souci, c'est que j'ai pas le droit d'utiliser ni excel ni access, il faut que tout soit traiter sur vba. ( c'est un projet a rendre, je suis a la fac)