A voir également:
- Code vba pour supprimer les lignes vides
- Supprimer rond bleu whatsapp - Guide
- Code ascii - Guide
- Comment supprimer les pages vides sur word - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
1 réponse
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
