Supprimer la ligne si les celules de colonnes
Résolu/Fermé
A voir également:
- Supprimer la ligne si les celules de colonnes
- Aller à la ligne excel - Guide
- Supprimer une page word - Guide
- Partage de photos en ligne - Guide
- Supprimer compte instagram - Guide
- Site de vente en ligne particulier - Guide
4 réponses
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
18 juin 2012 à 13:42
18 juin 2012 à 13:42
Re,
Essaye avec ça
Sub sup_lig()
Dim DLig As Long, Lig As Long
With Sheets("Feuil1")
DLig = .Range("G" & Rows.Count).End(xlUp).Row
For Lig = DLig To 6 Step -1
If Application.WorksheetFunction.Sum(.Range("G" & Lig & ":H" & Lig)) = 0 Then
Range("G" & Lig).EntireRow.Delete
End If
Next Lig
End With
End Sub
Essaye avec ça
Sub sup_lig()
Dim DLig As Long, Lig As Long
With Sheets("Feuil1")
DLig = .Range("G" & Rows.Count).End(xlUp).Row
For Lig = DLig To 6 Step -1
If Application.WorksheetFunction.Sum(.Range("G" & Lig & ":H" & Lig)) = 0 Then
Range("G" & Lig).EntireRow.Delete
End If
Next Lig
End With
End Sub
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
18 juin 2012 à 13:12
18 juin 2012 à 13:12
Salut,
il faut que les cellules G et H soient vides sur la même ligne pour supprimer la ligne ou tu veux supprimer les lignes si les cellule en G sont vides et supprimer les lignes des cellules en H vides
il faut que les cellules G et H soient vides sur la même ligne pour supprimer la ligne ou tu veux supprimer les lignes si les cellule en G sont vides et supprimer les lignes des cellules en H vides