Discussion :

[arochab]

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

[parmi]

Bonjour,

Quand tu assignes une macro, tu vois dans la liste toutes les macros déclarées Public.
Si tu ne mets pas Private devant les macros, elles sont automatiquement Public (par défaut)

Selon, ce que tu choisis dans la boîte de choix "Macros dans:", tu vas voir les macros reliées à ce choix.
Ça peut être Ce Classeur, Tous les classeurs ouverts, PERSONAL.XLSB (si tu as déjà créé des macros dans ce classeur personnel),...

Donc, lorsque tu assignes une macro, choisis celle dont tu as besoin et ne t'occupe pas des autres.

[arochab]

Hello parmi,

Merci pour ton retour.

Je comprends ce que tu me dis, mais tout en focalisant sur le classeur sur lequel je travaille, je peux assigner trois macro (ShowMe, FilterMe et ClearMe), qui pourtant sont dans le même module.

Ce que je souhaite c'est seulement assigner ShowMe (la première dans le code visible sur mon premier message) au bouton, et ainsi ouvrir mon userform qui est géré par les macros FilterMe et ClearMe.

ShowMe ne servant qu'à ouvrir le userform.

Merci d'avance,

arochab

[parmi]

Comme je disais, assigne ShowMe à ton bouton.
Le Userform va s'afficher lorsque tu cliqueras ce bouton et tu pourras utiliser les autres boutons (j'imagine) sur ton userform qui actionneront les autres macros dans celui-ci.