[Résolu] Raccourcir mon code VBA moche

[djodjodjo]

Bonjour à tout le forum,

aujourd'hui j'ai besoin d'aide pour supprimer toutes les lignes vides d'un fichier Excel MAIS en ne commençant qu'à partir de la colonne B.

Actuellement mon code est:

Application.ScreenUpdating = False
For n = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Range("B" & n) = "" And Range("C" & n) = "" And Range("D" & n) = "" And Range("E" & n) = "" And Range("F" & n) = "" And Range("G" & n) = "" Then Rows(n).Delete
Next n
Application.ScreenUpdating = True

Ca fonctionne bien mais vous en conviendrez, c'est très moche !

C'est une idée, mais peut-être est-il possible (ou pas) de réutiliser ce code trouvé ICI :

With ActiveSheet.UsedRange 
DerLi = .Row + .Rows.Count - 1 
End With

For r = DerLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r

Il supprime toutes les lignes vides sans tenir compte de la colonne A qui dans mon cas ne sera jamais vide (c'est tout ce qui est après cette colonne que je veux tester).

J'espère avoir été suffisamment clair... Merci d'avance pour votre aide !

 

[djodjodjo]

Re : Raccourcir mon code VBA moche

Je ne comprends pas le souci, c'est ce que je recherche moi !! Que si toutes les cellules comprises entre la colonne B et la dernière colonne sont vides sur une ligne, alors toute la ligne est supprimée.

Donc c'est normal que tes lignes avec les "NE PAS EFFACER" en colonne A soient supprimées puisqu'elle ne comportent aucune autre donnée dans les colonnes qui suivent... contrairement à tes autres lignes remplies de chiffres...

 

[djodjodjo]

Re : Raccourcir mon code VBA moche

Aucune importance que mes données en colonne A soient supprimées SI le reste de la ligne est vide. J'aurais dû le préciser, ça nous aurait évité de spammer hihi. Au temps pour moi !

A bientôt

 

[TempusFugit]

Re : Raccourcir mon code VBA moche

Bonjour de nouveau

Je ne vois rien qui ressemble à du spam.

 

[djodjodjo]

Re : Raccourcir mon code VBA moche

Peu importe.

J'apprécie que tu te sois soucié du fait que mes données étaient supprimées. C'est ma faute si je n'ai pas précisé que cela m'était égal.

A bientôt !