Caption d'un bouton ne ce change pas dans USF

sousou

XLDnaute Barbatruc

• 31 Juillet 2014

• #2

Re : Caption d'un bouton ne ce change pas dans USF

bonjour
because, à son ouverture le usf prend toujours le caption implicite de la définition
tu dois à son activation définir sa valeur par exemple comme ci-dessous.

Private Sub UserForm_activate()
If Columns(29).Hidden = True Then
Me.ToggleButton1.Caption = "Afficher les délais"
Else
Me.ToggleButton1.Caption = "Masquer les délais"
End If
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Juillet 2014

• #3

Re : Caption d'un bouton ne ce change pas dans USF

Bonjour Ilino, hello sousou,

Fichier joint où le Caption du bouton est mémorisé dans un nom défini.

A+

 

Pièces jointes

• ilino userform(1).xlsm

  22 KB · Affichages: 19

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 31 Juillet 2014

• #4

Re : Caption d'un bouton ne ce change pas dans USF

Bonjour SOUSOU
GRAZIE pour la réponse rapide , et si j'ai d'autre bouton je les rajoute dans le code separement ??

Code:

Private Sub UserForm_activate()
'Bouton DELAIS
If Columns(29).Hidden = True Then
Me.ToggleButton1.Caption = "Afficher les délais"
Else
Me.ToggleButton1.Caption = "Masquer les délais"
End If

'Bouton Prix
If Columns(5).Hidden = True Then
Me.ToggleButton2.Caption = "Afficher les prix"
Else
Me.ToggleButton2.Caption = "Masquer les prix"
End If

...etc

End Sub

A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 31 Juillet 2014

• #5

Re : Caption d'un bouton ne ce change pas dans USF

job75 à dit:

Bonjour Ilino, hello sousou,

Fichier joint où le Caption du bouton est mémorisé dans un nom défini.

A+

Cliquez pour agrandir...

Sorry maitre tu es tres tros rapide je n'ai pas vu your reponse grazie
A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Juillet 2014

• #6

Re : Caption d'un bouton ne ce change pas dans USF

Re,

Un truc à savoir : il est possible de modifier durablement le Caption du bouton.

1) Sur Excel 2010 cocher l'option Accès approuvé au modèle d'objet du projet VBA (onglet Fichier-Options-Centre de gestion de la confidentialité-Paramètres...-Paramètres des macros)

2) Dans le code de l'USF :

Code:

Private Sub ToggleButton1_Click()
'---------
bouton = ToggleButton1.Caption 'mémorise
End Sub

Private Sub UserForm_QueryClose(cancel As Integer, closemode As Integer)
Application.OnTime 1, "ModifierBouton"
End Sub

3) Dans Module1 :

Code:

Public bouton$ 'variable mémorisée

Sub ModifierBouton()
'--s'exécute après fermeture de l'USF---
ThisWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls("ToggleButton1").Caption = bouton
End Sub

Fichier (2).

A+

 

Pièces jointes

• ilino userform(2).xlsm

  24.5 KB · Affichages: 16
• ilino userform(2).xlsm

  24.5 KB · Affichages: 20
• ilino userform(2).xlsm

  24.5 KB · Affichages: 18

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 1 Août 2014

• #7

Re : Caption d'un bouton ne ce change pas dans USF

Bonjour Job
selon ton code et apres avoir rajouté d'autre bouton ; j'ai constaté que ce code memerose pour l'enssemble des bouton le dernier clique ?
A+

 

Pièces jointes

• ilino userform(2).xlsm

  25.7 KB · Affichages: 24
• ilino userform(2).xlsm

  25.7 KB · Affichages: 26
• ilino userform(2).xlsm

  25.7 KB · Affichages: 24

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Août 2014

• #8

Re : Caption d'un bouton ne ce change pas dans USF

Bonjour Ilino,

Au lieu d'une variable mémorisée "bouton", il en faut 3...

Curieux que ça ne te vienne pas à l'esprit

A+

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 1 Août 2014

• #9

Re : Caption d'un bouton ne ce change pas dans USF

salut

autre exemple en utilisant l'état des contrôles et des visibilité des colonnes (Vrai / Faux)

 

Pièces jointes

• ToggleButton (Usf).xlsm

  23 KB · Affichages: 24

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 1 Août 2014

• #10

Re : Caption d'un bouton ne ce change pas dans USF

Bonjour SI , JOB
@: grazie pour cette proposition
A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 1 Août 2014

• #11

Re : Caption d'un bouton ne ce change pas dans USF

job75 à dit:

Bonjour Ilino,

Au lieu d'une variable mémorisée "bouton", il en faut 3...

Curieux que ça ne te vienne pas à l'esprit

A+

Cliquez pour agrandir...

Re
pblm résolut

Code:

......
ThisWorkbook.Names.Add "Bouton[U][B][I]2[/I][/B][/U]", ToggleButton7.Caption 'mémorise
........

A+

 

Vote positif 0 Vote négatif