renommer commandbutton activex

Version imprimable

Bonjour,

J'aimerais renommer un contrôle activex "Commandbutton" via cette macro :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub RenommerBoutons()
 
    Dim usf As Object
     Dim ctl As Object
     Dim i As Byte
     Dim j As Byte
 
    Set usf = ThisWorkbook.VBProject.VBComponents("Feuil2")
 
    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

Mais cela bugue à cet endroit :

Code:

Set usf = ThisWorkbook.VBProject.VBComponents("Feuil2")

en me mettant : "L'accès par programme au projet Visual Basic n'est pas viable"... Quelqu'un pourrait-il m'aider ?

Merci d'avance,

lbroc84

26/12/2011, 11h19
jfontaine

Bonjour,

Je n'ai pas la version 2007 sous la main, mais sous 2003 je ferais cela.

Menu Outils>Macro>Sécurité, dans onglet "Editeurs approuvés" cocher la case "Faire confiance au projet Visual Basic"
26/12/2011, 11h34
lbroc84

Bonjour,

Je vous remercie pour votre aide.

Sous MO 2007, dans "Developpeur", il y a "Sécurité des macros" puis "Editeurs approuvés" mais je n'ai rien figurant dans cette option. Je ne peux rien cocher. Cette option est vide.

Comment puis-je faire apparaitre "Faire confiance au projet visual basic" ?

Merci,

lbroc84
26/12/2011, 13h02
Didier Gonard

1 pièce(s) jointe(s)

Bonjour,

comme ceci :

Pièce jointe 87084

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier
26/12/2011, 14h23
lbroc84

Bonjour,

Merci beaucoup... En effet, cela fonctionne à ce niveau-là lorsque j'ai tické ce que vous indiquiez...:ccool:

Mais maintenant ca bugue à cette phrase-là :

Code:

For Each ctl In usf.Designer.Controls

en indiquant "Variable Objet ou variable de bloc With non définie"...

Savez-vous pourquoi ?

Merci

lbroc84
27/12/2011, 10h19
jfontaine

et en déclarant Ctl comme control?

Code:

Dim ctl As Control
27/12/2011, 11h19
kiki29

Salut, t'inspirer de http://silkyroad.developpez.com/VBA/...asicEditor/#LV
http://www.developpez.net/forums/d11...orm-dynamique/
27/12/2011, 12h35
patricktoulon

heu...!!!
bonjour

si je comprend bien tu veu renomer un ou x bouton dans ton usf

tu dis
Code:

1 2 For Each ctl In usf.Designer.Controls
si la macro est dans le userform tu met
Code:

1 2 For Each ctl In me.Controls
si la macro est dans un autre module (standard)tu met
Code:

1 2 For Each ctl In nom de l'userform.Controls
au plaisir
27/12/2011, 17h04
lbroc84
Bonjour,

Merci pour votre aide...

A vrai dire, j'essaie tout simplement de renommer des boutons de contrôle Active X (commandbutton1) qui se trouvent sur ma feuille de calcul (et non dans une useform)...

J'avais trouvé cette macro et j'essayais donc de la retranscrire dans mon cas...

Mais je n'y arrive pas...

Je vais regarder d'un peu plus près les solutions que vous m'avez donné...

Si vous en avez d'autres, n'hésitez pas...

lbroc84

Rebonjour,

J'ai regardé un peu la doc...

J'ai essayé ceci pour simplifier:
Code:

1 2 3 4 5 6 7 8 9 10 Sub RenommerBoutons() Dim Obj As OLEObject Set Obj = Sheets("Feuil2").OLEObjects("CommandButton1") With Obj .Name = "Mise à jour des liens" End With End Sub
Mais il m'indique "L'indice n'appartient pas à la sélection" en buguant sur :

Code:

Set Obj = Sheets("Feuil2").OLEObjects("CommandButton1")

...??

Merci d'avance de votre aide

lbroc84
27/12/2011, 17h50
lbroc84

J'ai trouvé...:D

En fait, il n'est pas nécessaire d'utiliser une macro.. il suffit juste d'appuyer sur "Propriétés" lorsqu'on est sur le bouton et de changer le nom dans les propriétés...;)

Merci à tous pour votre aide...

lbroc84