[XL-2007] renommer commandbutton activex [Résolu]

[lbroc84]

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

[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"

[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

[Ormonth]

Bonjour,

comme ceci :

Ormonth-Data44.jpg

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

[lbroc84]

Bonjour,

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

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

[jfontaine]

et en déclarant Ctl comme control?

Code :

Dim ctl As Control

[kiki29]

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

[patricktoulon]

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

[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

[lbroc84]

J'ai trouvé...

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