Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1580 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Creer un bouton macro plusieurs feuilles d'un classeur

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Creer un bouton macro plusieurs feuilles d'un classeur

n°2290946
darkgandol​f
Posté le 30-10-2016 à 18:53:57  profilanswer
 

Bonjour,
J'ai 8 feuilles dans un classeur, je souhaiterai créer un bouton sur chaque feuilles permettant un tri, pour cela j'ai créer une macro de tri. Cela fonctionne sur la feuille où je crée la macro mais lorsque je crée le bouton sur la feuille suivante, la macro ne fonctionne pas! J'aimerai savoir comment créer une macro que je puisse affecter à un bouton sur les 8 feuilles? Je vous joins le code la macro créée pour la 1ère feuille qui se nomme "3":
 
Sub TRISCOREGDG()
'
' TRISCOREGDG Macro
'
 
'
    Range("B5" ).Select
    ActiveCell.FormulaR1C1 = "5"
    Range("C5" ).Select
    ActiveCell.FormulaR1C1 = "6"
    Range("B6" ).Select
    ActiveCell.FormulaR1C1 = ""
    Range("B9" ).Select
    ActiveCell.FormulaR1C1 = "4"
    Range("C9" ).Select
    ActiveCell.FormulaR1C1 = "5"
    Range("A4:D79" ).Select
    ActiveWindow.SmallScroll Down:=-81
    ActiveWorkbook.Worksheets("03" ).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("03" ).Sort.SortFields.Add Key:=Range("C5:C79" ), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("03" ).Sort
        .SetRange Range("A4:D79" )
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("F4" ).Select
    ActiveWindow.SmallScroll Down:=3
End Sub
 
Je vous remercie pour l'attention que vous vous voudrez bien apporter à mon problème.
Petite précision, je suis novice dans ce domaine!

mood
Publicité
Posté le 30-10-2016 à 18:53:57  profilanswer
 

n°2291231
Pyrof53
Posté le 07-11-2016 à 14:52:52  profilanswer
 

Bonjour,
 
La macro que tu as écrit ne fonctionne que pour la première feuille qui se nomme "03".
Ceci est précisé dans les lignes :
ActiveWorkbook.Worksheets("03" ).Sort.SortFields.Clear
 
il faut remplacer

Worksheets("03" )

par

activesheet


 
Cordialement
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Creer un bouton macro plusieurs feuilles d'un classeur

 

Sujets relatifs
bouton next et prevu sur une galerie de photooffset de plusieurs elements
fusions de plusieurs lignes dans différentes colonnesAfficher plusieurs lignes sur une seule
verrouiller un fichier excel avec une macroMacro word : trouver format et ajouter balises html
Macro trop lente, optimisation du code[VBA] Cacher bouton excel utilisateurs AD
android (JAVA) redémarrer application avec boutonCreer une chaîne de N "espaces"
Plus de sujets relatifs à : Creer un bouton macro plusieurs feuilles d'un classeur


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR