Création d'une combobox [Résolu]

[Furr]

Bonjour,

Je cherche dans le cadre d'une génération d'un classeur Excel pouvoir associer à une cellule une comboBox, permettant à l'utilisateur de sélectionner des valeurs prédéfinies.
Pour créer une combobox, j'ai constaté après pas mal de recherche qu'il était possible de réaliser ceci simplement grâce aux userform dans Excel. Mon souci est que ma génération du classeur se fait totalement via un logiciel externe, et donc l'interaction avec Excel ne se fait que via le code de mon application.

Je voudrais donc savoir si quelqu'un avait déjà été confronté à cette problématique, à savoir de pouvoir créer une combobox dynamiquement, l'affecter ensuite à une ou plusieurs cellules, de manière totalement automatisée, et si, bien sûr, ce quelqu'un aurait des indications (voir un bout de code simpliste dans le meilleur des cas) concernant la marche à suivre

J'ai fait un bref test grâce aux objets OLE, mais ça ne donne rien de bon, probablement par une mauvaise utilisation

Code :

1
2
3
Dim comboBox As OLEObject = xlsSheet.OLEObjects.Add(ClassType:="Forms.ComboBox")              
comboBox.Object.AddItem("Test")
xlsSheet.Cells(1, 1).Value = comboBox.Object

Merci d'avance pour l'aide que vous pourrez m'apporter

[BlueMonkey]

Bonjour,

Dans un but de simplification, pourquoi ne pas utiliser la validation de donnée
(Données -> validation sous XLS2003) pour faire apparaître une ComboBox ?

exemple de code s'exécutant depuis un classeur quelconque, et qui crée dans le classeur "Classeur2 / Feuil1" une comboBox à 4 choix en cellule A1.

Code :

1
2
3
4
5
6
7
    With Workbooks("Classeur2").Worksheets(1).Cells(1, 1).Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="1;2;3;4"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With

[Furr]

Effectivement, une très bonne idée cette validation, je n'y ai pas pensé
Ça fonctionne très bien, j'ai plus qu'à la paramétrer pour mon cas, merci beaucoup

[BlueMonkey]

Content d'avoir pu aider à simplifier ici
Même s'il existe des solutions pour créer dynamiquement des objets,
la gestion devient sensiblement plus lourde (placement, taille, liste, évènement ...)
que ces quelques lignes données plus haut.

Bonnes fêtes de fin d'années.