suppression cellules vides

vbacrumble

XLDnaute Accro

• 20 Mai 2009

• #2

Re : suppression cellules vides

Bonjour



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

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 20 Mai 2009

• #3

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

Vote positif 0 Vote négatif

zelf-op

XLDnaute Nouveau

• 20 Mai 2009

• #4

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.

 

Dernière édition: 20 Mai 2009

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 20 Mai 2009

• #5

Re : suppression cellules vides

Re

Ton fichier n'est pas passé.

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

 

Vote positif 0 Vote négatif

zelf-op

XLDnaute Nouveau

• 20 Mai 2009

• #6

Re : suppression cellules vides

Voici enfin les fichiers !!

Encore merci !!

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 20 Mai 2009

• #7

Re : suppression cellules vides

Re


Non toujours pas de fichier

Quelle taille font-ils ?

 

Vote positif 0 Vote négatif

zelf-op

XLDnaute Nouveau

• 20 Mai 2009

• #8

Re : suppression cellules vides

16 et 25 Ko

 

Pièces jointes

• tatave source.xls

  16.5 KB · Affichages: 45
• tatave2.xls

  27 KB · Affichages: 49

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 20 Mai 2009

• #9

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.

 

Vote positif 0 Vote négatif

zelf-op

XLDnaute Nouveau

• 20 Mai 2009

• #10

Re : suppression cellules vides

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 20 Mai 2009

• #11

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

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 20 Mai 2009

• #12

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.

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 20 Mai 2009

• #13

Re : suppression cellules vides

Re

JCGL : ( bonsoir )

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

 

Dernière édition: 20 Mai 2009

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 20 Mai 2009

• #14

Re : suppression cellules vides

Bonjour à tous,

vbacrumble à dit:

JCGL : ( bonsoir )

Cliquez pour agrandir...

Salut VBACrumble

vbacrumble à dit:

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

Cliquez pour agrandir...

Et proposée par Catrice

A+ à tous

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 20 Mai 2009

• #15

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.

 

Vote positif 0 Vote négatif