VBA - autofilter - problème pour filter #N/A

Hello les eSperrts, à moi de poser une question, non mais ;-)

alors voilà, je voulais faire une macro pour que lorsque je suis dans une
cellule X de la colonne Y, je puisse d'un raccourci clavier (+ macro VBA)
filtrer directement la colonne Y sur [égal] = X.value

Le code suivant fonctionne très bien :

Sub Filtrer_sur()

Dim this_col, filter_val
this_col = ActiveCell.Column
filter_val = ActiveCell.Value
If ActiveSheet.AutoFilter.Filters(this_col).On Then
Selection.AutoFilter Field:=this_col
Else
Selection.AutoFilter Field:=this_col, Criteria1:=filter_val
End If

End Sub

...sauf bien sûr lorsque ma cellule affiche (résultat d'une rechercheV) #N/A.
Pourtant lorsque l'on filtre à la main, on peut bien sûr filtrer sur cette
(non-)valeur, de même qu'on peut enregistrer une macro le faisant... qui ne
marche pas après sur cette même valeur.

En fait, bien sûr, tout commence à foirer quand la variable tente de prendre
la valeur de la cellule :
debug.Print filter_val
Erreur 2042

Une idée pour éviter cela ?

Merci d'avance de la réponse qui sera comme d'hab. de l'ordre du
flash-éclair ;-)

Mac

bonjour
signification du n° de l'erreur
Sub signif_erreur()
MsgBox Error(2042)
End Sub
salutations

RGI

Hello les eSperrts, à moi de poser une question, non mais ;-)

alors voilà, je voulais faire une macro pour que lorsque je suis dans une
cellule X de la colonne Y, je puisse d'un raccourci clavier (+ macro VBA)
filtrer directement la colonne Y sur [égal] = X.value

Le code suivant fonctionne très bien :

Sub Filtrer_sur()

Dim this_col, filter_val
this_col = ActiveCell.Column
filter_val = ActiveCell.Value
If ActiveSheet.AutoFilter.Filters(this_col).On Then
Selection.AutoFilter Field:=this_col
Else
Selection.AutoFilter Field:=this_col, Criteria1:=filter_val
End If

End Sub

...sauf bien sûr lorsque ma cellule affiche (résultat d'une rechercheV) #N/A.
Pourtant lorsque l'on filtre à la main, on peut bien sûr filtrer sur cette
(non-)valeur, de même qu'on peut enregistrer une macro le faisant... qui ne
marche pas après sur cette même valeur.

En fait, bien sûr, tout commence à foirer quand la variable tente de prendre
la valeur de la cellule :
debug.Print filter_val
Erreur 2042

Une idée pour éviter cela ?

Merci d'avance de la réponse qui sera comme d'hab. de l'ordre du
flash-éclair ;-)

Mac

oui, certes, ça ma macro me le dit aussi... mais que faire pour que cela
n'arrive pas ?

thanks,

mac

bonjour
signification du n° de l'erreur
Sub signif_erreur()
MsgBox Error(2042)
End Sub
salutations

RGI

Hello les eSperrts, à moi de poser une question, non mais ;-)

alors voilà, je voulais faire une macro pour que lorsque je suis dans une
cellule X de la colonne Y, je puisse d'un raccourci clavier (+ macro VBA)
filtrer directement la colonne Y sur [égal] = X.value

Le code suivant fonctionne très bien :

Sub Filtrer_sur()

Dim this_col, filter_val
this_col = ActiveCell.Column
filter_val = ActiveCell.Value
If ActiveSheet.AutoFilter.Filters(this_col).On Then
Selection.AutoFilter Field:=this_col
Else
Selection.AutoFilter Field:=this_col, Criteria1:=filter_val
End If

End Sub

...sauf bien sûr lorsque ma cellule affiche (résultat d'une rechercheV) #N/A.
Pourtant lorsque l'on filtre à la main, on peut bien sûr filtrer sur cette
(non-)valeur, de même qu'on peut enregistrer une macro le faisant... qui ne
marche pas après sur cette même valeur.

En fait, bien sûr, tout commence à foirer quand la variable tente de prendre
la valeur de la cellule :
debug.Print filter_val
Erreur 2042

Une idée pour éviter cela ?

Merci d'avance de la réponse qui sera comme d'hab. de l'ordre du
flash-éclair ;-)

