XL 2019 Fusionner de code VBA

Yann71 · 13 Mai 2021

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 · 13 Mai 2021

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 · 13 Mai 2021

sylvanu à dit:
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 · 13 Mai 2021

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 · 13 Mai 2021

ChTi160 à dit:
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é.

ChTi160 · 13 Mai 2021

Ah Ok !
jean marie

sylvanu · 13 Mai 2021

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

Yann71 · 13 Mai 2021

sylvanu à dit:
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 · 13 Mai 2021

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

ChTi160 · 13 Mai 2021

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

Yann71 · 13 Mai 2021

patricktoulon à dit:
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

sylvanu · 13 Mai 2021

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 · 13 Mai 2021

sylvanu à dit:
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 · 13 Mai 2021

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

ChTi160 · 13 Mai 2021

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

XL 2019 Fusionner de code VBA

Yann71

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

Discussions similaires