Caption d'un bouton ne ce change pas dans USF

[Ilino]

Bonjour Forum
je vous solicite a m'aider , mon souci est :
j'ai cré un bouton dans un USF ( double fonction afficher /masquer les lignes) une fois je ferme USF et je le relance de nouveau le caption du bouton reste le meme "ToggleButton1" why???
eDIT: je souhaite avoir l'un des deux titres "afficher ou masquer"
GRAZIE

 

[sousou]

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

 

[job75]

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+

 

[Ilino]

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 ??

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+

 

[Ilino]

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+

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

 

[job75]

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 :

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 :

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+

 

[Ilino]

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+

 

[job75]

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+

 

[Si...]

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)

 

[Ilino]

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

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

 

[Ilino]

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+

Re
pblm résolut

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

A+