bonjour,
j'utilise des macros que j'ai retranscrit dans une autre application, mais je ne peut pas utiliser le fitre (tri croissant décroissant) sans ôter la protection pour les macros:
-afficher_co
-afficher_tous
-raz_co
je commande toutes ces macros par des boutons
-je voudrais donc utiliser le filtre pour ces macros sans ôter la protection à chaque fois que je clique sur l'un des boutons
2ème question, comment changer le nom de la macro en Sub----
3ème qestion, comment regrouper deux modules en 1 seul
comme je ne connais rien dans le langage, votre aide seras la bienvenu
ci-dessous le code module 1
francis
module 2
j'utilise des macros que j'ai retranscrit dans une autre application, mais je ne peut pas utiliser le fitre (tri croissant décroissant) sans ôter la protection pour les macros:
-afficher_co
-afficher_tous
-raz_co
je commande toutes ces macros par des boutons
-je voudrais donc utiliser le filtre pour ces macros sans ôter la protection à chaque fois que je clique sur l'un des boutons
2ème question, comment changer le nom de la macro en Sub----
3ème qestion, comment regrouper deux modules en 1 seul
comme je ne connais rien dans le langage, votre aide seras la bienvenu
ci-dessous le code module 1
francis
Code:
Public MdP As String
Sub auto_open()
Range("a10").Activate
ActiveSheet.Unprotect
End Sub
Sub auto_closed()
ActiveSheet.Unprotect
End Sub
Sub raz_co()
'
' raz_CO Macro
' Macro enregistrée le 26/01/2009
'
'
Range("A11:A70").Select
Selection.ClearContents
Range("a11").Select
End Sub
Sub afficher_la_co()
'
' Macro enregistrée le 26/01/2009
'
'
ActiveSheet.Unprotect
MdP = "zaza"
Selection.AutoFilter Field:=1, Criteria1:="x", Operator:=xlAnd
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub afficher_tous()
'
' afficher_tous Macro
' Macro enregistrée le 26/01/2009
'
ActiveSheet.Unprotect
MdP = "zaza"
Selection.AutoFilter Field:=1, Criteria1:="x", Operator:=xlAnd
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
password = "zaza"
ActiveSheet.ShowAllData
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Code:
Sub remiseazerocommande()
'
' remiseazerocommande Macro
' Macro enregistrée le 26/01/2009
'
Range("A11:A70").Select
Selection.ClearContents
Range("a11").Select
'
Range("E11:E70").Select
Selection.ClearContents
Range("a11").Select
'
Range("G11:G70").Select
ActiveSheet.Unprotect
Selection.ClearContents
ActiveWindow.LargeScroll Down:=-9
ActiveWindow.ScrollRow = 11
Range("A10").Select
End Sub