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

Staple1600

XLDnaute Barbatruc

• 20 Août 2019

• #2

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 20 Août 2019

• #3

Message posté par erreur et supprimé.

Daniel

 

Dernière édition: 20 Août 2019

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 20 Août 2019

• #4

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

 

Pièces jointes

• Modifier Texte sur un bouton.xlsm

  15.2 KB · Affichages: 9

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 20 Août 2019

• #5

re,

il y a 9 A et non 8

J'y repense :

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

A1 A2 A3

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Août 2019

• #6

Bonjour Caninge, JM, danielco,

VB:

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

A+

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 20 Août 2019

• #7

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

 

Pièces jointes

• Modifier Texte sur un bouton_2.xlsm

  17 KB · Affichages: 8

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 20 Août 2019

• #8

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

VB:

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 20 Août 2019

• #9

Il est possible de renommer tous les boutons par macro.

Daniel

 

Vote positif 0 Vote négatif

Caninge

XLDnaute Accro

• 20 Août 2019

• #10

Je ne sais pas faire...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Août 2019

• #11

Re Caninge, Bonsoir le fil, job75, danielco

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

VB:

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Août 2019

• #12

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.

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 20 Août 2019

• #13

@Stapple1600 :

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

Daniel

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Août 2019

• #14

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 ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Août 2019

• #15

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 )

 

Vote positif 0 Vote négatif