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![]()
Partager