Un macro qui supprime des ligne vide
shahrazed
-
Le Pingou Messages postés 12720 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12720 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
j'ai essayé ça
Sub EnleverLignesVides()
Dim p As Range, i As Long
Set p = Application.InputBox(Prompt:="Sélectionnez une plage", _
Title:=" Supprimer lignes vides", Type:=8)
With p
For i = .Rows.Count To 1 Step -1
If Application.CountA(.Rows(i)) = 0 Then _
.Rows(i).EntireRow.Delete 'ICI
Next i
End With
End Sub
ça marcher mais je veux un macro qui décale vers le haut
j'ai essayé ça
Sub EnleverLignesVides()
Dim p As Range, i As Long
Set p = Application.InputBox(Prompt:="Sélectionnez une plage", _
Title:=" Supprimer lignes vides", Type:=8)
With p
For i = .Rows.Count To 1 Step -1
If Application.CountA(.Rows(i)) = 0 Then _
.Rows(i).EntireRow.Delete 'ICI
Next i
End With
End Sub
ça marcher mais je veux un macro qui décale vers le haut
A voir également:
- Un macro qui supprime des ligne vide
- Partager des photos en ligne - Guide
- Comment supprimer une page vide sur word - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment supprimer un fichier qui refuse d'être supprimé - Guide
