Microsoft 365 UF affiche les captions enregistrées dans les fenêtres propriétés des CommandButton

Usine à gaz · 13 Mai 2021

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

J'ai récupéré sur le Forum un classeur qui contient un UserForm, encore merci à son auteur.

Je voudrais qu'à l'affichage, l'UF affiche les captions enregistrées dans les fenêtres propriétés des CommandButton.

Evidemment, je n'y arrive pas
Pourriez-vous m'aider ?
Je joins le fichier test,
Avec mes remerciements,
Amicalement,
lionel,

Usine à gaz · 13 Mai 2021

Euréka fé du matin, j'ai trouvé

VB:

Private Sub UserForm_Initialize()
  Dim Ind As Integer, Last As Integer
  ' Pour chaque libellé de bouton du tableau
  For Ind = 0 To UBound(TabBtn)
    ' Afficher son libellé
    Me("CommandButton" & 1 + Ind).Caption = TabBtn(Ind)
  Next Ind
  ' Masquer le reste des boutons
  For Last = 1 + Ind To 5
    Me("CommandButton" & Last).Visible = False
  Next Last
  Me.CommandButton1.Caption = "Tu veux ?"
  Me.CommandButton2.Caption = "Ou tu veux pas ?"
  Me.CommandButton3.Caption = "Si c'est OUI"
  Me.CommandButton4.Caption = "Tant mieux"
  Me.CommandButton5.Caption = "Sinon tant pis"
End Sub

Mais n'affiche pas si les Captions sont uniquement enregistrées dans les propriétés !
Je...

Usine à gaz · 13 Mai 2021

Euréka fé du matin, j'ai trouvé

VB:

Private Sub UserForm_Initialize()
  Dim Ind As Integer, Last As Integer
  ' Pour chaque libellé de bouton du tableau
  For Ind = 0 To UBound(TabBtn)
    ' Afficher son libellé
    Me("CommandButton" & 1 + Ind).Caption = TabBtn(Ind)
  Next Ind
  ' Masquer le reste des boutons
  For Last = 1 + Ind To 5
    Me("CommandButton" & Last).Visible = False
  Next Last
  Me.CommandButton1.Caption = "Tu veux ?"
  Me.CommandButton2.Caption = "Ou tu veux pas ?"
  Me.CommandButton3.Caption = "Si c'est OUI"
  Me.CommandButton4.Caption = "Tant mieux"
  Me.CommandButton5.Caption = "Sinon tant pis"
End Sub

Mais n'affiche pas si les Captions sont uniquement enregistrées dans les propriétés !
Je n'ai pas trouvé pourquoi ?

Voilà le fichier
Bonne journée
lionel,

ChTi160 · 13 Mai 2021

Bonjour
lionel
je n'ai pas tout compris de la démarche Lol
mais as tu regardé du coté de la Propriété .Tag ou ControlTipText
je regarde ton fichier pour tenter de mieux comprendre
Bonne journée
jean marie

Usine à gaz · 13 Mai 2021

Bonjour Jean-Marie,

Merci à toi
Mais le fichier fonctionne comme je le souhaite.
Toutefois, je n'ai pas trouvé pourquoi :
Mais n'affiche pas si les Captions sont uniquement enregistrées dans les propriétés !
lionel

ChTi160 · 13 Mai 2021

Re
je viens de regarder
j'ai modifié les Valeurs du TabBtn
et cela m'affiche bien les Libellés
pas sur d'avoir Compris Lol
Bonne journée
jean marie

Usine à gaz · 13 Mai 2021

Re-Bonjour Jean-Marie,

Merci pour le fichier ça fonctionne sans besoin de codes supplémentaires dans Private Sub UserForm_Initialize
Mais tu as triché et ça, je n'aurais pas trouvé !

VB:

Option Explicit
Public TabBtn() As String

Encore merci
lionel

ChTi160 · 13 Mai 2021

Re
??????
Triché ?
jean marie

Usine à gaz · 13 Mai 2021

LOL
Je n'aurais pas trouvé ce code :
Option Explicit
Public TabBtn() As String
Encore merci
lionel,

ChTi160 · 13 Mai 2021

Si tu regardes je n'ai rien ajouté
c'était déjà dans le Fichier Module 1 y'avait :

Option Explicit

Public TabBtn() As String

Sub test()
'msgbox(Prompt,Button,Title)
[h4].Select
MsgBoxPerso "", "Bouton1,LibBouton2,TestBouton3,TestBouton4,TestBouton5", "CLIC SUR LA REPONSE"
[a1].Select
End Sub
' Procédure générale de mise en place des éléments
Sub MsgBoxPerso(Prompt As String, Button As String, Title As String)
TabBtn = Split(Button, ",")
UsFMsg.Caption = Title
UsFMsg.Label1.Caption = Prompt
UsFMsg.Show (1)
End Sub

j'ai juste mis le Code dans le Userform Initialize et adapté Lol
suppression de test et MsgBoxPerso
pas de triche en somme Lol
Jean marie

Usine à gaz · 13 Mai 2021

LOL, je plaisantais mais je n'avais pas pu le code dans le fichier et il ne semblait pas être actif ... je ne comprends pas.
Le principal est que ça fonctionne

TooFatBoy · 13 Mai 2021

Bonjour,

Usine à gaz à dit:

Euréka fé du matin, j'ai trouvé

VB:

Private Sub UserForm_Initialize()
  Dim Ind As Integer, Last As Integer
  ' Pour chaque libellé de bouton du tableau
  For Ind = 0 To UBound(TabBtn)
    ' Afficher son libellé
    Me("CommandButton" & 1 + Ind).Caption = TabBtn(Ind)
  Next Ind
  ' Masquer le reste des boutons
  For Last = 1 + Ind To 5
    Me("CommandButton" & Last).Visible = False
  Next Last
  Me.CommandButton1.Caption = "Tu veux ?"
  Me.CommandButton2.Caption = "Ou tu veux pas ?"
  Me.CommandButton3.Caption = "Si c'est OUI"
  Me.CommandButton4.Caption = "Tant mieux"
  Me.CommandButton5.Caption = "Sinon tant pis"
End Sub

Mais n'affiche pas si les Captions sont uniquement enregistrées dans les propriétés !
Je n'ai pas trouvé pourquoi ?

C'est étrange ton affaire de texte qui ne s'affiche pas dans tes boutons !...

Il y a quoi dans ton tableau TabBtn() ?
Ce tableau est initialisé où ?

Et ça sert à quoi d'initialiser les textes des boutons vu que tu les changes après ?

ChTi160 · 13 Mai 2021

Re
Effectivement il semble qu'il fallait lancer "test" pour avoir "TabBtn"
Oups pas vu : Bonjour Marcel
Bonne fin de journée
jean marie

Usine à gaz · 13 Mai 2021

Bonjour Marcel32
C'est bon ça marche maintenant.
Merci pour t'être intéressé à ma demande.
lionel

TooFatBoy · 13 Mai 2021

Si le texte des boutons de ton UserForm est fixe, tu supprimes la macro qui modifie ces textes et le tour est joué : ça affichera automatiquement le texte que tu as saisi dans l'éditeur de UserForm.

Microsoft 365 UF affiche les captions enregistrées dans les fenêtres propriétés des CommandButton

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires