Autres Enlever texte sur un bouton (contrôle de formulaire)

Caninge

XLDnaute Accro
Bonjour à tous,

sur une feuille je veux mettre les 102 lettres du scrabble.
il fait certainement un code pour faire cette manœuvre.

Action 1 : je clique sur le bouton le A disparaît.
Action 2 : j'appuie une deuxième fois et le A revient

et la même chose pour toutes les autres lettres.

Bien Sympa à vous de me trouver le code

A
 

Pièces jointes

  • Modifier Texte sur un bouton.xlsx
    11 KB · Affichages: 13

frederio

XLDnaute Impliqué
Bonjour vous connais comment faire à un bouton de contrôle nom RETOUR et contrôle de formulaire d’un chiffre suite choix 1-34
Si tu veux être d’accord avec moi ??? vous m’aidez a expliqué comme Excel Merci
 

Pièces jointes

  • ALLEMAGNE.xlsx
    340 KB · Affichages: 7

patricktoulon

XLDnaute Barbatruc
pas besoins de l'espace mémoire tu en a avec alternativetext
VB:
Sub Bouton1_Clic()
    clicbouton
End Sub
Sub Bouton2_Clic()
    clicbouton
End Sub
Sub clicbouton()
      With ActiveSheet.Shapes(Application.Caller)
        If .DrawingObject.Caption <> "" Then
            old = .DrawingObject.Caption
            .DrawingObject.Caption = ""
            .AlternativeText = old
        Else
            .DrawingObject.Caption = .AlternativeText
        End If
    End With
End Sub
et voila ;)
 

patricktoulon

XLDnaute Barbatruc
Bonjour a tous
j'ai ajouté l'attribution du ".Onaction"
j'ai ajouter le double ciblage dans la sub (bouton/application.caller)
on peut donc par macro modifier un bouton sans cliquer dessus avec la même sub


VB:
' attribution du ".Onaction"
Sub onaction_attribute()
    For Each shap In ActiveSheet.DrawingObjects
        If shap.Name Like "Button*" Then shap.OnAction = "clicbouton"
    Next
End Sub

'sub globale clic
Sub clicbouton(Optional obj)
    If IsMissing(obj) Then obj = Application.Caller
    With ActiveSheet.Shapes(obj)
        If .DrawingObject.Caption <> "" Then
            old = .DrawingObject.Caption
            .DrawingObject.Caption = ""
            .AlternativeText = old
        Else
            .DrawingObject.Caption = .AlternativeText
        End If
    End With
End Sub

' indirecte
Sub CHANGEBOUTON()
clicbouton "Button 6"
End Sub
 

Pièces jointes

  • bouton lettre.xlsm
    17 KB · Affichages: 9

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo