Bonjour à Tous et à Toutes
J'ai un soucis concernant la suppression des lignes sur un fichier excel, en fait j'ai un code VBA qui copie et colle des données dans un onglet et filtre sur une colonne, j'aimerai un fragment de code qui selectionnerait uniquement les lignes filtrées visibles et les supprimeraient , dans ce cas présent c'est la colonne F filtrées sur les #NA
Merci à vous
Sheets("Exports Euclide").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Test Macro3").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Exports Euclide").Select
Range("F2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Test Macro3").Select
Range("C5").Select
ActiveSheet.Paste
Sheets("Exports Euclide").Select
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Test Macro3").Select
Range("E5").Select
ActiveSheet.Paste
Sheets("Exports Euclide").Select
Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Test Macro3").Select
Range("G5").Select
ActiveSheet.Paste
Sheets("Exports Euclide").Select
Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Test Macro3").Select
Range("H5").Select
ActiveSheet.Paste
Sheets("Exports Euclide").Select
Range("E2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Test Macro3").Select
Range("I5").Select
ActiveSheet.Paste
Sheets("Exports Euclide").Select
Range("G2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Test Macro3").Select
Range("L5").Select
ActiveSheet.Paste
Sheets("Exports Euclide").Select
Range("H2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Test Macro3").Select
Range("M5").Select
ActiveSheet.Paste
Sheets("Exports Euclide").Select
Range("j2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Test Macro3").Select
Range("o5").Select
ActiveSheet.Paste
Sheets("Exports Euclide").Select
Range("k2:s2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Test Macro3").Select
Range("p5:x5").Select
ActiveSheet.Paste
Sheets("Test Macro3").Select
Rows("4").AutoFilter
ActiveSheet.Range("$A$4:$WWE$3964").AutoFilter Field:=6, Criteria1:="#N/A"