XL 2019 Fusionner de code VBA

Yann71

XLDnaute Occasionnel
Bonjour la com.

J'ai sur ma feuille 3 boutons.
1er qui ouvre un userform sur lequel il y a 2 boutons permettant d'imprimer la feuille
2ème qui masque la barre des menus
3ème qui affiche la barre des menus

Ce que je souhaite, c'est ajouter le code du bouton 1 avec celui du bouton 2.
Merci de votre future aide.
 

Pièces jointes

  • TEST_1.xlsm
    39.1 KB · Affichages: 31

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Yann,
Est ce les boutons 1 et 2 que vous voulez mélanger, ou les boutons 2 et 3, ce qui serait plus logique.
Pour 2 et 3, essayez cela :
VB:
Sub RubanOnOff()
    If Application.DisplayFullScreen = True Then
        Application.DisplayFullScreen = False
    Else
        Application.DisplayFullScreen = True
    End If
End Sub
 

Yann71

XLDnaute Occasionnel
Bonjour Yann,
Est ce les boutons 1 et 2 que vous voulez mélanger, ou les boutons 2 et 3, ce qui serait plus logique.
Pour 2 et 3, essayez cela :
VB:
Sub RubanOnOff()
    If Application.DisplayFullScreen = True Then
        Application.DisplayFullScreen = False
    Else
        Application.DisplayFullScreen = True
    End If
End Sub
Bonjour Sylvanu, comment vas-tu.
Le code que tu viens de me donner est top, mais ce que je souhaite, d'ailleurs je viens de me rendre compte que je me suis trompé dans me demande, c'est le bouton 1 et le bouton 3.
 

ChTi160

XLDnaute Barbatruc
Bonjour Yann
Bonjour le Fil (sylvanu) ,le Forum
Histoire de vous saluer !
car j'ai pas compris la demande mais j'ai modifié (j'ai juste raccourci la procédure de Sylvanu) Lol
Bouton 1 et 3 c'est ou ? Lol
VB:
Sub RubanOnOff()
    With Application
      .DisplayFullScreen = IIf(.DisplayFullScreen = False, True, False)
    End With
End Sub
j'attends !
Bonne journée
 

Yann71

XLDnaute Occasionnel
Bonjour Yann
Bonjour le Fil (sylvanu) ,le Forum
Histoire de vous saluer !
car j'ai pas compris la demande mais j'ai modifié (j'ai juste raccourci la procédure de Sylvanu) Lol
Bouton 1 et 3 c'est ou ? Lol
VB:
Sub RubanOnOff()
    With Application
      .DisplayFullScreen = IIf(.DisplayFullScreen = False, True, False)
    End With
End Sub
j'attends !
Bonne journée
Bonjour ChTi, pour répondre à ta question,
1er est le bouton afficher
2ème est le bouton masquer
3éme est le bouton imprimer
Donc j'aimerai que si je clic sur le bouton imprimer que cela affiche affiche aussi le ruban si il est masqué.
 

Yann71

XLDnaute Occasionnel
Re bonjour,
Il suffit de démasquer le ruban avant d'afficher le userform1.
VB:
Sub Bouton4_Cliquer()
    Application.DisplayFullScreen = False
    UserForm1.Show
End Sub
Le problème avec ton code c'est que cela n'affiche pas la barre des menus lorsque j'arrive sur la fenêtre d'impression. Regarde ce que cela donne lorsque tu clic sur le bouton IMPRIMER, j'aimerai que l'état de la fenêtre soit la même avec sa barre des menus.
 

patricktoulon

XLDnaute Barbatruc
re Bonjour a tous
et pour parfaire la réponse de @ChTi160 donc avec un seul bouton
VB:
Sub AfficherRuban()
    With Application
        .DisplayFullScreen = Not .DisplayFullScreen
        ActiveWindow.DisplayHeadings = Not .DisplayFullScreen
        ActiveSheet.Shapes(.Caller).Select
        Selection.Characters.Text = Array("Maquer", "Afficher")(Abs(.DisplayFullScreen))
        Selection.TopLeftCell.Select
    End With
End Sub
@ChTi160 si la réponse de ton IIF(boolean...) doit être un boolean utilise plutôt l’état ou le non état
= Not .DisplayFullScreen
c'est plus simple ;)
 

Yann71

XLDnaute Occasionnel
re Bonjour a tous
et pour parfaire la réponse de @ChTi160 donc avec un seul bouton
VB:
Sub AfficherRuban()
    With Application
        .DisplayFullScreen = Not .DisplayFullScreen
        ActiveWindow.DisplayHeadings = Not .DisplayFullScreen
        ActiveSheet.Shapes(.Caller).Select
        Selection.Characters.Text = Array("Maquer", "Afficher")(Abs(.DisplayFullScreen))
        Selection.TopLeftCell.Select
    End With
End Sub
@ChTi160 si la réponse de ton IIF(boolean...) doit être un boolean utilise plutôt l’état ou le non état
= Not .DisplayFullScreen
c'est plus simple ;)
Bonjour Patricktoulon, merci pour ton intervention. Ton code fonctionne qu'à moitié, car je n'ai toujours pas acccès à la barre des menus lorsque j'arrive sur la fenêtre d'impression
 

Yann71

XLDnaute Occasionnel
Re,
@yann,
Quand on clique sur Imprimer alors la barre de menu est celle d' Aperçu avant impression.
Vous ne pouvez pas avoir la barre standard lorsque vous êtes en Aperçu avant impression.
Si tu regardes lorsque la barre des menus est visible, que tu clic sur le bouton imprimer et que tu sélectionnes l'un ou l'autre des 2 boutons tu arrives sur aperçu avant impression et tu remarqueras qu'il y a une barre de menu permettant de modifer l'imprimante, etc. Mais si tu réalise la même opération alors que la barre de menus sur la feuille est masquée, l abarre des menus de l'aperçu avant impression ne s'affiche pas.
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
J'obtiens ça.
Je ne vois pas à quelle autre barre vous faites allusion. On a bien la barre qui s'affiche.

20210513_112719.gif
 

ChTi160

XLDnaute Barbatruc
Re
Mon approche !
d'après ce que j'ai compris Lol
sylvanu
Yann veut peut être dire que si tu masques la barre via Masquer avant d'afficher le Userform1
jean marie
 

Pièces jointes

  • TEST_1 Chti160.xlsm
    43.5 KB · Affichages: 7

Statistiques des forums

Discussions
314 450
Messages
2 109 724
Membres
110 552
dernier inscrit
jasson