Salut Jess,
Salut le Forum,
Mais lorsque je ferme et relance ma userform la modification ne se prend pas en compte.
Parceque c'est un paramètre qui doit être définit et sauvegardé et si tu veux définitivement le modifier, alors il faut retourner dans la fenêtre de propriété!
Auriez vous une idée ?
Il existe bien un moyen de tricher :
1. A l'initialisation de ton UserForm, lancer une macro à partir d'un module qui définit la Caption de ton Bouton :
Sub Init()
UserForm1.CommandButton2.Caption = "a"
End Sub
2. Lors de la modification du nom du bouton, aller chercher la ligne de code correspondante dans ton Module1 et la modifier par ta nouvelle saisie :
Private Sub CommandButton1_Click()
Dim i As Long, txt As String
If MsgBox("Voulez vous modifier le texte ?", vbYesNo, "Modification ") = vbYes Then
txt = InputBox("Quel nom voulez vous modifier ?", "Choix nom")
CommandButton2.Caption = txt
Set VB = ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
For i = 2 To VB.CountOfLines
If VB.Lines(i, 1) Like "UserForm1.CommandButton2.Caption = *" Then VB.ReplaceLine i, "UserForm1.CommandButton2.Caption = """ & txt & """"
Next
End If
End Sub
Comme sa ton code est modifié, et la prochaine fois que tu ouvre ton UF, le button 1 affichera le nouveau texte
Je te laisse tester et revenir vers nous
A dispo