macro pour boutons S

[stephaneJ]

Bonjour,

Je souhaiterai réaliser différentes fonctions a partir de boutons " afficher/masquer" mais etant novice en VBA je bloque !
un des boutons nomé SOPHIE doit masquer les lignes de SOPHIE (voir colonne B) et la ligne TOTAL
le second bouton doit masquer les lignes de SONIA (voir colonne B ) et la ligne TOTAL
et je souhaiterais un dernier bouton permettant de copier la feuille vers un nouveau classeurdans la forme soit SOPHIE soit SONIA suivant la selection precedente tout en proposant de verouiller la feuille par un mot de passe

j ai bien essayer (voir le fichier joint), mais ca ne fonctionne pas bien et le bouton masquer somme peut etre eviter mais je na sait comment

Merci pour votre aide, ( ci joint le fichier a qui peut m aider)

StephaneJ

 

[Hippolite]

Re : macro pour boutons S

Bonjour,
Le besoin ne serait-il pas plutôt de filtrer pour n'afficher que Sophie ou que Sonia avec leurs sous-totaux et permettre l'export vers un autre classeur ?

 

[stephaneJ]

Re : macro pour boutons S

Bonjour,
Le besoin ne serait-il pas plutôt de filtrer pour n'afficher que Sophie ou que Sonia avec leurs sous-totaux et permettre l'export vers un autre classeur ?

deja, merci de vous penchez sur mon probleme

oui ca peut etre dans ce sens la, le but est de pouvoir donner les elements a chacune des personnes sans qu elles puissent voir ce que l autre fait et sans qu elles puissent modifier les données. mais le fichier joint n est qu une partie du tableau car dans une feuille il y a plusieurs sommes. voir nouveau fichier joint

 

[Hippolite]

Re : macro pour boutons S

Re,
Je me demandais si le résultat du filtre auto en B5 pouvait convenir pour l'affichage à obtenir

 

[stephaneJ]

Re : macro pour boutons S

Re

Non, je recherche vraiment a passer par des boutons car le classeur original comporte au moins 13 feuilles correspondant au 12 mois + 1 feuille de base tableau vierge. donc en passant par des boutons je pourrais les recopier sur chaque feuille et transmettre juste une feuille a chaque fois par le nouveau classeur. mais effectivement la base des boutons correspond a un filtre pour les noms

 

[Hippolite]

Re : macro pour boutons S

Bionjour,
Voilà un premier jus à affiner
Pour les boutons :

Private Sub CommandButton1_Click()
NomTri = "SOPHIE"
Extraction
End Sub

Private Sub CommandButton2_Click()
NomTri = "SONIA"
Extraction
End Sub

Dans un module :

Option Explicit
Public Rep As String, NomTri As String

Sub Extraction()
Rep = ThisWorkbook.Path ' nom du répertoire du classeur de cette macro
ExportFeuil
Triage
End Sub

Sub ExportFeuil()
    ActiveSheet.Copy
    ChDir Rep
    ActiveWorkbook.SaveAs Filename:= _
        Rep & "\" & NomTri & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Sub Triage()
Dim Dlig As Long
    Windows(NomTri & ".xls").Activate
    Selection.AutoFilter Field:=2, Criteria1:="<>*" & NomTri & "*" 
    With ActiveSheet 'détermination de la dernière ligne non vide
        Dlig = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    Rows("6:" & Dlig).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter Field:=2
    Range("B5").Select
    ActiveWorkbook.Save
End Sub

Ajouté les couleurs dans le code

 

[stephaneJ]

Re : macro pour boutons S

Merci Hippolite,

l'ensemble fonctionne vraiment bien,

MAIS serait il possible de faire disparaitre les boutons sur la feuille copie, que faut il rajouter

encore merci

stephanej

 

[Hippolite]

Re : macro pour boutons S

Re,
Avec suppression des boutons :

Sub ExportFeuil()
    ActiveSheet.Copy
    ActiveSheet.Shapes.Range(Array("CommandButton1", "CommandButton2")).Delete
    ChDir Rep
    ActiveWorkbook.SaveAs Filename:= _
        Rep & "\" & NomTri & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Pour être plus propre il faudrait également supprimer les macros de la feuille

 

[stephaneJ]

Re : macro pour boutons S

dans un premier temps mille merci de te pencher sur mon cas

si vous pensez qu il faut également supprimer les macros de la feuille,
je suis preneur du complement macro puisque les 2 personnes qui vont recuperer les fichiers "copie" ont juste besoin de lire le tableau

stephanej

 

[Hippolite]

Re : macro pour boutons S

RE,

si vous pensez qu il faut également supprimer les macros de la feuille,
je suis preneur du complement macro puisque les 2 personnes qui vont recuperer les fichiers "copie" ont juste besoin de lire le tableau

C'est du confort si on ne veut leur éviter la fenêtre d'autorisation d'activation des macros
Je n'ai jamais fait, mais tu as le lien suivant : FAQ VBA

Pour terminer le fignolage, tu peux ajouter le gel de l'affichage

Sub Extraction()
Application.ScreenUpdating = False
Rep = ThisWorkbook.Path ' nom du répertoire du classeur de cette macro
ExportFeuil
Triage
Application.ScreenUpdating = True
End Sub

 

[stephaneJ]

Re : macro pour boutons S

merci pour tout

ca fonctionne super

stephanej

 

[stephaneJ]

Re : macro pour boutons S

Hippolite

lorsque j ai une ligne que je veux toujours faire apparaitre dans la copie de feuille,
comment puis je faire??

et bien evidement cette ligne varie en fonction de la longueur du tableau

merci par avance

stephanej

 

[Hippolite]

Re : macro pour boutons S

Re,
Les extractions sont faites avec le filtre automatique en supprimant tout ce qui ne contient pas le nom en colonne B.
Il suffit donc que tous les noms soient présents pour qu'une ligne soit toujours conservée.
A+

 

[stephaneJ]

Re : macro pour boutons S

SUPER

Merci