Nommage de filtre

[rodge5895]

Bonjour à tous,
Comment nommer la correspondance d'un filtre selon le fichier joint
A plus et merci pour votre aide !
Rodge5895😉

 

[Staple1600]

Re : Nommage de filtre

RE, bonjour aux autres

Pourquoi ne pas être resté dans ton premier fil?
(le code vba étant le même)

 

[kjin]

Re : Nommage de filtre

Bonjour,

Private Sub Worksheet_Calculate()
With ActiveSheet
[H18] = ""
If .AutoFilterMode Then
    With .AutoFilter.Filters(2)
        If .On Then
            x = Mid(.Criteria1, 2, Len(.Criteria1))
            [H18] = Application.VLookup(x, [C2:D4], 2, 0)
        End If
    End With
End If
End With
End Sub

A+
kjin

 

[rodge5895]

Re : Nommage de filtre

Bonjour Staple et Kjin,
effectivement, je peux rester sur mon premier fil..
Pouvez vous intégrer le code de Kjin directement dans le fichier joint ?
Cdt
rodge

 

[Staple1600]

Re : Nommage de filtre

Re

Bah, il suffit de faire un copier/coller dans le code de la feuille (et pas dans un module)
(pour ce faire, clic-droit sur l'onglet -> Visualiser le code et ici copier/coller)
Et il ne doit y avoir qu'une seule procédure avec ce nom dans la feuille sinon message d'erreur.

PS: Donc finalement on oublie le premier fil, et c'est dans celui-ci qu'il faut répondre ?

 

[rodge5895]

Re : Nommage de filtre

oui je sais, mais ça plante quand même ! 😕😕
cf fichier joint..
Avez vous essayé directement dans le fichier excel ?

 

[Staple1600]

Re : Nommage de filtre

Re

Avez vous essayé directement dans le fichier excel ?

A ton avis...😉
Regarde la pièce jointe 907776

PS: Et toi tu as bien lu mon précédent message ?

...
Et il ne doit y avoir qu'une seule procédure avec ce nom dans la feuille sinon message d'erreur.
...

Si jamais tu es en Option Explicit, déclares les variables (ou mets en commentaire Option Explicit)
donc ajoute (en début de procédure)
Dim x

 

[rodge5895]

Re : Nommage de filtre

bonjour à tous
avec une seule procédure, ça marche (merci staple1600).. mais pas si la feuille est ensuite protégée par un mot de passe
comment modifier le code de Kjin ci avant pour intégrer cette particularité
rodge5895

 

[Staple1600]

Re : Nommage de filtre

Re

Voir du côté de UserInterface Only
(faire une recherche dans les archives du forum)
ou voir ici par exemple:
https://www.excel-downloads.com/threads/proteger-avec-userinterfaceonly.61191/

 

[rodge5895]

Re : Nommage de filtre

ok vu : un peu trop confus pour moi.
Je vais reformuler ma recherche sur le blog

merci
rodge