Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel initialisation de contrôles

initialisation de contrôles

4 réponses
Avatar
Serge
Bonjour,

Sur un classeur excel, j'ai incorporé, sur une feuille et non pas un
UserForm, des contrôles combobox, listbox....
Comment initialiser mes contrôles à l'ouverture de ma feuille :
- dans le projet vba des ma feuille ou de mon classeur ?
- dans le module standard, de classe ?
- ...
Merci
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Xav
Bonjour Serge

si tu as utilisé le mode formulaire, click droit et propriétés

si tu as utilisé la boite à outils controle


Set Boite1 = Worksheets("Feuil1").OLEObjects("ComboBox1")

With Boite1


.Object.AddItem "donnée1"
.Object.AddItem "donnée2"*
etc

.Object.BoundColumn = 0
.Object.ListIndex = 0

End With

à place dans workbook Open

--
Cordialement

@+
Xav
"Serge" <serge.g8[NO-SPAM]@laposte.net> a écrit dans le message de
news:ck5odi$19km$
Bonjour,

Sur un classeur excel, j'ai incorporé, sur une feuille et non pas un
UserForm, des contrôles combobox, listbox....
Comment initialiser mes contrôles à l'ouverture de ma feuille :
- dans le projet vba des ma feuille ou de mon classeur ?
- dans le module standard, de classe ?
- ...
Merci




Avatar
Serge
Merci Xav,

J'ai en effet utilisé la boite à outil contrôle avec 1 combox1.
J'ai inséré le code ci-dessous, mais ma liste déroulante est toujours vide,
j'ai du oublier qqe choes ?

Private Sub Workbook_Open()
Set Boite1 = Worksheets("Résultats").OLEObjects("ComboBox1")

With Boite1


.Object.AddItem "2001"
.Object.AddItem "2002"
.Object.AddItem "2003"
.Object.AddItem "2004"
.Object.AddItem "2005"



End With

End Sub


"Xav" <xavier(point)herout(at)groupe-cahors(point)com> a écrit dans le
message de news:
Bonjour Serge

si tu as utilisé le mode formulaire, click droit et propriétés

si tu as utilisé la boite à outils controle


Set Boite1 = Worksheets("Feuil1").OLEObjects("ComboBox1")

With Boite1


.Object.AddItem "donnée1"
.Object.AddItem "donnée2"*
etc

.Object.BoundColumn = 0
.Object.ListIndex = 0

End With

à place dans workbook Open

--
Cordialement

@+
Xav
"Serge" <serge.g8[NO-SPAM]@laposte.net> a écrit dans le message de
news:ck5odi$19km$
Bonjour,

Sur un classeur excel, j'ai incorporé, sur une feuille et non pas un
UserForm, des contrôles combobox, listbox....
Comment initialiser mes contrôles à l'ouverture de ma feuille :
- dans le projet vba des ma feuille ou de mon classeur ?
- dans le module standard, de classe ?
- ...
Merci








Avatar
Claude Trouet
Bonjour,
As-tu effectué un clic sur la combobox après avoir désactivé le mode Edition
?
Pour moi, en XL2000 c'est impeccable
CT

"Serge" <serge.g8[NO-SPAM]@laposte.net> a écrit dans le message de news:
ck5vgt$1dg2$
Merci Xav,

J'ai en effet utilisé la boite à outil contrôle avec 1 combox1.
J'ai inséré le code ci-dessous, mais ma liste déroulante est toujours
vide,
j'ai du oublier qqe choes ?

Private Sub Workbook_Open()
Set Boite1 = Worksheets("Résultats").OLEObjects("ComboBox1")

With Boite1


.Object.AddItem "2001"
.Object.AddItem "2002"
.Object.AddItem "2003"
.Object.AddItem "2004"
.Object.AddItem "2005"



End With

End Sub


"Xav" <xavier(point)herout(at)groupe-cahors(point)com> a écrit dans le
message de news:
Bonjour Serge

si tu as utilisé le mode formulaire, click droit et propriétés

si tu as utilisé la boite à outils controle


Set Boite1 = Worksheets("Feuil1").OLEObjects("ComboBox1")

With Boite1


.Object.AddItem "donnée1"
.Object.AddItem "donnée2"*
etc

.Object.BoundColumn = 0
.Object.ListIndex = 0

End With

à place dans workbook Open

--
Cordialement

@+
Xav
"Serge" <serge.g8[NO-SPAM]@laposte.net> a écrit dans le message de
news:ck5odi$19km$
Bonjour,

Sur un classeur excel, j'ai incorporé, sur une feuille et non pas un
UserForm, des contrôles combobox, listbox....
Comment initialiser mes contrôles à l'ouverture de ma feuille :
- dans le projet vba des ma feuille ou de mon classeur ?
- dans le module standard, de classe ?
- ...
Merci












Avatar
Serge
Meaculpa, ça roule merci Xav & Claude
Serge

"Claude Trouet" a écrit dans le message de
news:
Bonjour,
As-tu effectué un clic sur la combobox après avoir désactivé le mode
Edition

?
Pour moi, en XL2000 c'est impeccable
CT

"Serge" <serge.g8[NO-SPAM]@laposte.net> a écrit dans le message de news:
ck5vgt$1dg2$
Merci Xav,

J'ai en effet utilisé la boite à outil contrôle avec 1 combox1.
J'ai inséré le code ci-dessous, mais ma liste déroulante est toujours
vide,
j'ai du oublier qqe choes ?

Private Sub Workbook_Open()
Set Boite1 = Worksheets("Résultats").OLEObjects("ComboBox1")

With Boite1


.Object.AddItem "2001"
.Object.AddItem "2002"
.Object.AddItem "2003"
.Object.AddItem "2004"
.Object.AddItem "2005"



End With

End Sub


"Xav" <xavier(point)herout(at)groupe-cahors(point)com> a écrit dans le
message de news:
Bonjour Serge

si tu as utilisé le mode formulaire, click droit et propriétés

si tu as utilisé la boite à outils controle


Set Boite1 = Worksheets("Feuil1").OLEObjects("ComboBox1")

With Boite1


.Object.AddItem "donnée1"
.Object.AddItem "donnée2"*
etc

.Object.BoundColumn = 0
.Object.ListIndex = 0

End With

à place dans workbook Open

--
Cordialement

@+
Xav
"Serge" <serge.g8[NO-SPAM]@laposte.net> a écrit dans le message de
news:ck5odi$19km$
Bonjour,

Sur un classeur excel, j'ai incorporé, sur une feuille et non pas un
UserForm, des contrôles combobox, listbox....
Comment initialiser mes contrôles à l'ouverture de ma feuille :
- dans le projet vba des ma feuille ou de mon classeur ?
- dans le module standard, de classe ?
- ...
Merci