Fonction perso et critere filtre

Le
J
Bonjour à tous

Avec la fonction perso QuelFiltre plus bas, j'obtiens le critère de
filtrage dans une cellule,
mais je souhaiterais que cette valeur apparaissent dans la dernière
cellule de la colonne filtrée,

exemple, en colonne F :
1 titre : filtre critère "z"
2
3 z
4 z
5
6 =SUBSTITUE(QuelFiltre($F$1);"=";)

donne
1 titre : filtre critère "z"
3 z
4 z
6 z <=
mais actuellement cette ligne "6" n'apparait pas
Qu'est je faux, comment corriger, svp?
Merci

=SUBSTITUE(QuelFiltre($F$1);"=";)

Function QuelFiltre(Cellule As Range)
Application.Volatile

Dim I As Integer
Dim Wks As Worksheet
Dim Rg As Range
Set Wks = Cellule.Worksheet

With Wks
Set Rg = .AutoFilter.Range
I = Cellule.Column - Rg.Column + 1

If .AutoFilterMode Then
With .AutoFilter.Filters(I)
On Error Resume Next

If .On Then QuelFiltre = .Criteria1
If Err.Number <> 0 Then QuelFiltre = .Criteria1

End With
End If
End With
End Function

Merci pour l'aide
Cordialement
J@@
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #22669861
Bonjour,

Je n'ai rien compris à la question.

--
MichD
--------------------------------------------


"J@@" Bonjour à tous

Avec la fonction perso QuelFiltre plus bas, j'obtiens le critère de
filtrage dans une cellule,
mais je souhaiterais que cette valeur apparaissent dans la dernière
cellule de la colonne filtrée,

exemple, en colonne F :
1 titre : filtre critère "z"
2
3 z
4 z
5
6 =SUBSTITUE(QuelFiltre($F$1);"=";)

donne
1 titre : filtre critère "z"
3 z
4 z
6 z < mais actuellement cette ligne "6" n'apparait pas...
Qu'est je faux, comment corriger, svp?
Merci

=SUBSTITUE(QuelFiltre($F$1);"=";)

Function QuelFiltre(Cellule As Range)
Application.Volatile

Dim I As Integer
Dim Wks As Worksheet
Dim Rg As Range
Set Wks = Cellule.Worksheet

With Wks
Set Rg = .AutoFilter.Range
I = Cellule.Column - Rg.Column + 1

If .AutoFilterMode Then
With .AutoFilter.Filters(I)
On Error Resume Next

If .On Then QuelFiltre = .Criteria1
If Err.Number <> 0 Then QuelFiltre = .Criteria1

End With
End If
End With
End Function

Merci pour l'aide
Cordialement
J@@
J
Le #22670011
Bonjour MichDenis

En F1 j'ai un filtre automatique
En F6 une fonction =SUBSTITUE(QuelFiltre($F$1);"=";) qui me récupère la
valeur du filtre automatique,
Quand je filtre, je souhaite aussi voir la ligne 6 (celle où est la
fonction QuelFiltre)

Function QuelFiltre(Cellule As Range)
Application.Volatile

Dim I As Integer
Dim Wks As Worksheet
Dim Rg As Range
Set Wks = Cellule.Worksheet

With Wks
Set Rg = .AutoFilter.Range
I = Cellule.Column - Rg.Column + 1

If .AutoFilterMode Then
With .AutoFilter.Filters(I)
On Error Resume Next

If .On Then QuelFiltre = .Criteria1
If Err.Number <> 0 Then QuelFiltre = .Criteria1

End With
End If
End With
End Function

Merci pour l'aide
Cordialement
J@@
Le 12/10/2010 04:05, michdenis a écrit :
Bonjour,

Je n'ai rien compris à la question.

J
Le #22670161
Reposé (plus clair?) sur answers, seul accessible depuis le travail :-[
Merci
J@@
michdenis
Le #22670441
Si tu sélectionnes la plage A1:A6 avant de faire ton filtre,
La cellule A6 devrait faire partie du résultat de ton filtre...Non ?

--
MichD
--------------------------------------------


"J@@" Reposé (plus clair?) sur answers, seul accessible depuis le travail :-[
Merci
J@@
michdenis
Le #22670561
Voir la réponse sur le forum answers

--
MichD
--------------------------------------------
Publicité
Poster une réponse
Anonyme