Creer combobox

D

David

Guest
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:

Code:
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
 

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 871
Messages
2 093 102
Membres
105 627
dernier inscrit
jean-marc.brillant