suppression cellules vides

zelf-op

XLDnaute Nouveau
Bonjour à toutes et à tous,

j'ai un problème à résoudre au sujet duquel j'ai trouvé quelques solutions possibles en parcourant le forum. Le "hic", c'est que l'on me parle de VBA, et là, je découvre totalement !

J'expose: je dois créer un tableau récapitulatif pour un "code budgétaire" issu d'un autre tableau contenant toutes les informations de tout les "codes budgétaires" confondus. Jusque là, pas de problème. Le soucis, c'est que cela me génère des lignes vides qu'il me faudrait supprimer automatiquement, sous peine de me retrouver avec un fichier contenant des informations toutes les "N" lignes de façon complètement aléatoire. AU SECOURS !!!

Je remercie par avance toute personne susceptible de me sortir de cette panade, d'autant que mon responsable de groupe me pose des questions sur l'état d'avancement du projet 2 ou 3 fois par jour ! (lol)

Cordialement à toutes et à tous,
 
Dernière édition:

Catrice

XLDnaute Barbatruc
Re : suppression cellules vides

Bonjour,

2 solutions dans le fichier joint

Sub Sol1()
Sheets(1).Range("A1").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Sub Sol2()
With Sheets(2)
.Range("A1:B" & .Range("A65536").End(xlUp).Row).Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlYes
End With
End Sub
 

Pièces jointes

  • Classeur1.xls
    26 KB · Affichages: 45
  • Classeur1.xls
    26 KB · Affichages: 48
  • Classeur1.xls
    26 KB · Affichages: 46

vbacrumble

XLDnaute Accro
Re : suppression cellules vides

Re


A tester (sur le fichier tatave2.xls)

Code:
Sub el()
Dim r   As Range
With ActiveSheet.UsedRange
    .Value = .Value
End With
Set r = Sheets(1).Range("B3:K" & Sheets(1).[K65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
r.EntireRow.Delete
End Sub

Le souci, c'est que les liens sont rompus après l'exécution de la macro.
 

JCGL

XLDnaute Barbatruc
Re : suppression cellules vides

Bonjour à tous,

Si tu appliques une des méthodes proposées par Catrice : le Tri

Tu conserves les formules et tu n'as plus de lignes vides

A+ à tous
 

Pièces jointes

  • JC Tatave2.zip
    18.2 KB · Affichages: 23

vbacrumble

XLDnaute Accro
Re : suppression cellules vides

Re



Tu ouvres ton fichier Excel

Puis Outils/Macros/Microsoft Visual Basic Editor

Ensuite tu copies/colles le code VBA de la macro.

Puis tu fais Outils/Macros

Tu sélectionnes el puis tu cliques sur Exécuter.
 

Discussions similaires