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.

 

[Yann71]

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

YOUPI c'est tout à fait ça merci Jean-Marie toujours aussi efficace.

 

[Yann71]

Et merci au fil d'avoir pris le temps de m'aider.

 

[ChTi160]

Re
Tu peux aussi t'inspirer du Code de Patrick pour les Boutons Afficher et masquer
Bonne journée
jean marie

 

[patricktoulon]

re
si la barre est masquée au click sur imprimer puis detzail dans le userform détail elle est remise pour avoir le menu et a nouveau enlevée en sortie d'appercu avant impression

si la barre n'est pas masquée lors du click sur imprimer elle ne sera pas touchée

 

[Yann71]

Re la comme et le fil.
Je reviens vers vous car je viens de réfléchire au fait que je souhaite mettre un mdp lorsque je souhaite afficher la barre des menus et des formules. J'utilise le code de Jean-Marie auquel j'y ai ajouter deux lignes de code pour afficher masquer la barre de formule.

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

 

[ChTi160]

Re
Oui et Alors ?
Tu vois ça comment ?
Un MDP ?
Jean marie

 

[Yann71]

Re
Oui et Alors ?
Tu vous ça comment ?
Un MDP ?
Jean marie

On est d'accord sur le principe que c'est un bouton à double commande premier clic il masque 2ème clic il affiche. Alors c'est justement à la deuxième action que j'aimerai y ajouter un mdp.

 

[ChTi160]

Re
peut être avec un truc comme ça !

Sub Bouton7_Cliquer()
Dim Mdp
With Application
   If .DisplayFullScreen = True Then
        .DisplayFullScreen = False
        .DisplayFormulaBar = True
    Else
    MsgBox "ENTREZ MOT DE PASSE ", vbOKOnly + vbExclamation, "CODE D'ACCES"
   Mdp = InputBox("Entrer votre mot de passe ", "Saisie du mot de passe")
    If Mdp = 123456 Then
        .DisplayFullScreen = True
        .DisplayFormulaBar = False
    End If
   End If
End With
End Sub

jean marie

 

[Yann71]

Re
peut être avec un truc comme ça !

Sub Bouton7_Cliquer()
Dim Mdp
With Application
   If .DisplayFullScreen = True Then
        .DisplayFullScreen = False
        .DisplayFormulaBar = True
    Else
    MsgBox "ENTREZ MOT DE PASSE ", vbOKOnly + vbExclamation, "CODE D'ACCES"
   Mdp = InputBox("Entrer votre mot de passe ", "Saisie du mot de passe")
    If Mdp = 123456 Then
        .DisplayFullScreen = True
        .DisplayFormulaBar = False
    End If
   End If
End With
End Sub

jean marie

Re,
Peut-être que je me suis mal exprimé, mais j'aimerai que le mdp soit demandé pour l'affichage du menus et de la barre des formules

 

[ChTi160]

Re
je pense que tu devrais pouvoir Trouver en Changeant les True et False
ainsi si j'ai bien compris

Sub Bouton7_Cliquer()
Dim Mdp
With Application
   If .DisplayFullScreen = False Then
        .DisplayFullScreen = True
        .DisplayFormulaBar = False
    Else
    MsgBox "ENTREZ MOT DE PASSE ", vbOKOnly + vbExclamation, "CODE D'ACCES"
   Mdp = InputBox("Entrer votre mot de passe ", "Saisie du mot de passe")
    If Mdp = 123456 Then
        .DisplayFullScreen = False
        .DisplayFormulaBar = True
    End If
   End If
End With
End Sub

si c'est ça c'était pas compliqué Lol
jean marie

 

[Yann71]

Re
je pense que tu devrais pouvoir Trouver en Changeant les True et False
ainsi si j'ai bien compris

Sub Bouton7_Cliquer()
Dim Mdp
With Application
   If .DisplayFullScreen = False Then
        .DisplayFullScreen = True
        .DisplayFormulaBar = False
    Else
    MsgBox "ENTREZ MOT DE PASSE ", vbOKOnly + vbExclamation, "CODE D'ACCES"
   Mdp = InputBox("Entrer votre mot de passe ", "Saisie du mot de passe")
    If Mdp = 123456 Then
        .DisplayFullScreen = False
        .DisplayFormulaBar = True
    End If
   End If
End With
End Sub

si c'est ça c'était pas compliqué Lol
jean marie

Merci Jean-Marie tu es un chef. Une question ben oui encore dsl mais les idées viennent au compte goute. Donc la voici, si je veux mettre ce bouton dans un userform est-ce que je dois modifier le code ou je peux l'incérer dans mon userform sans modifications.

 

[ChTi160]

Re
si j'ai bien compris tu veux affecter cette Macro à un Bouton qui se trouve sur un Userform
Donc tu crées le Bouton sur Ton Userform et tu y mets seulement le Code de la Procédure soit :

Dim Mdp
With Application
   If .DisplayFullScreen = False Then
        .DisplayFullScreen = True
        .DisplayFormulaBar = False
    Else
    MsgBox "ENTREZ MOT DE PASSE ", vbOKOnly + vbExclamation, "CODE D'ACCES"
   Mdp = InputBox("Entrer votre mot de passe ", "Saisie du mot de passe")
    If Mdp = 123456 Then
        .DisplayFullScreen = False
        .DisplayFormulaBar = True
    End If
   End If
End With

en espérant avoir compris Lol
jean marie

 

[Yann71]

Re
si j'ai bien compris tu veux affecter cette Macro à un Bouton qui se trouve sur un Userform
Donc tu crées le Bouton sur Ton Userform et tu y mets seulement le Code de la Procédure soit :

Dim Mdp
With Application
   If .DisplayFullScreen = False Then
        .DisplayFullScreen = True
        .DisplayFormulaBar = False
    Else
    MsgBox "ENTREZ MOT DE PASSE ", vbOKOnly + vbExclamation, "CODE D'ACCES"
   Mdp = InputBox("Entrer votre mot de passe ", "Saisie du mot de passe")
    If Mdp = 123456 Then
        .DisplayFullScreen = False
        .DisplayFormulaBar = True
    End If
   End If
End With

en espérant avoir compris Lol
jean

 

[Yann71]

C'est tout à fait cela je te remercie encore, je vais pouvoir continuer mon projet.
Je te souhaite une agréable soirée.

 

[ChTi160]

Re
le fichier avec un essai sur Userform1
jean marie