ma variable tableau plante (erreur d execution 9)
Bonjour le forum,
Cela faisait longtemps :lol:
j'ai un beug que je ne comprends pas car ce meme programme fonctionne sur une variable a une seule dimension mais pas 2
j'ai volontairement détaillé le code pour comprendre l'erreur mais ??
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Dim taba() As String
lig = 4
Erase taba
Do While Sheets("bdIP").Range("a" & lig).Value <> ""
a = NbDim(taba)
If a = 0 Then
b = 1
ReDim taba(b, 2)
Else
b = UBound(taba) + 1
ReDim Preserve taba(b, 2)
End If
taba(b, 1) = Sheets("bdIP").Range("a" & lig).Value
taba(b, 2) = Sheets("bdIP").Range("b" & lig).Value
lig = lig + 1
If lig = 1001 Then Exit Do
Loop |
pour information j'utilise option explicit et toutes mes variables sont déclarées
Je plante sur
Code:
ReDim Preserve taba(b, 2)
avec l erreur :"erreur d' execution 9 : l'indice n'appartient pas à la sélection"
Avez vous une idée concernant cette erreur
les variables a, b, lig sont de type integer
Merci pour votre aide,