WaxistSelecta
XLDnaute Junior
Bonjour,
je cherche à réaliser l'opération suivante en vba:
Effectuer un tri avec un critère X
Supprimer les lignes résultantes de ce filtre
Ci dessous mon code, qui ne fonctionne pas correctement :
Sub DeleteUselessRows()
Sheets("Votre Région a date").Select
Rows("6:6").Select
Selection.AutoFilter
ActiveSheet.Range("$A$6:$AT$60").AutoFilter Field:=6, Criteria1:= _
"National"
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.ClearContents
End Sub
Merci d'avance si qqun a une petite idée d'optimisation / de correction. Je cherche sans vraiment trouver, n'étant pas expert du sujet
Wax
je cherche à réaliser l'opération suivante en vba:
Effectuer un tri avec un critère X
Supprimer les lignes résultantes de ce filtre
Ci dessous mon code, qui ne fonctionne pas correctement :
Sub DeleteUselessRows()
Sheets("Votre Région a date").Select
Rows("6:6").Select
Selection.AutoFilter
ActiveSheet.Range("$A$6:$AT$60").AutoFilter Field:=6, Criteria1:= _
"National"
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.ClearContents
End Sub
Merci d'avance si qqun a une petite idée d'optimisation / de correction. Je cherche sans vraiment trouver, n'étant pas expert du sujet
Wax