Bonjour a tout le monde.

Depuis ce matin j'essaie de trouver la solution a mon probleme.
Je suis loin d'être expert en VBA, mais j'arrive un ti peu a comprendre.

J'ai un tableau de 500 lignes (valeur fluctuante en fonction des jours) avec les colonnes B et C qui sont soit vide soit avec un "1".

J'aimerais que si les colonnes B a partir de B3 et C a partir de C3 sont vides, la ligne entière soit supprimé.

J'arrive a le faire si la colonne B est vide, mais pas si les deux le sont.

Voila mon code :

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
Sub Recuperation_information()
 
' Cette macro récupére les informations .
 
 
Application.Workbooks.Open Application.GetOpenFilename() ' Ouverture du fichier excel Resultats
 
 
Sheets("Résultats bruts").Select ' Copie de la feuille Resultats dans un nouveau classeur
Sheets("Résultats bruts").Copy ' Collage de la feuille dans le tableau a traiter
 
ActiveWorkbook.Close False ' Fermeture du fichier Xls  que l'ont viens d'ouvrir
 
Columns("B:C").Delete  ' Suppression des colonnes inutiles
Columns("E:AF").Delete
 
' Les colonnes D et E sont a présent en B et C
 
Nb_Lignes = Application.CountA(Range("A:A")) ' On compte le nombre de lignes a vérifier
 
x = Range("B500").End(xlUp).Row
Cells.Range("B3:B3" & x).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 
End Sub
J'ai essayé dans tout les sens mais j'ai une erreur.

Merci de vôtre aide.