Discussion :

[dawood]

Hello!

Je fais (encore) appel à vous, pour un problème de variable tableau. J'ai vu dans le forum qu'avec redim, on peut que modifier la taille de la dernière dimension, j'ai fait ce code pour récupérer les données d'un tableau excel pour pouvoir le trier ensuite et renvoyer le tableau obtenu dans une feuille fraichement créée :

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
Private Sub Filtre()
Dim dureetable() As String
Dim i As Integer, dureetableubound As Integer
 
Set WScible = Worksheets("Résumé")
ReDim dureetable(2, 0)
 
'Entrée des valeurs nom, date login et durée dans le tableau
For i = 2 To WScible.Range("B65536").End(xlUp).Row
 
    dureetableubound = UBound(dureetable, 2)
    ReDim Preserve dureetable(2, dureetableubound To dureetableubound + 1)
    dureetable(0, dureetableubound + 1) = WScible.Range(Cells(i, 1).Address).Value
    dureetable(1, dureetableubound + 1) = WScible.Range(Cells(i, 2).Address).Value
    dureetable(2, dureetableubound + 1) = WScible.Range(Cells(i, 6).Address).Value
 
Next i
End Sub

Malheureusement, ça me fait une erreur après que mon tableau ait un Ubound de "1"... je suis pas sûr de cette ligne :

Code :

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

ReDim Preserve dureetable(2, dureetableubound To dureetableubound + 1)

Est-ce que quelqu'un pourrait éclairer ma lanterne? Je n'ai pas trouvé la réponse dans le forum

[Invité]

Bonjour,

Vous avez regardé ici :

http://silkyroad.developpez.com/vba/tableaux/

[dawood]

Oui, mais je n'arrive pas à comprendre ceci : ReDim Preserve Tableau(1 To 2, 1 To x). Par défaut quand on déclare une variable tableau, elle est initialisée à 1, 1 ?

[pgz]

Bonjour.

Je crois comprendre que tu veux charger les colonnes 1, 2 et 6 de la ligne 2 à la dernière.
Si c'est cela, tu as pris une méthode qui une fois corrigée restera bien longue.
Il serait beaucoup plus rapide de charger toutes les colonnes de 1 à 6, puis éventuellement récupérer 1,2 et 6; ou charger 3 variables et les rabouter.

Regarde ce qu'il y a en FAQ sur le chargement de tableaux Excel dans des variables tableaux.

PGZ

[dawood]

Oui c'est bien ça!

J'ai trouvé dans d'autres conversations ce code adapté :

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
Dim dureetable() As String
Dim i As Integer, dureetableubound As Integer
Dim plage As Range, cell As Range
 
Set WScible = Worksheets("Résumé")
Set plage = WScible.Range(Cells(2, 1).Address & ":" & WScible.Range("A65536").End(xlUp).Address)
 
ReDim dureetable(1 To plage.Count + 1, 1 To 3)
i = 0
For Each cell In plage
    i = i + 1
    With cell
        dureetable(i, 1) = .Value
        dureetable(i, 2) = .Offset(0, 1).Value
        dureetable(i, 3) = .Offset(0, 5).Value
    End With
Next

Je vais encore voir si ça fonctionne pour tout le tableau.

Merci!

[pgz]

Cela peut fonctionner mais si tu as un grand nombre de lignes cette méthode est trop longue.

PGZ

[dawood]

Hello!

En effet, j'ai 24'334 lignes... j'ai fait le test ça prend 3 secondes avec ce code. Je vais encore faire des recherches pour essayer d'optimiser tout ça!

[patbou]

BONJOUR

Je pense que tu devrais utiliser soit un variant de type tableau pour l 'ensemble de tes 6 colonnes , soit 3 variant pour chaque colonne que tu veux exploiter.

Code :

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

1
2
3
 
Dim vntPlage as variant
vntPlage = WScible.Range(Cells(2, 1).Address & ":" & WScible.Range("A65536").End(xlUp).Address)

[dawood]

Cela peut fonctionner mais si tu as un grand nombre de lignes cette méthode est trop longue.

PGZ

Je vais essayer de passer plutot par cette méthode :

Code :

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

WScible.ListObjects.Add(xlSrcRange, .Range("$A$1").CurrentRegion, , xlYes).Name = NomTable

(trouvé dans la FAQ)
Je teste ça demain.

[AlainTech]

Pour apprendre à travailler avec des objets, ton premier code modifié:

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
Private Sub Filtre()
  Dim dureetable() As String
  Dim c As Range
  Dim rRange As Range
  Dim wsCible As Worksheet
 
  Set wsCible = Worksheets("Résumé")
  ReDim dureetable(2, 0)
 
  'Entrée des valeurs nom, date login et durée dans le tableau
  For Each c In Range(wsCible.[B1], wsCible.Cells(Rows.Count, 2).End(xlUp))
 
    ReDim Preserve dureetable(2, UBound(dureetable, 2) + 1)
    dureetable(0, UBound(dureetable, 2)) = c.Offset(0, -1).Value
    dureetable(1, UBound(dureetable, 2)) = c.Value
    dureetable(2, UBound(dureetable, 2)) = c.Offset(0, 4).Value
 
  Next c
End Sub