CommandButton

[Hulk]

Hello les amis,

A mon humble avis, pas besoin de fichier joint.

Dans un USF j'ai 50 CommandButton et je dois les nommer Toto1, Toto2, Toto3 ect jusqu'a 35.

Le reste Momo1, Momo2 ect jusqu'à 50.

Y a t-il un moyen de les nommés comme tel via macro ou dois-je tous les nommer un par un ??

C'est pour économiser mes gros doigts verts 😀

Merci pour vos réponses.

Hulk.

 

[excalibur]

Re : CommandButton

rebonjour couche tard le forum
Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 35
With Controls("commandbutton" & i)
.Caption = "toto" & i
End With
Next i
End Sub

ou

Option Explicit
Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 50
With Controls("commandbutton" & i)
.Caption = "toto" & i
If i > 35 Then .Caption = "momo" & i - 35
End With: Next i
End Sub

 

[Guest]

Re : CommandButton

Hulk,

Pour renommer tes boutons:
A mettre dans un module du classeur.

Sub RenommerBoutons()
    Dim usf As Object
    Dim ctl As Object
    Dim i 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
End Sub

Il faudra que tu coches dans les options excel le paramètre 'Faire confiance au projet visual basic'.

Options/Sécurité/ bouton 'Sécurité des macros'/ Onglet 'source fiables'

Quitte à décocher ce paramètre après que tes boutons aient été renommés

A+

 

[Hulk]

Re : CommandButton

Re,

Salut l'couche tôt 😀

Comme d'hab t'es trop fort, mais ai oublié de préciser que je parlais du Name des CommandButton, pas de la Caption.

J'ai essayé

.Name
Controls.Name
CommandButton.Name

et rien 😡

Je continue de chercher de mon côté... 😱

@+ et merci.

Hulk.

 

[Hulk]

Re : CommandButton

Re, Hasco,

On s'est croisé, je teste de suite ton code. Je vois TypeName, serait-ce pour le Name des CommandButton, vais voir.

Merci Hasco et Excalibur.

@+, Hulk.

 

[Guest]

Re : CommandButton

Hulk,

TypeName ne fait que renvoyer le Nom du Type de contrôles( "CommandButton", "Label", "TextBox" etc)

A+

 

[Hulk]

Re : CommandButton

Re,

Bon ben avec ton code Hasco, c'est bon ça change le Name de l'userform voulu.
Question bête, mais donc si j'ai bien compris, si je remplace "CommandButton" par "TextBox" il va changer le Name de toutes les TextBox ?

Merci Hasco.

Excalibur, dans ton code y a moyen de remedier à ça, de changer le Name ?

C'est que les deux versions m'intéressent 😀

@+, Hulk.

 

[Guest]

Re : CommandButton

Hulk,

T'as bien compris.

Pour ta deuxième question:
Non ce n'est pas possible lorsque l'usf est chargé de modifier les noms des contrôles.

A+

 

[Hulk]

Re : CommandButton

Re,

Merci Hasco 😉

Excalibur, tu devrais savoir que la puissance de ton épée n'égale pas la puissance d'Hulk...
Où que tu sois je te retrouverais ! 😀

@+ et merci à vous.

Hulk.

 

[Hulk]

Re : CommandButton

Re,

Pour les intéressés...

Remplacer le Name et la Caption des CommandButton voulus :

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

Encore merci à vous Hasco et Excalibur.

Bye.

Hulk.