Bonjour à tous !

Je viens à vous car je cherche désespérément à assigner plusieurs macro à un bouton lançant un userform. Ayant regardé ce forum ainsi qu'un peu partout sur le net, je n'ai pas trouvé de réponse précise à mon problème...

Lors de l'assignation du bouton avec ma première macro, à savoir celle qui fait apparaître la userform, je m'aperçois que sont proposées les deux autres : le filtre sur mes données et l'effacement de ces données.

Pourtant, ces macro sont insérées dans un seul et même module...

Voici son code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
 
Sub ShowMe()
 frmFilter.Show
 End Sub
 
Sub Filterme()
'
' Filterme Macro
'
 
'
    Sheets("Data").Range("A1:Q9358").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Filtres!Criteria"), CopyToRange:=Range( _
        "Filtres!Extract"), Unique:=False
End Sub
Sub Clearme()
'
' Clearme Macro
'
 
'
    ActiveWindow.SmallScroll Down:=-3
    Range("B8").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.ClearContents
    ActiveWindow.ScrollColumn = 1
    Range("B5:F5").Select
    Selection.ClearContents
End Sub
Commençant clairement à me tirer les cheveux, je remercie d'avance celles et ceux qui pourront prendre de leur temps pour m'aider...

arochab