Enlever les cases vides d'une colonne

[romainchu78]

A partir d'une colonne de donnees avec des lignes vides.
Je cherche à faire un code qui met côte à côte les résultats de la colonne en enlevant les lignes vides.

jai trouve sur le forum la formule pour le faire mais je voudrais le code pour le faire sur une colonne avec une activation manuel ( un bouton en VB)donc il me faut le code.

merci pour votre aide.

 

[titin]

salut romainchu78

avec ceci çà devrais être bon

Sub supligne()
Dim b As Integer 'declar variable (pour le N° de la ligne)
Application.ScreenUpdating = False 'stop l'actualisation de la page pour le confor des yeux
On Error Resume Next ' en cas d'erreur continu (c'est pour la ligne dans ton fichier qui est en 'REF'
For a = Range('A6000').End(xlUp).Row To 2 Step -1 'la boucle qui commence à la derniere ligne de la colonne A saisie / jusque la ligne 2 avec un pas de -1 afin de ne pas oublier de ligne au passage
If Range('A' & a).Value = 0 Then Rows(a).Delete ' condition si la valeur de la cellule A de la ligne a est = à 0 alors sup la ligne a
Next a ' incrémente a donc next a = a -1 (step -1)
Application.ScreenUpdating = True 'autorise l'actualisation de l'ecran
End Sub ' fin de la procedure

 

[romainchu78]

merci titin pour ta reponse.
jai copier coller ton code dans le miens et je lai adapter a la colonne D.
mais jai un message d'erreur.
le compilateur me dit error juste avant d'ataquer ton code: expected end sub.

 

[romainchu78]

Merci beaucoup pour la reponse.
je complete pour les autres par:

Set yopy4 = Worksheets('Sheet2').Range('A1:A160')
yopy4.SpecialCells(xlCellTypeBlanks).Delete

yopy4 corresponds a la colonne allant de A1 a A160. cette action suprime tout les blank de cette colonne.

Merci encore.