Discussion :

[Anto_NEX]

Hello world,

Je suis en train "d'étudier" la méthode des variables tableaux pour mes besoins professionnels, pour optimiser mes traitements de fichiers et me voici confronté à ma première incompréhension.

J'ai actuellement un code complet, dont je vous copie ci-dessous le morceau qui ne convient pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim T As Variant, A As Long
 
With Worksheets(1)
    T = .Range("A2:H" & Cells(Rows.Count, 1).End(xlUp).Row).Value
End With
 
For A = LBound(T, 1) To UBound(T, 1)
   If InStr(T(A, 5), "valeur") > 0 Then Worksheets(2).Range("A" & LBound(T, 1) & ":A" & UBound(T, 2)) = T(A)
Next A

Le soucis est qu'il me renvoi un superbe code 9 <subscript out of range> sur la partie de code :

Code :

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

Then Worksheets(2).Range("A" & LBound(T, 1) & ":A" & UBound(T, 2)) = T(A)

Visiblement je n'ai pas déclaré l'array T(A) ?
Ou j'ai mal compris l'utilisation de la variable T ?

Pour la petite explication de ma façon de faire, je pensais que T(A) me renvoyait les données 1 à 8 de la ligne "A" du tableau T dans mon tableau à deux dimensions. Ai-je mal compris ?
Lorsque je renseigne T(A, 1) cependant, il me renvoit bien la valeur de la ligne A, cellule 1 du tableau T dans tout le range défini sur la feuille 2.
Mais je ne comprends pas comment lui faire renvoyer les valeurs 1 à 8 de la ligne A du tableau T dans le Range("A" & LBound(T, 1) & ":A" & UBound(T, 2)) de la feuille 2

Je vous remercie par avance pour votre aide

[issoram]

Bonjour,

En faisant ça:

Code :

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

1
2
3
4
5
Dim T As Variant, A As Long
 
With Worksheets(1)
    T = .Range("A2:H" & Cells(Rows.Count, 1).End(xlUp).Row).Value
End With

Tu obtiens un tableau à 2 dimensions (n lignes et 8 colonnes). Donc pour accéder à un élément tu dois préciser les 2 indices :T(i,j).
Et le renvoi d'une ligne ou colonne complète directement, avec une syntaxe du style T(A,) ou autre, ne fonctionne pas.

Cordialement.

[mercatog]

Vaut mieux partout travailler avec des variables tableaux et de retourner le résultat en bloc vers la feuille.

Exemple

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
Sub Remp()
Dim i As Long, j As Long
Dim k As Integer, n As Integer
Dim T, Res()
 
With Worksheets(1)
    T = .Range("A2:H" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
End With
 
n = UBound(T, 2)
For i = 1 To UBound(T, 1)
    If InStr(UCase(T(i, 5)), "VALEUR") Then
        j = j + 1
        ReDim Preserve Res(1 To n, 1 To j)
        For k = 1 To n
            Res(k, j) = T(i, k)
        Next k
    End If
Next i
Worksheets(2).Range("A1").Resize(n, j) = Res
End Sub

PS: attention au points devant Cells et Rows.count dans la ligne d'affectation de T

[Daniel.C]

J'abonde dans le sens de mercatog. Faire bien attention toutefois que la plage ne contienne pas de formules.

[Didier Gonard]

Bonjour,

voir tutos dvp
Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

cordialement,

Didier

[Anto_NEX]

Une nouvelle fois, merci à vous pour vos réponses !

Je m'en vais de ce pas essayer les solutions proposées, et voir si j'arrive à les exploiter

Je reviens vers vous pour clôturer le post et vous redire merci quand j'ai un résultat

[Daniel.C]

Bonjour,

Malheureusement, les variables tableau ne sont pas aussi souples. Avec la ligne :

Code :

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

T = .Range("A2:H" & Cells(Rows.Count, 1).End(xlUp).Row).Value

tu as défini une matrice à deux dimensions et VBA attend que tu fournisses deux index (ou aucun si tu te réfères à la matrice entière). Dans ce cas je ne pense pas que tu gagnes grand chose à utiliser une variable tableau.

Mais je ne comprends pas comment lui faire renvoyer les valeurs 1 à 8 de la ligne A du tableau T dans le Range("A" & LBound(T, 1) & ":A" & UBound(T, 2)) de la feuille 2

A moins de faire une boucle, je ne pense pas que tu puisses.