redim tableau a 2 dimensions

Version imprimable

bonjour j'ai ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim tableau() As Variant
nomcherche = "!Px F"
Set result1 = ActiveSheet.UsedRange.Rows(2).Find(What:="!F", LookIn:=xlValues, LookAt:=xlWhole)
Set colprix = Range(result1.Offset(1, 0).Address, result1.Offset(ActiveSheet.UsedRange.Rows.Count, 0))
Set zone = Range("a2", Range("a2").Offset(0, ActiveSheet.UsedRange.Columns.Count))
   For I = 1 To zone.Cells.Count
        If Left(LCase(zone.Cells(I).Value), 5) = LCase(nomcherche) Then
            j = j + 1
            nomcherche1 = zone.Cells(I).Value
            Set plage = Range(zone.Cells(I).Offset(1, 0), zone.Cells(I).Offset(ActiveSheet.UsedRange.Rows.Count, 0))
            ReDim Preserve tableau(0 To j - 1, plage.Rows.Count)
            nb = 0
            For Each c In plage
                tableau(j - 1, nb) = c.Value
                nb = nb + 1
            Next c
        End If
    Next I

je remplie le tableau par raport a certain colonne de la feuille.
le problème c'est quand j passe à 2 il ya un probleme dans cette ligne de code

Code:

1
2
 
 ReDim Preserve tableau(0 To j - 1, plage.Rows.Count)

il me disent error 9,l'indice n'apartient pas à la séléction.quand je mets un evaleur fixe ça marche.
peur-être quelq'un pourrait m'aider

05/08/2009, 11h35
fgiambelluco

Bonjour
As tu essayé avec

Code:

ReDim Preserve tableau(j, plage.Rows.Count)

?
Edit : Je viens de trouver ça dans l'aide Excel VBA

Citation:

Si vous utilisez le mot clé Preserve, vous ne pouvez redimensionner que la dernière dimension du tableau
05/08/2009, 11h42
calvi2002

ça marche pas.mais en faite c'est la même chose,moi je fait j=j+1 avant le redim.
05/08/2009, 11h48
fgiambelluco

Re
J'avais rajouté ça à mon Post précédent

Citation:

Edit : Je viens de trouver ça dans l'aide Excel VBA

Citation:
Si vous utilisez le mot clé Preserve, vous ne pouvez redimensionner que la dernière dimension du tableau
05/08/2009, 11h56
LeForestier

Bonjour,
ce qui signifie que tu doit modifier ton tableau par

Code:

ReDim Preserve tableau( plage.Rows.Count, 0 To j - 1)

Et bien entendu adapté ta macro en inversant les paramètres.
Note que le 0 to n'est pas nécessaire à moins que tu ai mis Option Base 1
A+
05/08/2009, 12h50
calvi2002

ok merci,j'ai pas compris la première fois.