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

[Usine à gaz]

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]

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

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]

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]

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]

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]

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é !

Option Explicit
Public TabBtn() As String

Encore merci
lionel

 

[ChTi160]

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

 

[Usine à gaz]

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

 

[ChTi160]

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]

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]

Bonjour,

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

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]

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]

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

 

[TooFatBoy]

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.