Renommer CommandButton par macro ???

[JORDAN]

Bonjour tout le monde,

Est-il possible de renommer des CommandButton par macro ??
J'ai bien essayé ceci mais sans succès :

Sub ChangNom()
Dim I As Integer

UserForm1.Show (j'ai également essayé sans cette ligne)

For I = 13 To 154
    UserForm1.Controls("CommandButton" & I).Name = UserForm1.Controls("Bouton" & I + 21)
Next I

End Sub

Est-ce vraiment possible ??
Merci à vous et bonne soirée

 

[Hulk]

Re : Renommer CommandButton par macro ???

Hello Forum, Jordan,

Voici un code d'Hasco.

Adapte-le pour tes besoins s'il te va.

Sub RenommerBoutons()
    
    Dim usf As Object
    Dim ctl As Object
    Dim i As Byte
    Dim j As Byte
    
    Set usf = ThisWorkbook.VBProject.VBComponents("UserForm1")
    
    For Each ctl In usf.Designer.Controls
        If TypeName(ctl) = "CommandButton" Then
            i = i + 1
            ctl.Name = "Toto" & i
        End If
    Next
    
    For Each ctl In usf.Designer.Controls
        If TypeName(ctl) = "CommandButton" Then
            j = j + 1
            ctl.Caption = "Toto" & j
        End If
    Next

End Sub

Cdt, Hulk

 

[JORDAN]

Re : Renommer CommandButton par macro ???

Bonsoir Hulk,

Je n'ai pas dû bien rechercher sur le Forum !!!

Merci beaucoup, c'est tout à fait ce qu'il me faut

Bonne soirée