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.

Yann71 · 13 Mai 2021

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

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

ChTi160 · 13 Mai 2021

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

patricktoulon · 13 Mai 2021

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

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.

VB:

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

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

Yann71 · 13 Mai 2021

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

Re
peut être avec un truc comme ça !

VB:

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

ChTi160 à dit:

Re
peut être avec un truc comme ça !

VB:

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

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

VB:

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

ChTi160 à dit:

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

VB:

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

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 :

VB:

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

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

VB:

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

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

ChTi160 · 13 Mai 2021

Re
le fichier avec un essai sur Userform1
jean marie

XL 2019 Fusionner de code VBA

Yann71

XLDnaute Occasionnel

Pièces jointes

Yann71

XLDnaute Occasionnel

Yann71

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Yann71

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

Yann71

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Pièces jointes

Discussions similaires