Microsoft 365 Changer Label.Caption définitivement

[eric72]

Bonjour à tous,
Je tente déséspéremment de changer le caption d'un Label qui est dans un userform, cela fonctionne mais dès que je ferme le userform, à la réouverture aucun changement de nom pris en compte.
Mais je suis bien sur que l'un d'entre vous à la solution à ce problème (comme d'habitude)!!!
Merci beaucoup pour votre aide.
Eric

 

[ZAKAO]

Bonjour @eric72,

Sinon tu peux écrire le nom du label dans une cellule d'une feuille, puis à a réouverture, juste une ligne de code au niveau de l'initialisation qui reprend la valeur de cette cellule. Si tu veux pas voir la feuille après, masque là complètement.

C'est exactement le principe du code ci-dessous de @Phil69970

 

[Phil69970]

Bonjour @eric72

Edit Bonjour @ZAKAO

Je te propose ce fichier
Ouvre USF et donne le nom que tu veux à ton label et ferme USF
Ouvre de nouveau ton USF et regarde .....

Merci de ton retour

@Phil69970

 

[eric72]

Bonjour ZAKAO et Phil69970,
Merci pour vos réponses, j'ai un peu honte de ne pas y avoir pensé, oups!!!
Et voilà un problème résolu en 2min 30s.
Merci à tous les deux et bonne soirée
Eric

 

[eric72]

Re,
Désolé j'ai encore une question, est-il possible de changer définitivement le Caption mais apparemment non
Merci

 

[Phil69970]

Re

Tu crées une feuille (onglet) paramétrage par exemple et tu l'as masque et tu écris le nom du label dedans.
Comme cela l'utilisateur ne la voit pas .....

@Phil69970

 

[eric72]

Re
Oui j'ai bien compris cela mais c'était juste pour savoir s'il y avait moyen en vba de changer le label.caption, c'est tout
Merci

 

[Phil69970]

Re

Soit il est écrit en dur dans le code VBA ou la fenêtre propriété
Soit il est modifiable par l'utilisateur comme dans le fichier

A toi de choisir

@Phil69970

 

[Dranreb]

Bonsoir.
Pas dans le code de l'UserForm en tout cas, car ça implique une recompilation du projet.
Il y a cependant moyen de modifier des composants d'un projet VBA, mais il vaut mieux que ce soit fait depuis un autre projet. La bibliothèque VBIDE fournit des définitions d'objets pour manipuler ces pièces, référence "Microsoft Visual Basic for Applications Extensibility 5.3"

Ce serait du genre :

ActiveWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls("Label1").Caption = "Nouveau caption"

 

[eric72]

C'est ce que je pensais, merci beaucoup à tous.
Passez de bonnes fêtes de fin d'année.
Eric