Supprimer cellules vides dans colonne

[manulemalin13000]

Bonjour,

J'ai parcouru tout le forum ainsi qu'internet en général et je ne trouve pas ce que je cherche...

J'ai dans une colonne donnée des cellules vides. Ce que je veux c'est supprimer les vides pour tout rassembler en haut de la colonne. Mais sans supprimer la ligne car a coté il y a des cellules avec des infos et supprimer la ligne conduirait a perdre des infos

Quelqu'un a un bout de code pour cela ?

merci

 

[laetitia90]

Re : Supprimer cellules vides dans colonne

bonjour manulemalin13000 pour colonne 1 a adapter
code de l'ami Staple

Sub Macro1()
Columns(1).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

 

[pierrejean]

Re : Supprimer cellules vides dans colonne

Bonjour manulemalin

euh pas tant que ça !!!

Voila un bout de code (B a adapter)

For n = Range"B65536").End(xlUp).Row To 1 Step -1
If Range("B" & n) = "" Then Range("B" & n).Delete Shift:=xlUp
Next n

Edit : Bises Laetitia et bravo a toi autant qu'a mon ami Staple

 

[job75]

Re : Supprimer cellules vides dans colonne

Bonjour manulemalin13000,

Bonjour,

J'ai dans une colonne donnée des cellules vides. Ce que je veux c'est supprimer les vides pour tout rassembler en haut de la colonne.

S'il n'y a que ça, pourquoi ne pas trier le tableau sur la colonne concernée ??

Les cellules vides de la colonne se retrouveront en bas du tableau...

Edit : bonjour laetitia, pierrejean

A+

 

[manulemalin13000]

Re : Supprimer cellules vides dans colonne

Re,

Merci a tous, Job, Laetitia, Pierrejean...

Pourquoi je fais pas un trier ?? parce que ca m'oblige à faire un trier DECROISSANT pour avoir les données en haut du tableau et par consequent j'ai mes données dans le desordre.

Pour vos bouts de code c'est sympa mais j'aurai du demander le code complet parce que j'ai des messages d'erreur je pense que je n'ai pas du declarer des variables ou autre..

Merci
Manu

 

[pierrejean]

Re : Supprimer cellules vides dans colonne

Re

Dans ce cas le fichier ou une copie allégéee sera, je pense, necessaire

 

[job75]

Re : Supprimer cellules vides dans colonne

Re,

Je comprends que la colonne concernée (on supposera A) contient du texte , les cellules vides contenant le texte vide "".

Alors avant de partir en week-end, ce code :

Dim derlig As Long
Rows("1:" & [A65536].End(xlUp).Row).Sort Key1:=[A1], Order1:=[COLOR="red"]xlDescending[/COLOR], Header:=xlYes 'tri sur colonne A ([COLOR="Red"]avec titres[/COLOR])
derlig = 1 + Application.CountIf([A2:A65536], "?*")
Rows("1:" & derlig).Sort Key1:=[A1], Order1:=[COLOR="red"]xlAscending[/COLOR], Header:=xlYes

A+

 

[manulemalin13000]

Re : Supprimer cellules vides dans colonne

Re,

Alors voici un exemple avec quelques lignes.
En orange la colonne ou il faut classer les valeurs venant de J

merci

Manu

 

[pierrejean]

Re : Supprimer cellules vides dans colonne

Re

je dois avouer que je ne comprends absolument pas ce que tu souhaites !!!
Peux-tu inclure une page supplementaire avec une dizaine de lignes du resultat espéré ?

 

[manulemalin13000]

Re : Supprimer cellules vides dans colonne

Cher Pierrejean,

Je reprends depuis le début:

Dans le xls joint, j'ai des colonnes de A à H générées par un logiciel quelconque.
J'ai mis une condition pour trier certaines des donnees qui m'interessent:
=IF(COUNTIF(C1:G1;$P$1&"*")>0;A1;"")

Cela me genere donc une colonne (J) avec des trous.
Je souhaite copier coller en valeur J vers L
Et reclasser L dans l'ordre croissant sans les vides.

Ca marche si je reclasse en décroissant la colonne L mais j'ai mes valeurs dans le desordre.
Ce que je veux c'est L identique a J mais sans les vides et dans l'ordre.

j'espere que j'ai été suffisament clair dans mes explications.
Je te remercie pour ton aide

Bonne fin de journee bon w end

manu

 

[pierrejean]

Re : Supprimer cellules vides dans colonne

Re

Voila
Mais tu admettras que cela n'a qu'un lointain rapport avec ton exposé d'origine
Et que nous avons, la, la confirmation du fait qu'un fichier est toujours le plus bavard

 

[manulemalin13000]

Re : Supprimer cellules vides dans colonne

Bonjour le Forum,

Merci Pierrejean pour ton aide

Excellente journée a toi

Manu

 

[CISCO]

Re : Supprimer cellules vides dans colonne

Bonjour

Une autre possibilité en pièce jointe

@ plus

 

[manulemalin13000]

Re : Supprimer cellules vides dans colonne

Salut Cisco,

Apparemment c'est que de la formule... bravo pour la synthaxe
Entre toi et pierrejean vous m'avez deprimé tant le chemin à parcourir est encore long...

Merci a vous

 

[CISCO]

Re : Supprimer cellules vides dans colonne

Salut Cisco,

Apparemment c'est que de la formule... bravo pour la synthaxe
Entre toi et pierrejean vous m'avez deprimé tant le chemin à parcourir est encore long...

Merci a vous

Bonjour

Faut pas, faut pas...

Il a un début à tout... autrement dit, on est tous passé par là.

@ plus