Mac

voir

on error resume next

espérant que ce soit ça qui soit recherché

RGI

oui, certes, ça ma macro me le dit aussi... mais que faire pour que cela
n'arrive pas ?

thanks,

mac

bonjour
signification du n° de l'erreur
Sub signif_erreur()
MsgBox Error(2042)
End Sub
salutations

RGI

Hello les eSperrts, à moi de poser une question, non mais ;-)

alors voilà, je voulais faire une macro pour que lorsque je suis dans une
cellule X de la colonne Y, je puisse d'un raccourci clavier (+ macro VBA)
filtrer directement la colonne Y sur [égal] = X.value

Le code suivant fonctionne très bien :

Sub Filtrer_sur()

Dim this_col, filter_val
this_col = ActiveCell.Column
filter_val = ActiveCell.Value
If ActiveSheet.AutoFilter.Filters(this_col).On Then
Selection.AutoFilter Field:=this_col
Else
Selection.AutoFilter Field:=this_col, Criteria1:=filter_val
End If

End Sub

...sauf bien sûr lorsque ma cellule affiche (résultat d'une rechercheV) #N/A.
Pourtant lorsque l'on filtre à la main, on peut bien sûr filtrer sur cette
(non-)valeur, de même qu'on peut enregistrer une macro le faisant... qui ne
marche pas après sur cette même valeur.

En fait, bien sûr, tout commence à foirer quand la variable tente de prendre
la valeur de la cellule :
debug.Print filter_val
Erreur 2042

Une idée pour éviter cela ?

Merci d'avance de la réponse qui sera comme d'hab. de l'ordre du
flash-éclair ;-)

Mac

merci RGI de répondre, mais hélas en fait non, car sinon je l'aurais mis
de
moi-même. Le fait est que justement je créais cette macro aujourd'hui (qui
me
servira ensuite souvent je pense) poru filtrer sur des tableaux ou ce que
je
cherche c'est les #N/A sur une colonne donnée car cela me permet de
sélectionner les entrées différentes suite à une mise à joru de données.

Alors je sais que je pourrais aussi changer la formule pour que ce ne soit
pas un N/A qui s'affiche et que du coup, la macro fonctionne, mais je suis
têtu et je veux savoir s'il est possible de filtrer sur #N/A par macro
VBA...

en fait ;-)

Mac-Estion

voir

on error resume next

espérant que ce soit ça qui soit recherché

RGI

oui, certes, ça ma macro me le dit aussi... mais que faire pour que
cela
n'arrive pas ?

thanks,

mac

bonjour
signification du n° de l'erreur
Sub signif_erreur()
MsgBox Error(2042)
End Sub
salutations

RGI

Hello les eSperrts, à moi de poser une question, non mais ;-)

alors voilà, je voulais faire une macro pour que lorsque je suis dans
une
cellule X de la colonne Y, je puisse d'un raccourci clavier (+ macro
VBA)
filtrer directement la colonne Y sur [égal] = X.value

Le code suivant fonctionne très bien :

Sub Filtrer_sur()

Dim this_col, filter_val
this_col = ActiveCell.Column
filter_val = ActiveCell.Value
If ActiveSheet.AutoFilter.Filters(this_col).On Then
Selection.AutoFilter Field:=this_col
Else
Selection.AutoFilter Field:=this_col, Criteria1:=filter_val
End If

End Sub

...sauf bien sûr lorsque ma cellule affiche (résultat d'une
rechercheV) #N/A.
Pourtant lorsque l'on filtre à la main, on peut bien sûr filtrer sur
cette
(non-)valeur, de même qu'on peut enregistrer une macro le faisant...
qui ne
marche pas après sur cette même valeur.

En fait, bien sûr, tout commence à foirer quand la variable tente de
prendre
la valeur de la cellule :
debug.Print filter_val
Erreur 2042

Une idée pour éviter cela ?

Merci d'avance de la réponse qui sera comme d'hab. de l'ordre du
flash-éclair ;-)

Mac

merci RGI de répondre, mais hélas en fait non, car sinon je l 'aurais mis de
moi-même. Le fait est que justement je créais cette macro auj ourd'hui (qui me
servira ensuite souvent je pense) poru filtrer sur des tableaux ou ce q ue je
cherche c'est les #N/A sur une colonne donnée car cela me permet d e
sélectionner les entrées différentes suite à une mi se à joru de données.

