Rapport de message :*
 

Re: Visualisation-Modification-Suppression-Impression à partir d'une Userform

Titre du sujet : Re: Visualisation-Modification-Suppression-Impression à partir d'une Userform
par myDearFriend! le 21/08/2009 02:29:39

Re Alragorn,

Pas sûr d'avoir compris exactement la demande...

Cela dit, au cas où, tu trouveras en pièce jointe un tentative de réponse en fonction de mon interprétation du problème. En pièce jointe, j'ai préféré réutiliser le classeur déjà adapté par mes soins dans ce fil : Mémorisation emplacement barre d'outil

J'ai procédé comme suit :

- Ajout d'un bouton supplémentaire nommé Etapes dans ta barre d'outils.

  Dans la procédure Barre_Outil_Projet() du Module2, ajout de la ligne :
   CreerBouton TBar, msoButtonIconAndCaption, "Etapes", 3497
  Ce bouton déclenche la procédure suivante ajoutée dans ce même Module2 :
Sub Etapes()
    With Sheets("Etapes")
        .Visible = xlSheetVisible
        .Activate
    End With
End Sub

- Ajout de la procédure évènementielle suivante dans le mode de code ThisWorkbook :
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name = "Etapes" Then
        Sh.Visible = xlSheetHidden
    End If
End Sub

En résumé :
- Un clic sur le nouveau bouton de la barre d'outils, l'onglet "Etapes" est rendu visible et devient l'onglet actif pour permettre les modifications souhaitées et/ou l'impression de la feuille.
- L'activation de tout autre onglet masque à nouveau cette feuille "Etapes".

Cordialement,

Nb : tu es à fond dis-donc !