Bouton

apdf1 · 6 Avril 2011

Bonjour

J'ai besoin d'aide pour un p'tit projet qui devrai pas trop vous poser problème ( du moins j'espère )

J'ai un bouton de commande(contrôle activeX) j'aimerai en cliquant sur le bouton que le texte dessus le change "Aujourd'hui / Demain"

Merci d'avance

Cordialement
Max

Efgé · 6 Avril 2011

Re : Bouton

Bonjour apdf1,
Une proposition faites sous 2003 mais qui devrait convenir. A mettre dans le code du bouton.

VB:

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Aujourd'hui" Then
    CommandButton1.Caption = "Demain"
    ' La macro Aujourd'hui
Else
    CommandButton1.Caption = "Aujourd'hui"
    ' La macro Demain
End If
End Sub

Cordialement

Pierrot93 · 6 Avril 2011

Re : Bouton

Bonjour,

essaye ceci, pour un bouton à bascule :

Code:

Private Sub ToggleButton1_Click()
With ToggleButton1
    .Caption = IIf(.Value = 0, "AUJOURD'HUI", "DEMAIN")
End With
End Sub

bonne journée
@+

Edition : bonjour fg

tototiti2008 · 6 Avril 2011

Re : Bouton

Bonjour apdf1,

un essai

Code:

Private Sub CommandButton1_Click()
    If CommandButton1.Caption = "Demain" Then
        CommandButton1.Caption = "Aujourd'hui"
    Else
        CommandButton1.Caption = "Demain"
    End If
End Sub

Edit : Bing, Bonjour Pierrot, Bonjour Efgé

apdf1 · 6 Avril 2011

Re : Bouton

Bonjour

Et merci beaucoup Tototiti,Pierrot et Efgé je vous souhaite une bonne journée

Max

Bouton

apdf1

XLDnaute Impliqué

Efgé

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

apdf1

XLDnaute Impliqué

Discussions similaires