Un macro qui supprime des ligne vide
shahrazed
-
Le Pingou Messages postés 12372 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12372 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
- Supprimer page word vide - Guide
- Partager des photos en ligne - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
- Comment supprimer un fichier qui refuse d'être supprimé - Guide
- Comment supprimer une ligne dans un tableau word - Guide
