Supprimer les cellules vides

Modeste

XLDnaute Barbatruc

• 16 Octobre 2010

• #2

Re : Supprimer les cellules vides

Bonjour gy72, le forum,

...Si j'ai bien compris: sélectionner la ligne, appuyer sur la touche F5, puis le bouton "Cellules..." en bas à gauche, ensuite, cocher "Cellules vides" > OK
Maintenant que les cellules vides sont sélectionnées, clic droit sur l'une d'entre elles > Supprimer > Décaler vers la gauche

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 16 Octobre 2010

• #3

Re : Supprimer les cellules vides

bonjour

comme ceci


Sélectionner la plage
Touche clavier F5 / Cellules / Cellules vides / OK
version 2003
Menu Edition / Supprimer / Accepter la proposition 'Décaler les cellules vers le haut' / OK
version 2007
accueil/ cellules/ flèche supprimer

choisir supprimer les cellules
dans la boite de dialogue choisir 'Décaler les cellules vers le haut' / OK

 

Dernière édition: 16 Octobre 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Octobre 2010

• #4

Re : Supprimer les cellules vides

Bonjour à tous,

une solution vba, agit sur la ligne 3 de la feuille active :

Code:

On Error Resume Next
Rows(3).SpecialCells(xlCellTypeBlanks).Delete
On Error GoTo 0

bon après midi
@+

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 16 Octobre 2010

• #5

Re : Supprimer les cellules vides

Pierrot93 à dit:

Bonjour à tous,

une solution vba, agit sur la ligne 3 de la feuille active :

Code:

On Error Resume Next
Rows(3).SpecialCells(xlCellTypeBlanks).Delete
On Error GoTo 0

bon après midi
@+

Cliquez pour agrandir...

Bonjour,
Comment j'installe ce code, en macro ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Octobre 2010

• #6

Re : Supprimer les cellules vides

Re,

dans l'éditeur vba, dans un module standard, tu peux également .affecter ce code à un bouton...

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 16 Octobre 2010

• #7

Re : Supprimer les cellules vides

J'ai mis ça à un bouton

Sub Supprimer_vide()
On Error Resume Next
Rows(55).SpecialCells(xlCellTypeBlanks).Delete
On Error GoTo 0
End Sub

Mais rien ne se passe

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 16 Octobre 2010

• #8

Re : Supprimer les cellules vides

bonsoir

essayer ceci 🙄

Code:

Sub supp()
    On Error Resume Next
    Sheets(1).Select
    Range("D100").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
    On Error GoTo 0
End Sub

 

Dernière édition: 16 Octobre 2010

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 16 Octobre 2010

• #9

Re : Supprimer les cellules vides

bonsoir,
Je comprends pas.
J'ai toute une ligne avec plein de cellules vides et des mots dans les autres.
Que je dois ramener au début.
Je souhaite faire la solution : Touche clavier F5 / Cellules / Cellules vides / OK
Mais effectivement avec une macro, cela plus rapide, car j'ai de 3 à 1172 lignes à faire une par une.

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 16 Octobre 2010

• #10

Re : Supprimer les cellules vides

Bonsoir,

Pour autant que je puisse en juger, ma proposition de 16h20 devrait fonctionner ... Il en va de même pour le code proposé par Pierrot !!
Si ton fichier comporte l'une ou l'autre particularité, déposes-en une version sans données confidentielles.

A priori, rien n'interdirait d'appliquer l'une ou l'autre méthode à 1000 lignes!?

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 16 Octobre 2010

• #11

Re : Supprimer les cellules vides

Ok ça marche comme ça

D'accord, suis-je bête, je n'ai pas essayé sur plusieurs lignes.
Je pensais que je pouvais faire ça que ligne par ligne.
Merci de votrre aide
Guy

 

Vote positif 0 Vote négatif