Sub suprim2() For i = Range("d65536").End(xlUp).Row To 1 Step -1 If Range("d" & i) = "" Then Range("d" & i).EntireRow.Delete Next End Sub
cordialement FL
"FL" a écrit dans le message de news: 44ef2b73$0$25907$
Plus fort je n'ai pas entendu. Je rigole
Sub suprim() For i = 1 To Range("D65536").End(xlUp).Row If Cells(i, 4)="" Then Cells(i, 11).EntireRow.Delete: i = i - 1 Next i End Sub
à+ FL "Utilisateur1" a écrit dans le message de news: 44ef24cc$0$25928$
BONJOUR
COMMENT SUPPRIMER AUTOMATIQUEMENT LES LIGNES QUAND LES CASES DE LA COLONNE D SONT VIDES ?
A B C D E
1 2 3 4 5
1 2 3 5
1 2 3 4 5
1 2 3 4 5
1 2 3 5
1 2 3 4 5
PAR EXEMPLE SUPPRIMER LA 3ème ET LA 5ème LIGNE DE MON TABLEAU
MERCI
J
Bonjour comme les autres, mais écrit différemment
Sub SupprLigneSi_D_Vide() derniereLigne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = derniereLigne To 1 Step -1 If IsEmpty(Range("D" & r)) Then Rows(r).Delete Next r End Sub
@+ J@@
BONJOUR
COMMENT SUPPRIMER AUTOMATIQUEMENT LES LIGNES QUAND LES CASES DE LA COLONNE D SONT VIDES ?
A B C D E
1 2 3 4 5
1 2 3 5
1 2 3 4 5
1 2 3 4 5
1 2 3 5
1 2 3 4 5
PAR EXEMPLE SUPPRIMER LA 3ème ET LA 5ème LIGNE DE MON TABLEAU
MERCI
Bonjour
comme les autres, mais écrit différemment
Sub SupprLigneSi_D_Vide()
derniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = derniereLigne To 1 Step -1
If IsEmpty(Range("D" & r)) Then Rows(r).Delete
Next r
End Sub
@+
J@@
BONJOUR
COMMENT SUPPRIMER AUTOMATIQUEMENT LES LIGNES QUAND LES CASES DE LA COLONNE
D SONT VIDES ?
A B C D E
1 2 3 4 5
1 2 3 5
1 2 3 4 5
1 2 3 4 5
1 2 3 5
1 2 3 4 5
PAR EXEMPLE SUPPRIMER LA 3ème ET LA 5ème LIGNE DE MON TABLEAU
Sub SupprLigneSi_D_Vide() derniereLigne = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = derniereLigne To 1 Step -1 If IsEmpty(Range("D" & r)) Then Rows(r).Delete Next r End Sub
@+ J@@
BONJOUR
COMMENT SUPPRIMER AUTOMATIQUEMENT LES LIGNES QUAND LES CASES DE LA COLONNE D SONT VIDES ?
A B C D E
1 2 3 4 5
1 2 3 5
1 2 3 4 5
1 2 3 4 5
1 2 3 5
1 2 3 4 5
PAR EXEMPLE SUPPRIMER LA 3ème ET LA 5ème LIGNE DE MON TABLEAU
MERCI
J
Bjr ou aussi Sub DetruireLigneSi_D_Vide() x = [D65536].End(3).Row Application.ScreenUpdating = False [D:D].AutoFilter Field:=1, Criteria1:=" " Range("D2:D" & x).SpecialCells(xlCellTypeVisible).EntireRow.Delete [D:D].AutoFilter End Sub
plus rapide d'utiliser des filtres dixit AV @+ J@@
BONJOUR
COMMENT SUPPRIMER AUTOMATIQUEMENT LES LIGNES QUAND LES CASES DE LA COLONNE D SONT VIDES ?
A B C D E
1 2 3 4 5
1 2 3 5
1 2 3 4 5
1 2 3 4 5
1 2 3 5
1 2 3 4 5
PAR EXEMPLE SUPPRIMER LA 3ème ET LA 5ème LIGNE DE MON TABLEAU
MERCI
Bjr
ou aussi
Sub DetruireLigneSi_D_Vide()
x = [D65536].End(3).Row
Application.ScreenUpdating = False
[D:D].AutoFilter Field:=1, Criteria1:=" "
Range("D2:D" & x).SpecialCells(xlCellTypeVisible).EntireRow.Delete
[D:D].AutoFilter
End Sub
plus rapide d'utiliser des filtres dixit AV
@+
J@@
BONJOUR
COMMENT SUPPRIMER AUTOMATIQUEMENT LES LIGNES QUAND LES CASES DE LA COLONNE
D SONT VIDES ?
A B C D E
1 2 3 4 5
1 2 3 5
1 2 3 4 5
1 2 3 4 5
1 2 3 5
1 2 3 4 5
PAR EXEMPLE SUPPRIMER LA 3ème ET LA 5ème LIGNE DE MON TABLEAU
Bjr ou aussi Sub DetruireLigneSi_D_Vide() x = [D65536].End(3).Row Application.ScreenUpdating = False [D:D].AutoFilter Field:=1, Criteria1:=" " Range("D2:D" & x).SpecialCells(xlCellTypeVisible).EntireRow.Delete [D:D].AutoFilter End Sub
plus rapide d'utiliser des filtres dixit AV @+ J@@
BONJOUR
COMMENT SUPPRIMER AUTOMATIQUEMENT LES LIGNES QUAND LES CASES DE LA COLONNE D SONT VIDES ?
A B C D E
1 2 3 4 5
1 2 3 5
1 2 3 4 5
1 2 3 4 5
1 2 3 5
1 2 3 4 5
PAR EXEMPLE SUPPRIMER LA 3ème ET LA 5ème LIGNE DE MON TABLEAU
MERCI
AV
plus rapide d'utiliser des filtres dixit AV
Certes, certes... mais, quand on le peut, Edition > Atteindre > Cellules....est encore plus rapide ! (regarde la réponse d'anonymusA)
PS : Dans ton filtre, Criteria1:=" " (espace), n'est pas équivalent du tout à : Criteria1:="" (vide) AV
plus rapide d'utiliser des filtres dixit AV
Certes, certes... mais, quand on le peut, Edition > Atteindre > Cellules....est
encore plus rapide !
(regarde la réponse d'anonymusA)
PS : Dans ton filtre, Criteria1:=" " (espace), n'est pas équivalent du tout à :
Criteria1:="" (vide)
AV
