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
"J@@" a écrit dans le message de groupe de discussion : i90jtv$mka$ 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
"J@@" <kjg@hy.gg> a écrit dans le message de groupe de discussion : i90jtv$mka$1@speranza.aioe.org...
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
"J@@" a écrit dans le message de groupe de discussion : i90jtv$mka$ 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
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.
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 :
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
Reposé (plus clair?) sur answers, seul accessible depuis le travail :-[ Merci J@@
Reposé (plus clair?) sur answers, seul accessible depuis le travail :-[
Merci
J@@
"J@@" <kjg@hy.gg> a écrit dans le message de groupe de discussion : i92276$1ff$2@speranza.aioe.org...
Reposé (plus clair?) sur answers, seul accessible depuis le travail :-[
Merci
J@@
