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.