Discussion :

[ilissnmiden92]

Bonjour,

j'ai besoin de votre aide, suite à une formule mise dans ma colonne AF, le résultat est des fois un vide.
J'aimerai mettre en place une macro, qui supprimera toutes les lignes si filtre fait sur vide

J'ai trouvé ça, ça me permet de supprimer les vides

mais comment dire que c'est la colonne AF qui est concernée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub suppr_lignes()
For lin = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Rows(lin).Find("*") Is Nothing Then Rows(lin).Delete
Next lin
End Sub

Merci de votre aide

[aziz1015]

Bonjour, je ne suis pas sûr que ton code fonctionnera mais pour sélectionner la colonne AF :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Range("AF:AF").Select

Aussi je te propose ce code au cas où le tien ne fonctionnerait pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub suppr_lignes()
 
Dim lin As Integer
Range("AF:AF").Select
For lin = Cells(1, 2).CurrentRegion.Rows.Count To 1 Step -1
    If Cells(lin, 1) = "0" Then Rows(lin).Delete
Next lin
 
End Sub

Cordialement

[ilissnmiden92]

Merci pour ta réponse Aziz,
en fait j'aimerai éviter de passer par une boucle, parce que quand ya 5000 lignes à virer c hyper long
est ce que c'est possible de créer une macro qui dit par exemple, filtrer sur # N/A et supprimer lignes?

[aziz1015]

Rebonjour,

Tu peux procéder comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Selection.AutoFilter
Selection.AutoFilter Field:= numéro_de_la_colonne, Criteria1:="=" 
Range("AF1",[AF65536].End(xlUp).Address).SpecialCells(xlCellTypeVisible).EntireRow.Delete

Devant le Field, il te faudra préciser le numéro de ta colonne