Bouton double message

M

mécano41

XLDnaute Accro

• 28 Juin 2012

• #2

Re : Bouton double message

Bonjour,

Pas sûr de comprendre ce que tu veux faire.

Peut-être ainsi...

Cordialement

 

Pièces jointes

• Boutons1.xlsm

  20 KB · Affichages: 46

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 28 Juin 2012

• #3

Re : Bouton double message

Bonjour Mecano

Je te remercie pour le code j'ai ajouter ceci

Code:

Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = "Remettre le menu" Then
    ToggleButton1.Caption = "Oter le menu"
    
    Application.DisplayFullScreen = False
    
    ' ici opérations à exécuter
ElseIf ToggleButton1.Caption = "Oter le menu" Then
    ToggleButton1.Caption = "Remettre le menu"
    
    ' ici opérations à exécuter
    
     Application.DisplayFullScreen = True
    
    
End If
End Sub

Pourrais tu me dire si cela est correcte pour ôter ou rétablir le menu ?

Merci d'avance

Maval

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 28 Juin 2012

• #4

Re : Bouton double message

Oui, cela fonctionne...

J'avais marqué 'ici opérations à exécuter car je pensais qu'il y avait autre chose à faire en plus ; si c'est seulement cela, pas la peine d'avoir une boîte de dialogue".
Il suffit :
- de mettre le bouton dans la feuille
- d'initialiser le "Caption" du bouton dans Propriétés
- de mettre son code dans les codes de la feuille.

Cordialement


EDIT : j'ai utilisé un bouton ToggleButton mais cela fonctionne aussi avec un CommandButton ....

 

Dernière édition: 28 Juin 2012

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 28 Juin 2012

• #5

Re : Bouton double message

Re,

Merci beaucoup

@+
Maval

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 28 Juin 2012

• #6

Re : Bouton double message

Salut maval, mécano41🙂, le Forum

on peux réduire le code de Mécano comme ceci

Private Sub ToggleButton1_Click()
ToggleButton1.Caption = IIf(ToggleButton1.Caption = "Remettre le menu", "Oter le menu", "Remettre le menu")
Application.DisplayFullScreen = IIf(ToggleButton1.Caption = "Remettre le menu", True, False)
End Sub

Cliquez pour agrandir...

Bonne Journée

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 28 Juin 2012

• #7

Re : Bouton double message

Bonsoir Dull

Merci pour le code.

Bonne soirée

Maval

 

Vote positif 0 Vote négatif