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 :
J'ai essayé dans tout les sens mais j'ai une erreur.
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
Merci de vôtre aide.
Partager