Suppression des lignes vides avec un grand S

Marsh Posté le 12-11-2018 à 16:43:30

bonjour
j'ai besoin d'un coup de main sur un truc tout simple... (je pense)
je sais supprimer des lignes vides sur toutes mes pages si les case de la colonne A sont vide...

Code :

Sub test()
For Each aSheet In Sheets
aSheet.Range("a1:a65536" ).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Next
End Sub

Super content cela semblait faire ce que je voulais...
Mais dans mon tableau je aperçois que je peux avoir rien en "A" mais en "B" ET "C" ou en "D" et "F"
Du coup cela me supprime des lignes qui contiennent des données à traiter..

Y a til moyen de faire un truc identique mais sur la plage rechercher ce ne soit pas que la colonne "A" mais sur la plage "A:Z" et de "A1:A65536" à "Z1:Z65536"

Merci d'avance.
PS : je continu de chercher si je trouve l'infos je la mets.

Marsh Posté le 12-11-2018 à 16:43:30

Marsh Posté le 14-11-2018 à 18:39:13

je vois que tout comme moi personne n'a d'idées....

Marsh Posté le 14-11-2018 à 19:31:07

J'ai testé un truc mais ça renvoie un message d'erreur pour la ligne vide donc je ne trouve pas ça terrible. Il y a aussi des boucles mais je trouve ça moyen.

Je cherchais une solution vraiment généraliste, après en fonction de ton fichier tu peux tenter un truc avec des currentRegion, si la ligne avec la cellule vide n'est ni dans currentRegion de la cellule précédente (verticalement) ni dans celle de la suivante alors sa ligne doit être vide, ceci suppose qu'il n'y ait pas de colonne vide ou du moins cellules remplies après le colonne vide sur la ligne qui commence par une cellule vide.

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *