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+