Bonjour,

Je viens ici après avoir parcouru le fofo dans tous les sens et testé pleins de choses différentes pour arriver au résultat voulu..sans succès
D'avance merci pour votre aide !!

Donc pour faire simple j'ai un tableau comme ci dessous:


L'idée est d'analyser les colonnes A et B (ou alors une plage de cellules A2:B6500) et de supprimer les lignes ou il y a soit "" soit #N/A.

Voici ce que j'ai optenu au mieux :
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
25
26
27
28
Sub Supprimer_lignes()
 
Dim i As Double
limite = Range("A1").CurrentRegion.Rows.Count
 
Application.ScreenUpdating = False
 
For i = limite To 1 Step -1 'compte par la fin du tableau
 
    j = 1 'colonne début A
 
        Range("A2:B6500").Select
        ActiveCell(i - 1, j).Select
            Do While ActiveCell.Value = ""
            Selection.EntireRow.Delete
            Loop
 
        Cells(i, j + 1).Select
            Do While Selection.Value = xlErrNA
            Selection.EntireRow.Delete
            Loop
 
Next i
 
Application.ScreenUpdating = True
MsgBox "Import effectué"
 
End Sub


A savoir que cette macro liste bien mes colonnes "A" et "B" en commençant par le bas.Seulement il y a une erreur 13 quand le cas doit traiter un #N/A.

Si je remplace le #N/A par un chiffre pour faire tourner le code,je n'arrive pas à arrêter la boucle quand ça arrive en A1 (ce n'est pas bloquant mais du coup je ne vois pas à quoi sert mon limite = Range("A1")...)


J'ai essayé tout un tas de solution ou écriture sans succès merci de m'aider