Bonjour à tous,
Je cherche à assigner à un bouton que j'ai dans un onglet excel une macro permettant d'afficher un userform.
Le problème est que lorsque je fais clic droit, assigner à une macro, celle-ci n'apparaît pas...
Voici le code de ma macro (code non exhaustif car plutôt long) :
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
Sub EffacerLesValeursDeMonUserForm()
'clear the values form the userform
With Me
.CBoxsociete.Value = ""
.Txtfournisseur.Value = ""
.TextBox2.Value = ""
.TextBox1.Value = ""
.TextBox3.Value = ""
End With
End Sub
Je me tire les cheveux à comprendre les raisons qui font qu'elle n'apparaît pas...
Je remercie par avance celles et ceux qui prendront de leur temps pour m'aider là dessus...
arochab