Double message sur un bouton

[apdf1]

Bonjour,

Me revoilà ici pour vous soumettre un nouveau petit problème que je n'arrive pas à résoudre.
J'essaye depuis hier a faire bouton avec double message comme CommandButton1 situé sur ma feuille, j'avais tenté le code suivant mais ça marche pas.

Sub Bouton2_Click()
If Bouton2.Caption = "BONJOUR" Then
Bouton2.Caption = "AU REVOIR"
Else
Bouton2.Caption = "BONJOUR"
End If
End Sub

Quel serait le code qui me permet d'afficher un double message "Bonjour, Au revoir" sur une simple Zone Texte ou bouton

Ci joint le fichier exemple

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement
Max

 

[Papou-net]

Re : Double message sur un bouton

Bonjour apdf1,

Il est apparemment très difficile, voire impossible, de modifier le texte des objets extraits des contrôles Formulaires. Ceux-ci n'ont d'ailleurs été conservés dans Excel que pour des raisons de compatibilité avec d'anciennes versions.
En tout état de cause, je te conseille d'utiliser exclusivement les contrôles ActiveX, comme CommandButton1, dont la manipulation en VBA se fait sans problème.

Espérant avoir été de bon conseil.

Cordialement.

 

[apdf1]

Re : Double message sur un bouton

Bonjour Papou-net

Je te remercie des conseilles que je vais adopté je pensais que l'on pouvais !

Bonne journée

Cordialement

Max

 

[MJ13]

Re : Double message sur un bouton

Bonjour Max, Papou

Et si tu faisais appel à Henry pout t'aider 🙂:

ex:

Sub Macro1()
'
' Macro1 Macro
'
'
   
    ActiveSheet.Shapes("Bouton2").Select
    Selection.Characters.Text = "Nouveau texte"
    'With Selection.Characters(Start:=1, Length:=4).Font
    '    .Name = "Calibri"
    '    .FontStyle = "Normal"
     '   .Size = 11
    '    .Strikethrough = False
    '    .Superscript = False
    '    .Subscript = False
    '    .OutlineFont = False
    '    .Shadow = False
    '    .Underline = xlUnderlineStyleNone
    '    .ThemeColor = 2
    '    .TintAndShade = 0
     '   .ThemeFont = xlThemeFontNone
    'End With
    'Range("G13").Select
End Sub

 

[fhoest]

Re : Double message sur un bouton

Bonjour max,
voici ce que tu dois faire

Sub Bouton2_Click()
ActiveSheet.Shapes("Bouton2").Select
If Selection.Characters.Text = "BONJOUR" Then
Selection.Characters.Text = "AU REVOIR"
Else
Selection.Characters.Text = "BONJOUR"
End If
Range("b1").Select  'ou une autre cellule
End Sub

A+
edit : bonjour MJ13 pas vu ta proposition entre temps😀

 

[Papou-net]

Re : Double message sur un bouton

Bonjour MJ13, fhoest,

Merci pour vos précisions.
Je ne connaissais pas ces propriétés, mais il n'en reste pas moins vrai que j'ai banni depuis longtemps l'utilisation des ces contrôles, dont le gestion me paraît beaucoup plus fastidieuse, et pour tout dire sans intérêt, comparé aux contrôles ActiveX.

Bon dimanche.

Cordialement.

 

[laetitia90]

Re : Double message sur un bouton

bonjour tous 🙂🙂🙂🙂🙂🙂🙂🙂🙂
ou encore

ActiveSheet.Shapes("Bouton2").Select
Selection.Characters.Text = IIf(Selection.Characters.Text = "BONJOUR", "AU REVOIR", "BONJOUR"): [b1].Select

 

[laetitia90]

Re : Double message sur un bouton

re, pour l'ami papou🙂🙂
ces boutons peut être interessants
exemple
plusieurs feuilles avec le même bouton sur les feuilles qui appele la même macro
cela evite de coder tous les boutons

Sub Bouton2_Click()
es
End Sub

Sub es()
ActiveSheet.Shapes("Bouton2").Select
Selection.Characters.Text = IIf(Selection.Characters.Text = "BONJOUR", "AU REVOIR", "BONJOUR"): [b1].Select
End Sub

 

[apdf1]

Re : Double message sur un bouton

Bonjour MJ13, fhoest, Laetitia,

Je vous remercie à tous avec le code (8) de Laetita nous arrivons a le faire avec un rectangle pris insertion/form.

Je vous remercie encore et vous souhaite une bonne journée

@+

Max

 

[Papou-net]

Re : Double message sur un bouton

re, pour l'ami papou🙂🙂
ces boutons peut être interessants
exemple
plusieurs feuilles avec le même bouton sur les feuilles qui appele la même macro
cela evite de coder tous les boutons

Sub Bouton2_Click()
es
End Sub

Sub es()
ActiveSheet.Shapes("Bouton2").Select
Selection.Characters.Text = IIf(Selection.Characters.Text = "BONJOUR", "AU REVOIR", "BONJOUR"): [b1].Select
End Sub

Bonjour laetitia,

Il faut quand même coder chaque bouton sur chaque feuille pour lancer la procédure "es", n'est-ce pas ?
On peut faire (et c'est d'ailleurs ce que ja fais fréquemment) la même chose avec les Boutons ActiveX.

Bon dimanche.

Cordialement.

 

[laetitia90]

Re : Double message sur un bouton

re papou 🙂🙂

non🙂 si tu recopie le meme bouton sur les autres feuilles donc le meme name !!!
pas d'autres codes tu code une seule fois le bouton
par contre mon "papounet" a moi il est aller ranger le maillot de l'equipe de france 🙁🙁🙁

 

[Papou-net]

Re : Double message sur un bouton

re papou 🙂🙂

non🙂 si tu recopie le meme bouton sur les autres feuilles donc le meme name !!!
pas d'autres codes tu code une seule fois le bouton
par contre mon "papounet" a moi il est aller ranger le maillot de l'equipe de france 🙁🙁🙁

RE :

Je te remercie, je n'avais jamais essayé.

Ton papounet n'a pas à rougir d'une défaite tête haute, le combat fut épique.

Cordialement, et bon dimanche quand-même.

 

[apdf1]

Re : Double message sur un bouton

Re,

Laetitia pourrais tu me dire comment associer ceci:

Sub est()
ActiveSheet.Shapes("Rectangle").Select
Selection.Characters.Text = IIf(Selection.Characters.Text = "Afficher menu", "Cacher menu", "Afficher menu"): [b1].Select


Application.DisplayFullScreen = True

Else
Application.DisplayFullScreen = False

End If

Je te remercie d'avance et te souhaite un bon dimanche

@+
Max

 

[apdf1]

Re : Double message sur un bouton

Re,

J'aimerais associé a ce bouton le code suivant:

Application.DisplayFullScreen = True
Application.DisplayFullScreen = False

Mais je n'y arrive pas je compte sur votre aide.

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement
Max

 

[Papou-net]

Re : Double message sur un bouton

Bonjour apdf1,

Voici ton fichier corrigé.

Cordialement.