Nommage de filtre

Staple1600

XLDnaute Barbatruc

• 27 Décembre 2013

• #2

Re : Nommage de filtre

RE, bonjour aux autres

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 27 Décembre 2013

• #3

Re : Nommage de filtre

Bonjour,

Code:

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

 

Vote positif 0 Vote négatif

rodge5895

XLDnaute Occasionnel

• 27 Décembre 2013

• #4

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

 

Pièces jointes

• FILTRE AUTOM-2-.xls

  64.5 KB · Affichages: 21
• FILTRE AUTOM-2-.xls

  64.5 KB · Affichages: 23
• FILTRE AUTOM-2-.xls

  64.5 KB · Affichages: 23

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Décembre 2013

• #5

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 ?

 

Vote positif 0 Vote négatif

rodge5895

XLDnaute Occasionnel

• 27 Décembre 2013

• #6

Re : Nommage de filtre

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

 

Pièces jointes

• Doc1.pdf

  334.7 KB · Affichages: 38

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Décembre 2013

• #7

Re : Nommage de filtre

Re

Avez vous essayé directement dans le fichier excel ?

Cliquez pour agrandir...

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

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

Staple1600 à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• ouijaiteste.jpg

  21.6 KB · Affichages: 65

Dernière édition: 28 Décembre 2013

Vote positif 0 Vote négatif

rodge5895

XLDnaute Occasionnel

• 28 Décembre 2013

• #8

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Décembre 2013

• #9

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/

 

Vote positif 0 Vote négatif

rodge5895

XLDnaute Occasionnel

• 28 Décembre 2013

• #10

Re : Nommage de filtre

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

merci
rodge

 

Vote positif 0 Vote négatif