Filtre #N/A dans macro

Bonjour,

Au travers de ma macro, je souhaiterais retirer par un filtre toutes les lignes en #N/A

L'enregistrement automatique d'une macro, me donne

Code:

---

1 2 3 4

ActiveSheet.Range("$A$1:$BO$470").AutoFilter Field:=6, Criteria1:=Array( _ "9334258", "9359625", "9362707", "9363055", "9365021", "9367440", "9367634", "9368160" _ , "9368901", "9368967", "9368968", "9371339"), _ Operator:=xlFilterValues

---

Ce qui correspond aux chiffres qu'il me reste en retirant les #N/A, mais lors d'une autre recherche je n'aurai pas les mêmes et donc bug.

Comment faire pour avoir tous les numéros trouvés hors les #N/A ?

Merci de votre aide

Bonjour,

Si vous avez des #NA dans certaines cellules, c'est que ces cellules contiennent une formule. Il serait donc plus judicieux de traiter cette anomalie dans la formule plutôt que de triturer les filtres.

Votre formule devrait être
=si(ESTNA(Votre formule);"";Votre formule)

Ou encore
=SIERREUR(Votre formule;"")

Cdlt

salut
field 6 c'est la colonne F tu filtre donc ta colonne avec l'argument "différent de " et tu créé ta range avec un Resize (variable p)

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim p As Range With ActiveSheet.Range("$F$1:$F470") .AutoFilter Field:=1, Criteria1:="<>#N/A" Set p = ActiveSheet.Range("A1:BO470").SpecialCells(xlVisible) .AutoFilter End With MsgBox p.Address End Sub

---

après perso je délimiterais le end xlup plutôt que 470 en dur

Code:

---

With ActiveSheet.Range("$F$1" ,activesheet.cells(rows.count,"F").end(xlup))

---

Sans filtre :

Code:

---

ActiveSheet.Range("$A$1:$BO$470").SpecialCells(xlCellTypeFormulas, xlErrors).Hidden = True

---

re
Menhir:plusser: j'y pense jamais c'est vrai

Un détail m'a échappé : je n'ai pas remarqué qu'il y avait plusieurs colonnes.
Une petite rectification :

Code:

---

ActiveSheet.Range("$F$1:$F$470").SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Hidden = True

---

Merci ca fonctionne