Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Pribette,
Essaie ceci :
Tu dois adapter le nom de la feuille et de la plage au besoin.
'------------------------------- Sub SupprimerLignesVides()
Dim Rg As Range, Nb As Long With Worksheets("Feuil1") Set Rg = .Range("A1:A" & _ .Range("A65536").End(xlUp).Row).EntireRow End With
Nb = Rg.Rows.Count Application.ScreenUpdating = False For a = Nb To 1 Step -1 If Application.CountA(Rg.Rows(a)) = 0 Then Rg.Rows(a).Delete End If Next Set Rg = Nothing End Sub '-------------------------------
Salutations!
"pribette" a écrit dans le message de news:
bonjour à tous
je souhaiterai avec une macro, pouvoir supprimer dans une feuille toutes les lignes vides, comment m'y prendre ?
merci de votre aide
Bonjour Pribette,
Essaie ceci :
Tu dois adapter le nom de la feuille et de la plage au besoin.
'-------------------------------
Sub SupprimerLignesVides()
Dim Rg As Range, Nb As Long
With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & _
.Range("A65536").End(xlUp).Row).EntireRow
End With
Nb = Rg.Rows.Count
Application.ScreenUpdating = False
For a = Nb To 1 Step -1
If Application.CountA(Rg.Rows(a)) = 0 Then
Rg.Rows(a).Delete
End If
Next
Set Rg = Nothing
End Sub
'-------------------------------
Salutations!
"pribette" <pribette@discussions.microsoft.com> a écrit dans le message de news:
66890D0C-C2C4-4551-A0B7-89C511C9763C@microsoft.com...
bonjour à tous
je souhaiterai avec une macro, pouvoir supprimer dans une feuille toutes les
lignes vides, comment m'y prendre ?
Tu dois adapter le nom de la feuille et de la plage au besoin.
'------------------------------- Sub SupprimerLignesVides()
Dim Rg As Range, Nb As Long With Worksheets("Feuil1") Set Rg = .Range("A1:A" & _ .Range("A65536").End(xlUp).Row).EntireRow End With
Nb = Rg.Rows.Count Application.ScreenUpdating = False For a = Nb To 1 Step -1 If Application.CountA(Rg.Rows(a)) = 0 Then Rg.Rows(a).Delete End If Next Set Rg = Nothing End Sub '-------------------------------
Salutations!
"pribette" a écrit dans le message de news:
bonjour à tous
je souhaiterai avec une macro, pouvoir supprimer dans une feuille toutes les lignes vides, comment m'y prendre ?
merci de votre aide
patrick2708
un grand merci à toi pour ton aide patrick
Bonjour Pribette,
Essaie ceci :
Tu dois adapter le nom de la feuille et de la plage au besoin.
'------------------------------- Sub SupprimerLignesVides()
Dim Rg As Range, Nb As Long With Worksheets("Feuil1") Set Rg = .Range("A1:A" & _ .Range("A65536").End(xlUp).Row).EntireRow End With
Nb = Rg.Rows.Count Application.ScreenUpdating = False For a = Nb To 1 Step -1 If Application.CountA(Rg.Rows(a)) = 0 Then Rg.Rows(a).Delete End If Next Set Rg = Nothing End Sub '-------------------------------
Salutations!
"pribette" a écrit dans le message de news:
bonjour à tous
je souhaiterai avec une macro, pouvoir supprimer dans une feuille toutes les lignes vides, comment m'y prendre ?
merci de votre aide
un grand merci à toi pour ton aide
patrick
Bonjour Pribette,
Essaie ceci :
Tu dois adapter le nom de la feuille et de la plage au besoin.
'-------------------------------
Sub SupprimerLignesVides()
Dim Rg As Range, Nb As Long
With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & _
.Range("A65536").End(xlUp).Row).EntireRow
End With
Nb = Rg.Rows.Count
Application.ScreenUpdating = False
For a = Nb To 1 Step -1
If Application.CountA(Rg.Rows(a)) = 0 Then
Rg.Rows(a).Delete
End If
Next
Set Rg = Nothing
End Sub
'-------------------------------
Salutations!
"pribette" <pribette@discussions.microsoft.com> a écrit dans le message de news:
66890D0C-C2C4-4551-A0B7-89C511C9763C@microsoft.com...
bonjour à tous
je souhaiterai avec une macro, pouvoir supprimer dans une feuille toutes les
lignes vides, comment m'y prendre ?
Tu dois adapter le nom de la feuille et de la plage au besoin.
'------------------------------- Sub SupprimerLignesVides()
Dim Rg As Range, Nb As Long With Worksheets("Feuil1") Set Rg = .Range("A1:A" & _ .Range("A65536").End(xlUp).Row).EntireRow End With
Nb = Rg.Rows.Count Application.ScreenUpdating = False For a = Nb To 1 Step -1 If Application.CountA(Rg.Rows(a)) = 0 Then Rg.Rows(a).Delete End If Next Set Rg = Nothing End Sub '-------------------------------
Salutations!
"pribette" a écrit dans le message de news:
bonjour à tous
je souhaiterai avec une macro, pouvoir supprimer dans une feuille toutes les lignes vides, comment m'y prendre ?
