Creer combobox

[David]

Bonjour le forum!
G une ptite question.. J'essai d'ecrire un programme qui permette de creer une feuille en cliquant sur un bouton. Sur cette feuille doit apparaitre des boutons, textbox et une combobox. J'utilise sensiblement le meme code pour les differents objets, mais je n'arrive pas à faire fonctionner la methode additem de la combobox... excel me met un message d'erreur du style: 'prorieté non gerée'...

j'utilise le code suivant:

Dim a As Integer
a = Sheets.Count
Set nouvelleboite = worksheets(a).OLEObjects.Add _
      ('Forms.combobox.1')
    With nouvelleboite
        .Left = 654.75
        .Top = 41.25
        .Width = 68.25
        .Height = 14.25
        .additem 'A320'
        .additem 'A321'
    End With

Est ce que quelqu'un aurait une idée du probleme?
Merci d'avance, bonne journée

 

[Eric C]

Bonjour le forum
Bonjour David


Essaies ceci qui fonctionnera mieux. En effet, Un contrôle de feuille ne possède pas de propriété 'Additem'. Il faut donc passer par ListFiilRange

Dim NouvelleFeuille As Worksheet, NouveauCbo As OLEObject

' Ajoute une Nouvelle feuille
Set NouvelleFeuille = Sheets.Add

' Ajoute un ComBobox
Set NouveauCbo = NouvelleFeuille.OLEObjects.Add _
('Forms.Combobox.1')
With NouveauCbo
.Left = 654
.Top = 41
.Width = 68
.Height = 15
.ListFillRange = 'Feuil1!A1:A6' 'A adapter
End With

Bonne journée à toutes & à tous

 

[MichelXld]

bonjour David , bonjour cher Eric

mais si , mais si .... la propiété AddItem fonctionne


Dim a As Integer
Dim nouvelleBoite As OLEObject

a = Sheets.Count
Set nouvelleBoite = Worksheets(a).OLEObjects.Add _
('Forms.combobox.1')

With nouvelleBoite
.Left = 654.75
.Top = 41.25
.Width = 68.25
.Height = 14.25
.Object.AddItem 'A320'
.Object.AddItem 'A321'
End With


bon apres midi
MichelXld

 

[Eric C]

Re le forum
Re bonjour David, bonjour Michel


Ah, si Michel n'existait pas, il faudrait l'inventer. Merci à toi Mimi pour cette info.

Une bonne soirée à toutes & à tous