Code vba pour supprimer les lignes vides
Fermé
rakoto
-
10 avril 2013 à 15:53
f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 - 10 avril 2013 à 20:11
f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 - 10 avril 2013 à 20:11
A voir également:
- Code vba pour supprimer les lignes vides
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
1 réponse
f894009
Messages postés
17229
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2025
1 712
10 avril 2013 à 20:11
10 avril 2013 à 20:11
Bonjour,
effacement Hx a Rx si cellules Hx a Rx vides
Bonne suite
effacement Hx a Rx si cellules Hx a Rx vides
Sub effacelignes()
With Worksheets("feuil2")
'derniere ligne utilisee plage H:R
DerLig = .Range("H:R").Find("*", , , , xlByRows, xlPrevious).Row
For x = DerLig To 1 Step -1
Cel_vide = Application.WorksheetFunction.CountBlank(Worksheets("feuil2").Range("H" & x & ":R" & x))
If Cel_vide = 11 Then
.Range("H" & x & ":R" & x).Cells.Delete
End If
Next x
End With
End Sub
Bonne suite