XL 2019 Fusionner de code VBA

[Yann71]

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.

 

[sylvanu]

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 :

Sub RubanOnOff()
    If Application.DisplayFullScreen = True Then
        Application.DisplayFullScreen = False
    Else
        Application.DisplayFullScreen = True
    End If
End Sub

 

[Yann71]

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 :

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]

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

Sub RubanOnOff()
    With Application
      .DisplayFullScreen = IIf(.DisplayFullScreen = False, True, False)
    End With
End Sub

j'attends !
Bonne journée

 

[Yann71]

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

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é.

 

[ChTi160]

Ah Ok !
jean marie

 

[sylvanu]

Re bonjour,
Il suffit de démasquer le ruban avant d'afficher le userform1.

Sub Bouton4_Cliquer()
    Application.DisplayFullScreen = False
    UserForm1.Show
End Sub

 

[Yann71]

Re bonjour,
Il suffit de démasquer le ruban avant d'afficher le userform1.

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]

re Bonjour a tous
et pour parfaire la réponse de @ChTi160 donc avec un seul bouton

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

 

[ChTi160]

Re
Bonjour Patrick
Effectivement ! c'est mieux ,mais je n'y est pas pensé! Lol
Merci!
Bonne journée

 

[Yann71]

re Bonjour a tous
et pour parfaire la réponse de @ChTi160 donc avec un seul bouton

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

 

[sylvanu]

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.

 

[Yann71]

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]

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

 

[ChTi160]

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