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

[Caninge]

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

 

[Staple1600]

Bonjour le fil,

Je me suis arrêté à la première phrase
Et puis je me suis souvenu
Alors si jamais cela peut servir, voir ce lien

 

[danielco]

Message posté par erreur et supprimé.

Daniel

 

[Caninge]

Bonjour Danielco, Staple 1600

je prend l'exemple de Daniel :

j'ai mis les 2 premières lettres du scrabble : 8 A et 2 B

et là ça se complique lol

Merci

 

[Caninge]

re,

il y a 9 A et non 8

J'y repense :

il faudrait peut-être donner un nom à chaque lettre :

A1 A2 A3

 

[job75]

Bonjour Caninge, JM, danielco,

Sub A_Clic()
With ActiveSheet.DrawingObjects(Application.Caller)
    .Text = IIf(.Text = "A", "", "A")
End With
End Sub

A+

 

[Caninge]

Bonsoir job75, Danielco, JM

j'ai prit la solution de JOB75 et affecter une macro à chaque bouton.

Le problème c'est qu'il y a 102 lettres dans un jeu de scrabble.

En prenant son temps...

Merci

 

[danielco]

Il faut renommer les boutons Bouton01A, Bouton02A etc. Ensuite, pour reprendre l'idée de Job75, attache cette macro à tous tes boutons :

Sub Bouton()
  Dim Lettre As String
  Lettre = Right(Application.Caller, 1)
  If Right(ActiveSheet.Shapes(Application.Caller).DrawingObject.Caption, 1) = Lettre Then
    ActiveSheet.Shapes(Application.Caller).DrawingObject.Caption = ""
  Else
    ActiveSheet.Shapes(Application.Caller).DrawingObject.Caption = Lettre
  End If
End Sub

Daniel

 

[danielco]

Il est possible de renommer tous les boutons par macro.

Daniel

 

[Caninge]

Je ne sais pas faire...

 

[Staple1600]

Re Caninge, Bonsoir le fil, job75, danielco

J'arrive un peu tard, mais comme c'est pondu, je livre

Sub Btn()
Static X$, Z As Shape
Set Z = ActiveSheet.Shapes(Application.Caller)
If Len(Z.DrawingObject.Caption) Then
X = Z.DrawingObject.Caption
Z.DrawingObject.Caption = Empty
Else
Z.DrawingObject.Caption = X
End If
End Sub

Ce qui est amusant c'est qu'il faut affecter cette macro (ou celles de mes petits camarades) 102 fois
Alors qu'un module de classe enleverait cette fastidieuse tâche.

 

[job75]

Je ne vois pas pourquoi Daniel et JM utilisent ActiveSheet.Shapes(Application.Caller).DrawingObject.

Alors qu'on peut utiliser comme je l'ai fait ActiveSheet.DrawingObjects.(Application.Caller).

Et (sauf erreur) on ne peut pas utiliser un Module de classe sur des contrôles de formulaire.

Il est par contre facile, par une boucle, de leur affecter une macro.

 

[danielco]

@Stapple1600 :

Ce que je ne comprends pas avec ton code, c'est comment générer la lettre si le caption est vide ?

Daniel

 

[Staple1600]

Re

Moi je l'utilise juste parce qu'au départ, je suis parti de la macro Sub A_Clic() de la PJ.
Sinon pour le module de classe, il suffira de remplacer les 102 boutons formulaires par 102 MSForms.CommandButton, non ?

 

[Staple1600]

Re

@danielco
Je suis parti du principe que les boutons n'avaient pas de caption vide.
(C'est vrai qu'au Scrab..e, il y a deux lettres joker )