Discussion :

[ipman33]

Bonjour à tous,

Je suis nouveau sur le site et débutant en vba.
J'ai un problème sur lequel je bute et je n'arrive vraiment pas a le regler ces derniers jours.
Quand je lance la macro j'ai ce message d'erreur :
Type mismatch error 13

Voici le code sur laquelle l'erreur apparait :

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
  If CLng(DateAdd("m", -3 * k, AsOf)) < CLng(UpdateROPNBI) Then
        UpdateROPNBI = DateSerial(Year(AsOf) - 1, 1, 1)
    End If
    
    If CLng(DateAdd("m", -3 * k, AsOf)) < CLng(UpdateROPPO) Then
        UpdateROPPO = DateSerial(Year(AsOf) - 2, 12, 1)
    End If
    
    myreq = "Select  Mnemo, Val FROM tbRWA_Params WHERE AsOf = " & CLng(UpdateROPNBI) & "  AND Type = 'ROP NBI'"
    rs.Open myreq, cn
    If Not rs.EOF Then
        ROP_NBI = rs.GetRows()
    End If
    rs.Close
    
    myreq = "Select Mnemo, Val FROM tbRWA_Params WHERE AsOf = " & CLng(UpdateROPPO) & "  AND  Type = 'ROP Pertes OP'"
    rs.Open myreq, cn
    If Not rs.EOF Then
        ROP_OP = rs.GetRows()
    End If
    rs.Close
    
    Dim ROP_Coef() As Variant
    ReDim ROP_Coef(2, UBound(ROP_NBI, 2))
    
    'On croise les deux tableaux de coef ici:
    For i = LBound(ROP_NBI, 2) To UBound(ROP_NBI, 2)
        ROP_Coef(0, i) = ROP_NBI(0, i)
        ROP_Coef(1, i) = ROP_NBI(1, i)
        ROP_Coef(2, i) = ROP_OP(1, i)
    Next i
...

La ligne en gras : l'endroit ou le code affiche le message d'erreur.

J'ai l'impression qu'il ne reconnait pas la valeur dans les données rop coef ou rop nbi
Ou alors est ce un pbm de redimension de trableau ?

Merci pour vos lumières !

cordialement,

Ip man

[unparia]

