Discussion :

[Wini29]

Bonjour,

J'aimerai créer une fonction qui génère plusieurs boutons ActiveX et qui leur associe, à chacun, un nom ainsi qu'une fonction de CallBack.

Pour la 1ere partie, j'utilise 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
13
Sub Creat_Boutons()
Dim NouveauBouton As OLEObject
Dim Ind As Integer
 
For Ind = 1 To 7
'   Ajoute un bouton de Commande
    Set NouveauBouton = Sheets("Feuil1").OLEObjects.Add("Forms.CommandButton.1")
    With NouveauBouton
        .Object.Caption = "Bouton" & Ind
        .Name = "Bouton" & Ind
    End With
Next Ind
End Sub

J'aimerai ensuite pouvoir associer à chacun de ces boutons, une fonction du type Bouton&ind_click() associée à mes boutons.

Je ne pense pas que passer par les commandes:

Code :

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

1
2
3
4
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
      NextLine = .CountOfLines + 1
      .InsertLines NextLine, Code
    End With

ou mon code serait programmé soit intéressant puisque j'aimerai que tous mes boutons génèrent là même réponse à l'indice près:

Code :

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

1
2
' (Exemple simple:)
 MsgBox "Le bouton choisi est le" & ind

Merci de vos réponses.
EB

[Daniel.C]

Bonjour,

Plus facile d'utiliser les boutons de formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub essai()
MsgBox "Le bouton choisi est le " & Replace(Application.Caller, "Bouton", "")
End Sub
Sub essai2()
    PosG = 100
    PosH = 100
    Hauteur = 50
    Longueur = 50
   Set btn = ActiveSheet.Buttons.Add(PosG, PosH, Longueur, Hauteur)
      btn.OnAction = "essai"
      btn.Caption = "Bouton"
      btn.Name = "Bouton10"
End Sub

[Wini29]

Bonjour,

Merci de ta réponse.
(A vrai dire, je m'y attendait un peu car c'était une solution vers laquelle je m'étais déjà orienté.)

j'ai pourtant un problème avec ce type d'Objets (Buttons, ListBoxes....) car il n'est (appartement) pas possible d'utiliser leurs propriétés.

En fait, je veut que chaqun de mes boutons me crée 3 listboxes distinctes dont je pourrais modifier les propriétés (Multiselect, list, ...)

j'aurais ainsi Bouton1-> listBox 11/12/13
Bouton2--> ListBox 21/22/23
(Bien sur, l'idée est aussi d'attribuer à la fois des propriétés type ActiveX et une réponse type .OnAction aux listboxes)

Merci encore,

EB

[Daniel.C]

Alors, ta première idée était le bonne...

[Wini29]

Alors, ta première idée était le bonne...

Dans ce cas, pourrais tu m'indiquer comment faire pour gérer les propriétés des Objets de ce type. supposons que j'ai ma listBox grâce au code:

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
Dim NewList As ListBox
Dim indCell As Integer
 
Set NewList = Sheets("Feuil1").ListBoxes.Add(1, 1, 1, 1)
 
With NewList
 'MEF Liste
 
    .Top = 10
    .Width = 100
    .Height = 100
    .Left = 10 + 110 * NumBouton
.Name = "List-1" & NumBouton
.OnAction = "CBList1 (NumBouton)"
End With

J'aimerai donc mettre Mettre a jour ma liste Par un Range contenu dans une autre feuille (appelée Data& Numbouton^^)
pour cela, je n'arrive pas à utiliser de propriété "équivalente" au .List/.ListFillRange de l'activeX (j'utilise donc le code suivant: )

Code :

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

1
2
3
4
5
6
indCell = 1
While IsEmpty(Sheets("Data" & NumBouton).Cells(1, indCell)) = False
.AddItem (Sheets("Data" & NumBouton).Cells(1, indCell).Value)
indCell = indCell + 1
 
Wend

Ce qui donne un résultat assez satisfaisant.

Je n'arrive pourtant pas à donner des propriétés à ma liste (type MultiSelect ou ListStyle.


Merci de ta réponse:

EB

C'est en forgeant qu'on devient forgeron, c'est en mangeant de la soupe qu'on grandit et c'est en jouant au bûcheron qu'un jour Léonard devint scie (Renaud Séchan)

[Daniel.C]

"MultiSelect" a une valeur de 2 ou 3 suivant que c'est un multi-sélection simple ou étendue, par contre je ne vois pas de "ListStyle" dans le contrôle de formulaire. Il est clair que ce dernier est beaucoup moins riche en propriétés.

[NVCfrm]

Bonsoir.

pour accéder à certaines propriétés il faut passer par l'objet.

Code :

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

NewList.Object.ListStyle = fmListStyleOption

[Daniel.C]

Bonsoir NVCfrm,

C'est valable pour un contrôle ActiveX, pas un contrôle de formulaire.

[NVCfrm]

Bonsoir Daniel.
Je n'ai pas remarqué qu'il s'agit d'un contrôle de formulaire.
Enfin je ne croyais pas que l'on puisse faire allusion à des propriétés non accessibles

..."MultiSelect" a une valeur de 2 ou 3 suivant que c'est un multi-sélection simple ou étendue,...

Je n'avais lu que le dernier post.

ça reste quand même une alternative s'il tient vraiment à de telles propriétés, il peut créer des contrôles activeX

[Daniel.C]

Si tu reprends le fil depuis le début, le problème était qu'en utilisant les contrôles ActiveX, il fallait générer une macro différente par contrôle alors qu'on pouvait bénéficier de :

Code :

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

Application.Caller

pour tous les contrôles dans le cas de contrôles de formulaire. D'autre part l'inconvénient de générer le code liés aux contrôles ActiveX (par VBA) nécessite que l'option "Accès approuvé au modèle d'objet du projet VBA" (peut-être variable suivant les versions) soit cochée. Ce qui peut poser problème si l'appli doit être distribuée. Sinon, oui, personnellement je me sers surtout des ActiveX.

[Daniel.C]

Enfin je ne croyais pas que l'on puisse faire allusion à des propriétés non accessibles

L'option "Mulitselect" existe dans les listboxes (formulaires).

[NVCfrm]

L'option "Mulitselect" existe dans les listboxes (formulaires).

Tu as de toutes façons raison sur les deux réponses.
j'aurais dû être plus attentif car dans ton message j'ai survolé le contrôle de formulaire

"MultiSelect" a une valeur de 2 ou 3 suivant que c'est un multi-sélection simple ou étendue, par contre je ne vois pas de "ListStyle" dans le contrôle de formulaire.

[Wini29]

Merci de vos réponses à tous les 2.

L'option multiselect fonctionne nickel. Dommage pour le liststyle mais ça reste du design donc facultatif et on s'en passera puisque l'objet est fonctionnel.

Merci encore une fois



EB

Ne rien faire n'est vraiment agréable que si l'on a beaucoup de travail en retard. (Jérome K Jérome)