Discussion :

[Smurb]

Bonjour à toutes et à tous!
Je me permet de créer cette nouvelle discussion car je n'ai pas trouvé de réponse me permettant de faire ce que je veux: mon objectif et d'avoir un code qui puisse générer des contrôles ActiveX (des checkboxs) et modifier leurs propriétés (Caption, Font et BackColor). J'ai donc fait le code suivant, qui fonctionne lorsqu'on lance d'abord CreationCheckbox() puis EditionCheckbox() séparemment. Mais VBA me met " erreur d'exécution 424: objet requis" lorsque je lance les deux morceaux d'une foulée avec CreationEditionCheckbox().

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
25
 
Sub CreationCheckbox()
    TableauNoms = Array("NomGenerique1", "NomGenerique2", "NomGenerique3", "NomGenerique4", "NomGenerique5")
    Dim VariableOleObjet As OLEObject
    i = 0
    For Each NomVariable In TableauNoms
        Set VariableOleObjet = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
            DisplayAsIcon:=False, Left:=10, Top:=10 + 20 * i, Width:= _
            108.103448275862, Height:=21.2068965517241)
        VariableOleObjet.Name = TableauNoms(i)
        i = i + 1
    Next
End Sub
Sub EditionCheckbox()
    TableauBox = Array(NomGenerique1, NomGenerique2, NomGenerique3, NomGenerique4, NomGenerique5)
    i = 0
    For Each NomBox In TableauBox
        NomBox.Caption = "Intitulé générique" & i
        i = i + 1
    Next
End Sub
Sub CreationEditionCheckbox()
    Call CreationCheckbox
    Call EditionCheckbox
End Sub

Merci d'avance pour votre aide, au plaisir de vous lire!

[Jean-Philippe André]

Bonjour,
lla coloration syntaxique te permet de voir la différence entre les deux lignes de Array :

Code :

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

TableauNoms = Array("NomGenerique1", "NomGenerique2", "NomGenerique3", "NomGenerique4", "NomGenerique5")

vs

Code :

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

TableauBox = Array(NomGenerique1, NomGenerique2, NomGenerique3, NomGenerique4, NomGenerique5)

ensuite, pour qu'un control soit pris en charge tu dois passer par Controls

Code :

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

NomBox.Caption = "Intitulé générique" & i

devenant

Code :

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

Controls(NomBox).Caption = "Intitulé générique" & i

[Smurb]

Bonjour Jean-Philippe, merci beaucoup pour ta réponse!
Malheureusement, après quelques essais j'ai découvert que la fonction que tu me donnes Controls(...) ne fonctionne pour moi que dans un module de type UserForm. Saurais-tu comment la faire tourner dans un module de type Worksheet?

[Jean-Philippe André]

Dans ce cas il s'agira d'utiliser la collection OleObjects

Code :

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

OleObjects(NomBox).Caption = "Intitulé générique" & i

avec probablement le besoin de préciser la feuille dans laquelle l'activex apparait

Code :

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

Worksheets("ABC").OleObjects(NomBox).Caption = "Intitulé générique" & i

[Smurb]

Parfait, merci beaucoup! J'ai du rajouter .Object entre la classe OLEObjects et la propriété pour que ça fonctionne, mais mon problème est résolu!

Au final j'obtiens le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub CreationCheckbox()
    For i = 0 To 10
        Set VariableOleObjet = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
            DisplayAsIcon:=False, Left:=10, Top:=10 + 20 * i, Width:= _
            108.103448275862, Height:=21.2068965517241)
        VariableOleObjet.Name = "NomGenerique" & i
    Next
    For i = 0 To 10
        OLEObjects("NomGenerique" & i).Object.Caption = "IntituleGene" & i
    Next
End Sub

Je te souhaite une excellente journée, et au plaisir de te revoir ici!