Discussion :

[lbroc84]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

    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

[Didier Gonard]

Bonjour,

comme ceci :



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 :

Sélectionner tout - Visualiser dans une fenêtre à part

   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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim ctl As Control