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]

Je peux passer mon tableau en type variant au lieu de string, mais est-ce que ça va accélérer le processus?

[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

[dawood]

Hello!

Le code avec la boucle fonctionnait, mais vu qu'il y avait beaucoup de lignes, j'essaie avec cette méthode, mais j'ai une erreur sur la ligne

Code :

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

ActiveSheet.Range(Cells(i, 1).Address).Value = listeduree.Range(Cells(i, 1).Address).Value

Je bloque là dessus... Est-ce que quelqu'un pourrait m'aider? Le filtre du tableau fonctionne correctement, il ne reste plus qu'à le copier sur un nouvel onglet qui est créé automatiquement nommé par la variable "userdate". Mais comment faire pour "sortir" les données du tableau trié? Le code complet :

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
22
23
24
Private Sub Filtre(Optional userdate)
Dim i As Integer, dureetableubound As Integer
Dim listeduree As ListObject
 
Set WScible = Worksheets("Résumé")
 
With WScible
 
    If .ListObjects.Count <> 0 Then
        .ListObjects("Duree").Unlist
    End If
 
    .ListObjects.Add(xlSrcRange, .Range("$A$1").CurrentRegion, , xlYes).Name = "Duree"
    .ListObjects("Duree").Range.AutoFilter Field:=2, Criteria1:="=" & userdate
 
End With
 
i = 0
 
For Each listeduree In WScible.ListObjects
    i = i + 1
    ActiveSheet.Range(Cells(i, 1).Address).Value = listeduree.Range(Cells(i, 1).Address).Value
Next
End Sub

Merci d'avance

[pgz]

Pour copier ton tableau filtré, il y a plusieurs méthodes. En voici une

Code :

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

1
2
3
4
With Application.ThisWorkbook
    .Sheets(2).UsedRange.ClearContents
    .Sheets(1).Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy .Sheets(2).Range("A1")
End With

A adapter au contexte de ton projet. Ici la feuille(1) est celle qui contient les données filtrées et (2) celle où l'on copie les lignes visibles.

PGZ

[dawood]

Merci! Grâce à votre aide j'ai réussi ce que je voulais faire!

Ci joint, si ça vous intéresse, j'ai mis le fichier compressé.

Il fonctionne sur Excel 2003. En 2 étapes :
1 cliquer sur copier pour copier tous les login / logouts
2 choisir la date dans combobox pour créer l'onglet avec le tri par date / choisir tous pour créer tous les onglets triés.

C'est encore un peu lent, mais ça fonctionne bien ici!

Bonne journée!