VBA - Epurer une colonne de cel vides sans supprimer les lignes

Résolu/Fermé
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 - 16 janv. 2015 à 15:30
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 - 16 janv. 2015 à 17:47
Hello !

Etant sous VBA, je cherche à épurer une colonne de ses cellules vides sans pour autant supprimer les lignes. Autrement dit, je souhaite que les cellules non vides se resserrent dans l'ordre.

En pratique :

J'ai :

A1 : vide
A2: "Element1"
A3: vide
A4: "Element2"
... vide

Je souhaite obtenir :

A1: "Element1"
A2: "Element2"
A3: vide
A4: vide
... vide

Quelqu'un connaîtrait-il un code pour effectuer cette opération ?

Merci d'avance !

A voir également:

1 réponse

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
16 janv. 2015 à 17:41
Bonjour,

Tu peux sélectionner la colonne A puis utiliser la fonctionnalité
Edition > Rechercher et sélectionner > Sélectionner les cellules > Cellules vides
Après, clic droit > Supprimer > Décaler les cellules vers le haut.

A+
1
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
16 janv. 2015 à 17:47
Super ça marche merci beaucoup !

Pour le code VBA (si certains comme moi voulaient l'intégrer à un ensemble) c'est le suivant (pour la colonne A dans cet exemple) :

Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
0