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
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