Discussion :

[Tchebichef]

Bonjour à tous,

Je souhaite manipuler des objets dont le nom est saisi dans une feuille excel.
Exemple :
J'ai une feuille avec en A1 : "Formgen.CommandButton2.Enabled" et en A2 : "True".
Je souhaite pouvoir définir la propriété enabled à true en écrivant un truc du style :

Code :

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

Range("A1") = Range("A2")

mais évidemment ça ne fonctionne pas.

Avez vous une idée ?

Merci

[Theze]

Bonsoir,

Une piste :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub CommandButton1_Click()
 
    'en A1 = CommandButton2
    'en A2 = False
    Me.Controls(Range("A1").Value).Enabled = Range("A2").Value
 
End Sub

par contre, tu ne peux pas utiliser le nom de la propriété dans un Range comme par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub CommandButton1_Click()
 
    'en A1 = CommandButton1
    'en A2 = False
    'en A3 = Enabled <-- ceci ne fonctionne pas !
    Me.Controls(Range("A1").Value).Range("A3").Value = Range("A2").Value
 
End Sub

Hervé.

[Thautheme]

Bonjour Tchebichef, Hervé, bonjour le forum,

Mêmes remarques qu'Hervé... Mais comme dans l'exemple A1 contient aussi l'UserForm, par exemple UserForm1.CommandButton1, je me suis cassé les dents avec ce code qui ne fonctionne pas :

Code :

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

1
2
3
4
5
Dim U As UserForm
Dim CTRL As Control
 
Set U = Split(Range("A1"), ".")(0)
Set CTRL = U.Controls(Split(Range("A1"), ".")(1))

Si quelqu'un a une piste je suis preneur...
J'ai essayé de rentrer dans VBE mais j'ai le message suivant : Erreur d'exécution : '1004': L'accès par programme au projet Visual Basic n'est pas fiable. (Excel 2010 64 bits - Seven pro 64 bits)

[Invité]

Split retourn un array pas UF!
Il faut faire comme controls mais avec userforms

[Thautheme]

Bonjour le fil, bonjour le forum,

Merci Robert pour ta réponse. J'avais essayé mais le problème est que UserForms renvoie la collection des Userforms chargés (Load) et que dans le cas de Tchebichef il ne l'est peut-être pas...

[Invité]

Code :

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

Set uf = UserForms.Add("UserForm1")

[Thautheme]

Bonjour le fil, bonjour le forum,

Merci encore une fois Robert pour ta réponse. Je n'ai plus de bug mais ça ne fonctionne pas comme j'aurais pensé. Regarde, si tu as le temps, le petit fichier exemple :

[Invité]

je regarderai mais là on est en train de polluer le poste de Tchebichef !

[Thautheme]

Bonjour le fil, bonjour le forum,

Heu... Pas sûr, je pense que la réponse devrait aussi l'intéresser, puisqu'il est à l'origine de ma question.

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub Macro1()
Dim U As Object
Dim CTRL As Object
Set U = UserForms.Add(Split(Range("A1"), ".")(0))
Set CTRL = U.Controls(Split(Range("A1"), ".")(1))
CTRL.Caption = "Coucou"
Debug.Print CTRL.Name
Debug.Print UserForm1.CommandButton1.Caption
CTRL.Visible = Range("B1").Value
U.Show
End Sub

[Thautheme]

Bonsoir le fil, bonsoir le forum,

Woaw ! Merci beaucoup Robert... Grâce à toi ça marche !