Discussion :

[Belphegor59]

Bonjour à tous,

Cela fait un bon moment que je suis inscrit sur ce merveilleux site et d’ordinaire la consultation des tutoriels ou du forum ( sans compter l'enregistreur de macros) m'apportait la solution à mes problèmes. Je précise que je suis débutant en programmation VBA excel. Depuis peu je bute sur un problème dont la réponse doit être relativement simple mais qui m’échappe.

Voici l'objet de la demande d'aide:

Je veux sélectionner des lignes dont la valeur est 1 dans la colonne Y. Simple non ? J'ai fait un tri pour les regrouper. J'ai écrit deux macros différentes:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub tst()
Dim i As Long
i = 1
    While Not IsEmpty(Cells(i, 3))
        If Cells(i, 25).Value = 1 Then
            Rows(i).Select
            Selection.Copy
        End If
    i = i + 1
    Wend
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
Sub test_2()
Dim i As Long
i = 1
For i = Range("Y" & Rows.Count).End(xlUp).Row To 2 Step -1
    If Cells(i, 25).Value = 1 Then
        Rows(i).Copy
    End If
Next i 
End Sub

LA 1re ne me sélectionne que la dernière ligne et la seconde que la première malgré l'utilisation de boucles.
Autre impératif, je dois travailler sur plusieurs gros fichiers, environ 1 000 000 de lignes voire plus. Prière de ne pas rire,je me débrouille avec les moyens du bord. Cela pour dire que la solution doit en plus de fonctionner , doit être rapide.

Merci pur votre aide

Amicalement
Jean-François

[Theze]

Bonjour,

1 000 000 de lignes ouf...
Alors déjà, évite les "Select" si tu veux que ça prenne le moins de temps possible.
Maintenant, il faudrait que tu nous en dise un peu plus sur ce que tu veux faire car dans ton code, après la copie, il n'y a plus aucune action qui est faite !!! Donc, que faire de cette copie ?
Selon le cas, l'utilisation d'un tableau est peut être judicieuse afin de gagner du temps.

Hervé.

[Belphegor59]

Bonjour Theze

Merci pour ta réponse rapide.

Comment expliquer simplement....

J'ai un tableau par année depuis 2002 où sont stockées des informations concernant des individus. Ces individus ont deux identifiants (X et Y) et sont donc uniques (c 'est pourquoi je parlais d'access...). Mon but est de faire un tableau réunissant les informations d'un même individu sur toutes les années de 2002 à 2012.

Donc la portion de code que je cherche consiste à sélectionner les lignes concernant un individu dans une année pour les copier dans un tableau de synthèse de toutes les années.

Voici le début de mon code

Code :

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

1
2
3
4
5
6
Sub AppelConsommation()
 
    Call OuvertureTotal2012
    Call Selection
 
End Sub

Code :

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

1
2
3
4
5
6
7
Sub OuvertureTotal2012()
 
    Application.ScreenUpdating = False
    Application.Workbooks.Open ("D:\Total2012.xlsx")
    Columns.AutoFit
 
End Sub

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
Sub Selection()
 
 
Dim X As String
Dim Y As String
Dim i As Long
 
i = 1
 
Windows("Total2012").Activate
Sheets("Total2012").Select
 
X = Application.InputBox("X,")
Y= Application.InputBox("Y?")
 
    While Not IsEmpty(Cells(i, 1))
        If Cells(i, 1) = X And Cells(i, 2) = Y Then
            Cells(i, 25) = 1
        End If
        i = i + 1
    Wend
 
End Sub

Amicalement
Jean-François

[Didier Gonard]

Bonjour,

lequel compte le plus dans l'importance d'un tableau, le nombre de lignes ou le nombre de cellules ?

1 M de lignes à 3 colonnes ou à 100, ça change....

En indiquant la version de ton Excel dans le titre, tu auras aussi des réponses plus significatives, sous 2010, tu aurais peut-être intérêt à te pencher sur l'addin PowerPivot

Sinon, dès que les données sont nombreuses tu as intérêt à éviter les boucles quel quelles soient car elles sont chronophages.

Dans un cas comme le tien passer par un filtre auto ou avancé, à un stade donné, pour récupérer les données voulues serait surement bien plus rapide.
Pour exemple, sur un fichier de données de villes de 146 727 lignes et 2 346 687 cellules, je récupère une table de 2329 lignes et 37 249 cellules en l'espace de moins d'une seconde avec une extraction vers autre emplacement d'un filtre avancé...

Les filtres sont compatibles avec l'enregistreur de macros qui donne tous les mots clefs si besoin.

cordialement,

Didier

[Belphegor59]

Bonsoir Didier,

Merci de te pencher sur mon problème.

Mes fichiers font plus d'un million de lignes et 26 colonnes....

Le facteur temps est donc primordial dans la mesure où les bécanes de ma boîte ne sont pas des bêtes de courses.

Je vais suivre ton conseil et explorer la voie des filtres.

Je te tiens au courant.

Amicalement
Jean-François

[Belphegor59]

Re Bonsoir


Merci mille fois pour ton conseil avisé

Un exemple qui fonctionne rapidement et facile à programmer

Code :

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

 Worksheets("Total2012").Cells(1, 3).AutoFilter Field:=3, Criteria1:=Ident

Amicalement
Jean-François