Supprimer les cellules vides dans une colonne que l'on choisit

[lodam]

Bonsoir
Une fois n'est pas coutume, je poste un petit exemple d'une macro.
Elle peut être utile si dans une colonne il y a des cellules vides que l'on souhaite supprimer sans supprimer toute la ligne.
Bien entendu, elle est largement optimisable mais si elle peut rendre service...

Bonne soirée
lodam
-----------------------------
voici le code :
Private Sub CommandButton1_Click()

Dim l, c As Integer
Dim n
c = InputBox("Entrer le N° de la colonne contenant les cellules vides à supprimer?", "SAISIR NUMERO DE COLONNE")

For l = Cells(65256, c).End(xlUp).Row To 1 Step -1
If Cells(l, c).Value = "" Then
Cells(l, c).Delete Shift:=xlUp
n = n + 1
End If
Next l
MsgBox "C'est fait !" & Chr(10) & "Nombre de lignes supprimées : " & n
n = 0

End Sub

 

[jeanpierre]

Re : Supprimer les cellules vides dans une colonne que l'on choisit

Bonsoir lodam,

Merci pour ton fichier, c'est très sympa.et aussi dans l'esprit d'XLD... le partage.

Bonne soirée.

Jean-Pierre

 

[lodam]

Re : Supprimer les cellules vides dans une colonne que l'on choisit

De rien JeanPierre, surtout vu le nombre de fois où j'ai été aidé (et ça n'est pas fini ...), j'attends le moment où moi aussi je pourrai aider un autre
Bonne soirée
lodam

 

[Cousinhub]

Re : Supprimer les cellules vides dans une colonne que l'on choisit

Bonsoir, lodam

Bonsoir, JP

un petit exemple, pour "optimiser", comme tu le dis......

Private Sub CommandButton1_Click()

Dim Col As Integer, DerLig As Long, Nb As Long

Col = InputBox("Entrer le N° de la colonne contenant les cellules vides à supprimer?", "SAISIR NUMERO DE COLONNE")
    DerLig = Cells(65000, Col).End(xlUp).Row
    On Error Resume Next
    With Range(Cells(1, Col), Cells(DerLig, Col)).SpecialCells(xlCellTypeBlanks)
        Nb = .Count
        .Delete Shift:=xlUp
    End With
        MsgBox "C'est fait !" & Chr(10) & "Nombre de lignes supprimées : " & Nb
End Sub