Suppression des lignes vides d'un Range

[Kernoz]

Bonjour à tous 🙂

J'ai besoin de vos sciences pour un petit bout de code tout bête :

Je veux travailler sur le Range ("A18:A250")
Pour toutes les cellules vides dans ce Range, je veux supprimer la ligne entiere.

D'avance merci pour votre aide, je ne joint pas de fichier, je pense que cela n'est pas necessaire. 🙄

 

[VDAVID]

Re : Suppression des lignes vides d'un Range

Bonjour Kernoz,
Dans le code de ta feuille:

Sub Suppression()
Dim i&
For i = 250 To 18 Step -1
If Range("A" & i).Value = "" Then Rows(i).Delete
Next i
End Sub

Bonne journée !

 

[Pierrot93]

Re : Suppression des lignes vides d'un Range

Bonjour,

une autre solution :

On Error Resume Next
Range("A18:A250").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

bon après midi
@+

 

[Staple1600]

Re : Suppression des lignes vides d'un Range

Bonsoir

Une autre autre possibilité

Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 18/07/2012 par Staple
'

'
    Range("A18:A250").Sort Key1:=Range("A18"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

 

[ROGER2327]

Re : Suppression des lignes vides d'un Range

Bonsoir à tous

Pour supprimer les lignes de la plage LIGNE(18:250) dont la première cellule est vide :​

Sub toto()
Dim i&
    With Application: .ScreenUpdating = 0: .EnableEvents = 0: .Calculation = -4135: End With
    With Range("A18:A250")
        For i = .Rows.Count To 1 Step -1
            If IsEmpty(.Cells(i)) Then Rows(.Cells(i).Row).EntireRow.Delete
        Next
    End With
    With Application: .Calculation = -4105: .EnableEvents = 1: .ScreenUpdating = 1: End With
End Sub

ROGER2327
#6136

Jeudi 5 Tatane 139 (Saint Arsouille, patricien - fête Suprême Quarte)
30 Messidor An CCXX, 9,0938h - chalémie
2012-W29-3T21:49:30Z

 

[Kernoz]

Re : Suppression des lignes vides d'un Range

Merci à tous ! 😱