Alors je sais que je pourrais aussi changer la formule pour que ce ne s oit
pas un N/A qui s'affiche et que du coup, la macro fonctionne, mais je s uis
têtu et je veux savoir s'il est possible de filtrer sur #N/A par m acro VBA...

en fait ;-)

Mac-Estion

voir

on error resume next

espérant que ce soit ça qui soit recherché

RGI

oui, certes, ça ma macro me le dit aussi... mais que faire pour que cela
n'arrive pas ?

thanks,

mac

bonjour
signification du n° de l'erreur
Sub signif_erreur()
MsgBox Error(2042)
End Sub
salutations

RGI

Hello les eSperrts, à moi de poser une question, non mais ;-)

alors voilà, je voulais faire une macro pour que lorsque je su is dans une
cellule X de la colonne Y, je puisse d'un raccourci clavier (+ macr o VBA)
filtrer directement la colonne Y sur [égal] = X.value

Le code suivant fonctionne très bien :

Sub Filtrer_sur()

Dim this_col, filter_val
this_col = ActiveCell.Column
filter_val = ActiveCell.Value
If ActiveSheet.AutoFilter.Filters(this_col).On Then
Selection.AutoFilter Field:=this_col
Else
Selection.AutoFilter Field:=this_col, Criteria1:=filter _val
End If

End Sub

...sauf bien sûr lorsque ma cellule affiche (résultat d'u ne rechercheV) #N/A.
Pourtant lorsque l'on filtre à la main, on peut bien sûr filtrer sur cette
(non-)valeur, de même qu'on peut enregistrer une macro le fais ant... qui ne
marche pas après sur cette même valeur.

En fait, bien sûr, tout commence à foirer quand la variab le tente de prendre
la valeur de la cellule :
debug.Print filter_val
Erreur 2042

Une idée pour éviter cela ?

Merci d'avance de la réponse qui sera comme d'hab. de l'ordre du
flash-éclair ;-)

Mac

Bonsoir,

Voici 2 exemples de code qui devraient te permettre d'adapter ta
procédure :

Sub Toto()
Dim filter_val$
Select Case IsError(ActiveCell)
Case vbYes
filter_val = "N/A"
Case Else
filter_val = ActiveCell
End Select
MsgBox filter_val
End Sub

Sub TotoBis()
Dim filter_val$
filter_val = IIf(IsError(ActiveCell), "N/A", ActiveCell)
MsgBox filter_val
End Sub

merci RGI de répondre, mais hélas en fait non, car sinon je l'aurais
mis de moi-même. Le fait est que justement je créais cette macro
aujourd'hui (qui me servira ensuite souvent je pense) poru filtrer
sur des tableaux ou ce que je cherche c'est les #N/A sur une colonne
donnée car cela me permet de sélectionner les entrées différentes
suite à une mise à joru de données.

Alors je sais que je pourrais aussi changer la formule pour que ce ne
soit pas un N/A qui s'affiche et que du coup, la macro fonctionne,
mais je suis têtu et je veux savoir s'il est possible de filtrer sur
#N/A par macro VBA...

en fait ;-)

Mac-Estion

voir

on error resume next

espérant que ce soit ça qui soit recherché

RGI

oui, certes, ça ma macro me le dit aussi... mais que faire pour que
cela n'arrive pas ?

thanks,

mac

bonjour
signification du n° de l'erreur
Sub signif_erreur()
MsgBox Error(2042)
End Sub
salutations

RGI

Hello les eSperrts, à moi de poser une question, non mais ;-)

alors voilà, je voulais faire une macro pour que lorsque je suis
dans une cellule X de la colonne Y, je puisse d'un raccourci
clavier (+ macro VBA) filtrer directement la colonne Y sur [égal]
= X.value

Le code suivant fonctionne très bien :

Sub Filtrer_sur()

Dim this_col, filter_val
this_col = ActiveCell.Column
filter_val = ActiveCell.Value
If ActiveSheet.AutoFilter.Filters(this_col).On Then
Selection.AutoFilter Field:=this_col
Else
Selection.AutoFilter Field:=this_col, Criteria1:=filter_val
End If

