Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Commandbutton modification de son texte selon l'action

Commandbutton modification de son texte selon l'action

4 réponses
Avatar
Dominique
Bonjour je cherche désespérément, le code qui permet par exemple:
je clique sur le bouton nommé "plein écran" quand je passe en plein
ecran je voudrais que le texte du bouton passe en "écran normal"
merci ha oui! je débute.
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Domonique,

voilà :
http://cjoint.com/?ffdzvSIMzd

Public etat As Boolean

Private Sub CommandButton1_Click()
If etat = 0 Then etat = 1 Else etat = 0
If etat = 0 Then
Application.DisplayFullScreen = True
Me.CommandButton1.Caption = "Plein écran"
Else
Application.DisplayFullScreen = False
Me.CommandButton1.Caption = "Écran normal"
End If
End Sub

isabelle

Dominique a écrit :
Bonjour je cherche désespérément, le code qui permet par exemple:
je clique sur le bouton nommé "plein écran" quand je passe en plein
ecran je voudrais que le texte du bouton passe en "écran normal"
merci ha oui! je débute.


Avatar
isabelle
désole Dominique, mais doigts ont fourché sur le clavier :-(
isabelle

isabelle a écrit :
bonjour Domonique,

voilà :
http://cjoint.com/?ffdzvSIMzd

Public etat As Boolean

Private Sub CommandButton1_Click()
If etat = 0 Then etat = 1 Else etat = 0
If etat = 0 Then
Application.DisplayFullScreen = True
Me.CommandButton1.Caption = "Plein écran"
Else
Application.DisplayFullScreen = False
Me.CommandButton1.Caption = "Écran normal"
End If
End Sub

isabelle

Dominique a écrit :
Bonjour je cherche désespérément, le code qui permet par exemple:
je clique sur le bouton nommé "plein écran" quand je passe en plein
ecran je voudrais que le texte du bouton passe en "écran normal"
merci ha oui! je débute.




Avatar
Modeste
Bonsour® isabelle avec ferveur ;o))) vous nous disiez :

http://cjoint.com/?ffdzvSIMzd



plus simplement ;o)))

Private Sub CommandButton1_Click()
If Application.DisplayFullScreen = True Then
Application.DisplayFullScreen = False
Me.CommandButton1.Caption = "Plein écran"
Else
Application.DisplayFullScreen = True
Me.CommandButton1.Caption = "Écran normal"
End If
End Sub
Avatar
Dominique
Le 03/05/2009 14:12, Modeste a écrit :
Bonsour® isabelle avec ferveur ;o))) vous nous disiez :

http://cjoint.com/?ffdzvSIMzd



plus simplement ;o)))

Private Sub CommandButton1_Click()
If Application.DisplayFullScreen = True Then
Application.DisplayFullScreen = False
Me.CommandButton1.Caption = "Plein écran"
Else
Application.DisplayFullScreen = True
Me.CommandButton1.Caption = "Écran normal"
End If
End Sub


Merci beaucoup c'est tout ce qu il me fallait