Message d'erreur d'exécution '9'

[vitsa]

Bonjour le forum,

je débute avec le langage VBA, et je rencontre un message d'erreur d'exécution 9
voici le code

Sub enreg_tab()
Dim tab2(9, 2)
For i = 0 To 9
tab2(i, 0) = Range("A" & i + 1)
tab2(i, 1) = Range("B" & i + 1)
tab2(i, 2) = Range("C" & i + 1)
Next

Dim k As Integer
Dim j As Integer
j = 0
For k = 18 To 28
[Highlight]While tab2(j, 0) <> Sheets("Feuil1").Range("A" & k)[/code]
j = j + 1
Wend
Range("D" & k) = tab2(j, 1)
Debug.Print Range("A" & k)
Next


End Sub

Merci d'avance pour l'aide que vous pourrez m'apporter

Vitsa

 

[Roland_M]

Re : Message d'erreur d'exécution '9'

bonjour

ici tu boucles "tant que ..." donc si tu ne sors pas à 9 j = 10 et erreur !
puisque tu dimensionnes à (9,2) !

While tab2(j, 0) <> Sheets("Feuil1").Range("A" & k)
j = j + 1
Wend

EDIT: voir !
Do While tab2(j, 0) <> Sheets("Feuil1").Range("A" & k)
j = j + 1: If j > 9 Then Exit Do
Loop
If j < 9 Then Range("D" & k) = tab2(j, 1)

encore faut t'il voir avec l'indice 0 si ok !?

 

[Roland_M]

Re : Message d'erreur d'exécution '9'

re

voir essai comme ceci:
j'ai mis "Var As Variant" à toi de voir selon le contenu de tes cellules !?

Sub enreg_tab()
Dim tab2(9, 2), k As Integer, j As Integer, Var As Variant
For j = 0 To 9
 tab2(j, 0) = Range("A" & j + 1)
 tab2(j, 1) = Range("B" & j + 1)
 tab2(j, 2) = Range("C" & j + 1)
Next
For k = 18 To 28
Var = Sheets("Feuil1").Range("A" & k)
For j = 0 To 9
  If tab2(j, 0) = Var Then Range("D" & k) = tab2(j, 1): Exit For
Next
Next
End Sub

 

[vitsa]

Re : Message d'erreur d'exécution '9'

Ok merci beaucoup pour ton aide, je m'en suis sorti avec mes indices !
bonne journée