Discussion :

[chrisaccess]

Bonjour le forum,

Cela faisait longtemps

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 :

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
 
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 :

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

 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,

[tototiti2008]

Bonjour,

ReDim Preserve ne peut que redimensionner la dernière dimension d'un tableau

https://docs.microsoft.com/fr-fr/dot...edim-statement

[chrisaccess]

Bonjour,

ReDim Preserve ne peut que redimensionner la dernière dimension d'un tableau

https://docs.microsoft.com/fr-fr/dot...edim-statement

bonjour Tototi,

merci pour ton aide, mais je ne comprends pas.
je fait la même manip sur une variable à une seule dimension et cela fonctionne
au lieu de faire taba(b,2) je fais 2 variable tableau : taba(b) et tabb(b) et cela fonctionne

J'avais bien compris qu'il fallait le faire sur la dernière version du tableau mais là il me semble bien être sur la dernière version ?

[Philippe Tulliez]

Bonjour,
Je conseille la lecture de ce tutoriel Utiliser les variables tableaux en VBA Excel et particulièrement le III-B. Le mot clé Preserve

[chrisaccess]

Bonjour,
Je conseille la lecture de ce tutoriel Utiliser les variables tableaux en VBA Excel et particulièrement le III-B. Le mot clé Preserve

Haaa, effectivement je comprends mieux j'ai corrigé mon code et cela fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim taba() As String
                    lig = 4
                    Erase taba
                    Do While Sheets("bdIP").Range("a" & lig).Value <> ""
                        if NbDim(taba) = 0 then b=1 else b = UBound(taba) + 1
                        ReDim Preserve taba(1 to 2, 1 to b)
                        taba(1,b ) = Sheets("bdIP").Range("a" & lig).Value
                        taba(2, b) = Sheets("bdIP").Range("b" & lig).Value
                        lig = lig + 1
                        If lig = 1001 Then Exit Do
                    Loop

Merci pour votre aide