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

job75

XLDnaute Barbatruc

• 20 Août 2019

• #16

Mon post #12 est invisible ? Bah je m'en tape !

 

Vote positif 0 Vote négatif

frederio

XLDnaute Impliqué

• 20 Août 2019

• #17

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

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Août 2019

• #18

Faudrait arrêter vos conneries frederio.

Depuis hier vous avez copié-collé ce même message (incompréhensible) sur 8 fils différents 🙄

Bis repetita : mon post #12 est invisible ? Bah je m'en tape !

 

Vote positif 0 Vote négatif

frederio

XLDnaute Impliqué

• 20 Août 2019

• #19

je veux apporter comment faire a vba sur excel

 

Vote positif 0 Vote négatif

frederio

XLDnaute Impliqué

• 20 Août 2019

• #20

il faire a expliqué ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Août 2019

• #21

Re,

job75
Non, je l'ai lu et j'ai répondu dans le message#14, non ?
(pour les questions qui me concernaient)

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Barbatruc

• 20 Août 2019

• #22

@job75 :
Non, tu as parfaitement raison. Ca a un peu tiré dans tous les coins depuis un moment. Et j'avais perdu ton message de vue.

Bonne soirée.

Daniel

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Août 2019

• #23

frederio à dit:

je veux apporter comment faire a vba sur excel

Cliquez pour agrandir...

frederio à dit:

il faire a expliqué ?

Cliquez pour agrandir...

Ce n'est pas du français ça, de quelle nationalité êtes-vous frederio ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Août 2019

• #24

re
staple je ne suis pas sur mais je crois que tu va avoir un problème avec ta variable static ,au clic d'un bouton suivant il va mettre la caption du précédent bouton cliqué

 

Dernière édition: 21 Août 2019

Vote positif 0 Vote négatif

frederio

XLDnaute Impliqué

• 20 Août 2019

• #25

désole je suis sourd faire écrire moyen en français

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Août 2019

• #26

patricktoulon à dit:

il mettre mettre la caption du précédent

Cliquez pour agrandir...

Bon, c'est plein d'étrangers ici, je me casse, à dans 3 jours, je pars en voyage.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Août 2019

• #27

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 😉

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 20 Août 2019

• #28

c'est la psychique parabolique de la queue de la vache par rapport a l'hypoténuse du pot échappement droite de l'oreille gauche
😵🙄

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 21 Août 2019

• #29

Bonsour®

Staple1600 à dit:

Re Caninge, Bonsoir le fil, job75, danielco

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

Cliquez pour agrandir...

un pe tard de "XIV juillet"
je livre aussi...
😉

 

Pièces jointes

• Modifier Texte sur un bouton_2 (1).xlsm

  31.8 KB · Affichages: 7

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 21 Août 2019

• #30

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

Vote positif 0 Vote négatif