Discussion :

[yaciin]

Bonjour tt le monde,

je reviens vers vous encore une fois parsq je crois que je perd du temps dans un probléme qui semble simple.
J'ai un fichier excel avec plus de 17000 lignes et je veux parcourir ces derniers pour :
- exécuter des instructions sur les lignes dont la deuxième colonne = "1" ou "2"
- supprimer les lignes dont la deuxième colonne = "SLoc"
pour cela j'ai écris les lignes de code suivantes :

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
 
Dim a, b
b = ActiveSheet.UsedRange.Rows.Count
 
For a = 2 To b
 
        If Cells(a, 2) <> "SLoc" And Cells(a, 2) <> "" Then
 
                  ....
 
        ElseIf Cells(a, 2) = "SLoc" Then 
 
                  Cells(a, 2).EntireRow.Delete
        End If
 
Next

Mais ça marche pas ça bloque quand la boucle For arrive sur la dernière ligne dont la deuxième colonne = "1" ou "2"

Ps : j'ai déja trié ma deuxième colonne, du coup j'ai tout mes lignes à supprimer en bas, donc si j'arrive à récuperer l'indice de la premiére lignes à supprimer, je vais selectionner les lignes à partir de cet indice jusqu'à "b" et puis supprimer la selection, mais j'y arrive pas. c'est parsq je suis débutant en VBA et je sais pas trop manipuler les boucle pouvez-vous m'aider SVP. Merci d'avance

A+

[Philippe Tulliez]

Bonjour,
Lorsque l'on supprime des lignes dans excel, il faut parcourir les lignes de la dernière vers la première

[Invité]

et oui tu as raison:

Code :

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

For a = b to 2 step -1

Bonjour,
Lorsque l'on supprime des lignes dans excel, il faut parcourir les lignes de la dernière vers la première

[yaciin]

Bonjour Philippe,

Premièrement merci pour ta disponibilité
j'ai essayé de faire la boucle en inverse avec : For a = b To 2 step -1 , mais ça prends bq de temp avant de se lancer je sai pas pq, ça a pris 10min

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
Dim a, b
b = ActiveSheet.UsedRange.Rows.Count
 
For a = b To 2 Step -1
 
       If UCase(Trim("" & Cells(a, 2))) = UCase("SLoc") Then Rows(a).Delete
 
 
Next
End Sub

il faut boire le calice jusqu’à la lie. on y peut pas grand chose sauf si tu as des ligne avec des chaines vide, alors supprime les toutes avant d’exécuter ta macro.

[Docmarti]

j'ai essayé de faire la boucle en inverse avec : For a = b To 2 step -1 , mais ça prends bq de temp avant de se lancer je sai pas pq, ça a pris 10min

Bonjour yaciin; et à tous


Le UsedRange est peut-être très bas sur la feuille.

Remplace

b = ActiveSheet.UsedRange.Rows.Count

par

b = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row

ou par

b = Cells.Find("*", , , , xlByColumns, xlPrevious).Row


Cordialement

Docmarti

[yaciin]

ree

La boucle à l'inverse marche bien pour la suppression des lignes
le : b = Cells.Find("*", , , , xlByColumns, xlPrevious).Row , a réduit relativement le temps de l'exécution aussi

Merci a tous, j'arrête pas d'apprendre de ce forum

A+++