Bonjour
Code non mis entre balises code = code difficile à lire.
Je vais me contenter de ceci (en dépit du torticolis causé par la lecture) :
La méthode GetRows retourne à ma connaissance un tableau à 2 dimensions de base 0 (ce qui veut dire que l'indice de la première colonne est 0 et que celui de la seconde est 1 et non 2)
et donc --->>

Code :

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

UBound(ROP_NBI, 2)

ne peut que générer une erreur puis 2 > 1

[ipman33]

Désolé pour la lisibilité du code que j'ai envoyé. Et merci pour ta réponse.

Mais en lancant le code avec que tu m'as conseillé il n'y a toujours pas de changements. Le code stoppe a chaque fois sur cette ligne.

D'ailleurs j'ai remarqué : quand je pose le curseur sur rop nbi j'ai "ropnbi =empty". Or quand je regarde dans ma base de données j'ai bien des éléments sur rop nbi. Curieux...

[unparia]

Ce qui veut alors dire que ton recordset est vide au moment de cette ligne de code.
Je ne vois toujours pas de code "lisible" entre balises code ... (et je ne veux pas gâcher le repas d'anniversaire de mariage (le 54ème) que je vais partager avec mon épouse).

[ipman33]

Pour une meilleure lisibilité > l'erreur s'affiche en ligne 35 :

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
44
45
46
47
'On charge ici les deux tableaux de coefs
'Dates des deux MàJ ds coef ROP
Dim UpdateROPNBI As Date
Dim UpdateROPPO As Date
 
For k = 0 To 4
 
    UpdateROPNBI = DateSerial(Year(AsOf), 1, 1)
    UpdateROPPO = DateSerial(Year(AsOf) - 1, 12, 1)
 
    If CLng(DateAdd("m", -3 * k, AsOf)) < CLng(UpdateROPNBI) Then
        UpdateROPNBI = DateSerial(Year(AsOf) - 1, 1, 1)
    End If
 
    If CLng(DateAdd("m", -3 * k, AsOf)) < CLng(UpdateROPPO) Then
        UpdateROPPO = DateSerial(Year(AsOf) - 2, 12, 1)
    End If
 
    myreq = "Select  Mnemo, Val FROM tbRWA_Params WHERE AsOf = " & CLng(UpdateROPNBI) & "  AND Type = 'ROP NBI'"
    rs.Open myreq, cn
    If Not rs.EOF Then
        ROP_NBI = rs.GetRows()
    End If
    rs.Close
 
    myreq = "Select Mnemo, Val FROM tbRWA_Params WHERE AsOf = " & CLng(UpdateROPPO) & "  AND  Type = 'ROP Pertes OP'"
    rs.Open myreq, cn
    If Not rs.EOF Then
        ROP_OP = rs.GetRows()
    End If
    rs.Close
 
    Dim ROP_Coef() As Variant
 
    ReDim ROP_Coef(UBound(ROP_NBI, 2))
 
    'On croise les deux tableaux de coef ici:
   For i = LBound(ROP_NBI, 2) To UBound(ROP_NBI, 2)
       ROP_Coef(0, i) = ROP_NBI(0, i)
        ROP_Coef(1, i) = ROP_NBI(1, i)
    ROP_Coef(2, i) = ROP_OP(1, i)
    Next i
 
    For i = 0 To 3
        Worksheets("Retr RWA ROP by PC").Cells(17, 31 + i + k * 5).Value = Worksheets("Retr RWA ROP by PC").Cells(17, 6 + i + k * 5).Value
        Worksheets("Retr RWA ROP by PC").Cells(17, 31 + i + k * 5).ColumnWidth = 8.43
    Next i

Ps: félicitations pour ce bel événement !

[Marc-L]

Bonjour, bonjour !

Il suffit pourtant juste de lire l'aide VBA de ReDim !

Voilà, voilà !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Invité]

Bonjour,
que te dit not EOF?

tu retravail un tableau {ReDim ROP_Coef(2, UBound(ROP_NBI, 2))} alos qu'un eof=true n'a pas dimensionné ROP_NBI et ROP_OP!
ReDim ROP_Coef(2, UBound(Null, 2))???????

Code ça c'est n'importe quoi! :

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
If Not rs.EOF Then
ROP_NBI = rs.GetRows()
End If
rs.Close
 
 
 
 
If Not rs.EOF Then
ROP_OP = rs.GetRows()
End If
rs.Close
 
 
Dim ROP_Coef() As Variant
ReDim ROP_Coef(2, UBound(ROP_NBI, 2))
 
 
'On croise les deux tableaux de coef ici:
For i = LBound(ROP_NBI, 2) To UBound(ROP_NBI, 2)
ROP_Coef(0, i) = ROP_NBI(0, i)
ROP_Coef(1, i) = ROP_NBI(1, i)
ROP_Coef(2, i) = ROP_OP(1, i)
Next i

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
rs.Open myreq, cn
If Not rs.EOF Then
ROP_OP = rs.GetRows()
Dim ROP_Coef() As Variant
ReDim ROP_Coef(2, UBound(ROP_NBI, 2))
 
 
'On croise les deux tableaux de coef ici:
For i = LBound(ROP_NBI, 2) To UBound(ROP_NBI, 2)
ROP_Coef(0, i) = ROP_NBI(0, i)
ROP_Coef(1, i) = ROP_NBI(1, i)
ROP_Coef(2, i) = ROP_OP(1, i)
Next i
End If
rs.Close

Code :

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

1
2
3
4
5
6
7
8
9
 
 
If rs.EOF Then rs.Close: Exit Sub
 
 
If rs.EOF Then rs.Close: Exit Sub
 
Dim ROP_Coef() As Variant
ReDim ROP_Coef(2, UBound(ROP_NBI, 2))

[ipman33]

Bonjour,
que te dit not EOF?

tu retravail un tableau {ReDim ROP_Coef(2, UBound(ROP_NBI, 2))} alos qu'un eof=true n'a pas dimensionné ROP_NBI et ROP_OP!
ReDim ROP_Coef(2, UBound(Null, 2))???????

Code ça c'est n'importe quoi! :

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
If Not rs.EOF Then
ROP_NBI = rs.GetRows()
End If
rs.Close
 
 
 
 
If Not rs.EOF Then
ROP_OP = rs.GetRows()
End If
rs.Close
 
 
Dim ROP_Coef() As Variant
ReDim ROP_Coef(2, UBound(ROP_NBI, 2))
 
 
'On croise les deux tableaux de coef ici:
For i = LBound(ROP_NBI, 2) To UBound(ROP_NBI, 2)
ROP_Coef(0, i) = ROP_NBI(0, i)
ROP_Coef(1, i) = ROP_NBI(1, i)
ROP_Coef(2, i) = ROP_OP(1, i)
Next i

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
rs.Open myreq, cn
If Not rs.EOF Then
ROP_OP = rs.GetRows()
Dim ROP_Coef() As Variant
ReDim ROP_Coef(2, UBound(ROP_NBI, 2))
 
 
'On croise les deux tableaux de coef ici:
For i = LBound(ROP_NBI, 2) To UBound(ROP_NBI, 2)
ROP_Coef(0, i) = ROP_NBI(0, i)
ROP_Coef(1, i) = ROP_NBI(1, i)
ROP_Coef(2, i) = ROP_OP(1, i)
Next i
End If
rs.Close

Code :

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

1
2
3
4
5
6
7
8
9
 
 
If rs.EOF Then rs.Close: Exit Sub
 
 
If rs.EOF Then rs.Close: Exit Sub
 
Dim ROP_Coef() As Variant
ReDim ROP_Coef(2, UBound(ROP_NBI, 2))

Merci pour ta réponse je vais voir ca

[ipman33]

j'ai trouvé la solution : dans les déclarations de variables de ROP NBI il fallait mettre ()

soit Dim ROP_NBI () As variant

le fait d'indiquer aucune valeur rend le tableau dynamique...Mais ... Surprise ! un autre message d'erreur !

"run time error 9
Subscript out of range " sur la même ligne à savoir

Code :

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

ReDim ROP_Coef(2, UBound(ROP_NBI, 2))

IL me semble que c'est les dimensions qu'il faut revoir...

[unparia]

La vérification : j'ai regardé d'autres éléments dans le code dont la connexion était bonne et où les données étaient bien retranscrites dans mon excel.

Et elle vient quand, cette vérification toute bête du RecordCount ?

"run time error 9
Subscript out of range " sur la même ligne à savoir

Je t'en ai pourtant également parlé (en vain) plus haut ! getrows retourne un tableau de base 0 et non de base 1. Si 2 colonnes dans ton recordset --->> 2 colonnes dans ton tableau : colonne 0 et colonne 1 (et non colonne 1 et colonne 2).

[ipman33]

oui merci, j'avais déjà modifié cela mais pas de résultats mais juste une précision quand tu parles de 0 et 1 ca veut dire ca ? :

Code :

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

ReDim ROP_Coef(0, UBound(ROP_NBI, 1))

je sais je suis nul ... ahah

en tout cas un grand merci pour ta réponse