Filtre qui exécute une macro

[Svenza]

Bonjour,
Est-il possible d'exécuter une macro suite à un choix dans le menu déroulant d'un filtre automatique?
Il ne semble pas avoir d'évènement lié au choix dans un AutoFilter.
Merci de me dire quoi.
Sven

 

[Zon]

Salut,

Pas d'évènement lié en effet. Tu peux toujours passer par des combobox ...

A+++

 

[Charly2]

Bonsoir Jb ou Svenza, bonsoir Zon, bonsoir le forum,

Svenza, il n'est peut-être pas très utile de créer un second fil de discussion sur le même sujet. Si tu n'as pas eu de réponse la première fois, tu ne multiplieras pas tes chances en relançant, bien au contraire...

Peut-être que ceux qui ont lu ton premier post n'avaient pas la réponse ou pas le temps de te répondre (il faut savoir attendre)...

Amicalement
Charly

 

[Marc_du_78]

Bonsoir Sven, Zon, Charly, le Forum,

Peemettez-moi de vous faire part de ceci en espérant que c'est ce que tu recherche Sven.

LISTE : ACTIVATION MACRO SUR SELECTION.

Sur Feuille :

Option Compare Text

Const T As String = '@ _Thierry sur Excel-Downloads.com, April 2005'

Private Sub Worksheet_Change(ByVal Target As Range)
Const Source As String = 'Liste de Validation Excel'
If Target.Address(0, 0) = 'M14' Then 'M14 est la cellule de la zone de liste
Select Case Target.Value
Case 'JANVIER': Janvier Source
Case 'FEVRIER': Fevrier Source
Case 'MARS': Mars Source
Case 'AVRIL': Avril Source
Case 'MAI': Mai Source
Case 'JUIN': Juin Source
Case 'JUILLET': Juillet Source
Case 'AOUT': Aout Source
Case 'SEPTEMBRE': Septembre Source
Case 'OCTOBRE': Octobre Source
Case 'NOVEMBRE': Novembre Source
Case 'DECEMBRE': Decembre Source
End Select
End If
End Sub


Sur Module :

Const T As String

Sub Janvier(Source As String)
Call Base 'Appelle dela macro à exécuter
End Sub

Sub Fevrier(Source As String)
Call Base
End Sub

Sub Mars(Source As String)
Call Base
End Sub

Sub Avril(Source As String)
Call Base
End Sub

Sub Mai(Source As String)
Call Base
End Sub

Sub Juin(Source As String)
Call Base
End Sub

Sub Juillet(Source As String)
Call Base
End Sub

Sub Aout(Source As String)
Call Base
End Sub

Sub Septembre(Source As String)
Call Base
End Sub

Sub Octobre(Source As String)
Call Base
End Sub

Sub Novembre(Source As String)
Call Base
End Sub

Sub Decembre(Source As String)
Call Base
End Sub


Sur archives de papynovice