suppression cellules vides

[zelf-op]

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,

 

[vbacrumble]

Re : suppression cellules vides

Bonjour



Avec un fichier exemple (mais avec des données fictives), on serait plus a même de t'aider.

 

[Catrice]

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

 

[zelf-op]

Re : suppression cellules vides

Merci beaucoup pour le fichier, mais cela n'est pas adapté à ma problématique. Je joint à ce message les fichiers concernés.

 

[vbacrumble]

Re : suppression cellules vides

Re

Ton fichier n'est pas passé.

(doit être <48ko , tu peux le zipper pour réduire sa taille)

 

[zelf-op]

Re : suppression cellules vides

Voici enfin les fichiers !!

Encore merci !!

 

[vbacrumble]

Re : suppression cellules vides

Re


Non toujours pas de fichier

Quelle taille font-ils ?

 

[zelf-op]

Re : suppression cellules vides

16 et 25 Ko

 

[vbacrumble]

Re : suppression cellules vides

Re


A tester (sur le fichier tatave2.xls)

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.

 

[zelf-op]

Re : suppression cellules vides

😱Encore merci, mais je ne sais même pas comment intégrer un code ( j'suis vraiment nul !!)

 

[JCGL]

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

 

[vbacrumble]

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.

 

[vbacrumble]

Re : suppression cellules vides

Re

JCGL : ( bonsoir )

zelf-op: si tu veux garder les formules , privilégie la méthode recommandée par JCGL

 

[JCGL]

Re : suppression cellules vides

Bonjour à tous,

JCGL : ( bonsoir )

Salut VBACrumble

zelf-op: si tu veux garder les formules , privilégie la méthode recommandée par JCGL

Et proposée par Catrice 😛

A+ à tous

 

[vbacrumble]

Re : suppression cellules vides

Re


Cela allait de soi car pour savoir quelle méthode recommande JCGL, il faut lire son message ou il est stipulé la méthode CaTRIce 😉

D'ou mon raccourci lapidaire.