Discussion :

[13solo]

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 :

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

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

[ARTURO83]

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

[patricktoulon]

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 :

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

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 :

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

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

[Menhir]

Sans filtre :

Code :

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

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

[patricktoulon]

re
Menhir j'y pense jamais c'est vrai

[Menhir]

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

Code :

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

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

[13solo]

Merci ca fonctionne