End Sub

...sauf bien sûr lorsque ma cellule affiche (résultat d'une
rechercheV) #N/A.
Pourtant lorsque l'on filtre à la main, on peut bien sûr filtrer
sur cette (non-)valeur, de même qu'on peut enregistrer une macro
le faisant... qui ne marche pas après sur cette même valeur.

En fait, bien sûr, tout commence à foirer quand la variable tente
de prendre la valeur de la cellule :
debug.Print filter_val
Erreur 2042

Une idée pour éviter cela ?

Merci d'avance de la réponse qui sera comme d'hab. de l'ordre du
flash-éclair ;-)

Mac

ce n'est pas moi qui est posé la question

mais Merci tout de même

RGI

Bonsoir,

Voici 2 exemples de code qui devraient te permettre d'adapter ta
procédure :

Sub Toto()
Dim filter_val$
Select Case IsError(ActiveCell)
Case vbYes
filter_val = "N/A"
Case Else
filter_val = ActiveCell
End Select
MsgBox filter_val
End Sub

Sub TotoBis()
Dim filter_val$
filter_val = IIf(IsError(ActiveCell), "N/A", ActiveCell)
MsgBox filter_val
End Sub

merci RGI de répondre, mais hélas en fait non, car sinon je l'aurais
mis de moi-même. Le fait est que justement je créais cette macro
aujourd'hui (qui me servira ensuite souvent je pense) poru filtrer
sur des tableaux ou ce que je cherche c'est les #N/A sur une colonne
donnée car cela me permet de sélectionner les entrées différentes
suite à une mise à joru de données.

Alors je sais que je pourrais aussi changer la formule pour que ce ne
soit pas un N/A qui s'affiche et que du coup, la macro fonctionne,
mais je suis têtu et je veux savoir s'il est possible de filtrer sur
#N/A par macro VBA...

en fait ;-)

Mac-Estion

voir

on error resume next

espérant que ce soit ça qui soit recherché

RGI

oui, certes, ça ma macro me le dit aussi... mais que faire pou r que
cela n'arrive pas ?

thanks,

mac

bonjour
signification du n° de l'erreur
Sub signif_erreur()
MsgBox Error(2042)
End Sub
salutations

RGI

Hello les eSperrts, à moi de poser une question, non mais ;- )

alors voilà, je voulais faire une macro pour que lorsque je suis
dans une cellule X de la colonne Y, je puisse d'un raccourci
clavier (+ macro VBA) filtrer directement la colonne Y sur [é gal]
= X.value

Le code suivant fonctionne très bien :

Sub Filtrer_sur()

Dim this_col, filter_val
this_col = ActiveCell.Column
filter_val = ActiveCell.Value
If ActiveSheet.AutoFilter.Filters(this_col).On Then
Selection.AutoFilter Field:=this_col
Else
Selection.AutoFilter Field:=this_col, Criteria1:=filt er_val
End If

End Sub

...sauf bien sûr lorsque ma cellule affiche (résultat d 'une
rechercheV) #N/A.
Pourtant lorsque l'on filtre à la main, on peut bien sû r filtrer
sur cette (non-)valeur, de même qu'on peut enregistrer une m acro
le faisant... qui ne marche pas après sur cette même va leur.

En fait, bien sûr, tout commence à foirer quand la vari able tente
de prendre la valeur de la cellule :
debug.Print filter_val
Erreur 2042

Une idée pour éviter cela ?

Merci d'avance de la réponse qui sera comme d'hab. de l'ordr e du
flash-éclair ;-)

Mac

Voici 2 exemples de code qui devraient te permettre d'adapter ta procédure
:

Selection.AutoFilter Field:=1, Criteria1:="#N/A"

messieurs,

bon sang, mais c'est bien sûr! Je me sens stupide de n'y avoir pensé . Merci
à vous deux de cette prompte solution. Je teste plus tard mais là c 'est
diner time pour mes ptits n'enfants ;-)

++ mac


"Michel Gaboly" <michelgaboly@bluewin.ch> a écrit

Voici 2 exemples de code qui devraient te permettre d'adapter ta procé dure
:

"Paul V" <nobody@home.ir> a écrit

Selection.AutoFilter Field:=1, Criteria1:="#N/A"