Combobox en boucle

Hervé

XLDnaute Barbatruc

• 21 Février 2008

• #2

Re : Combobox en boucle

bonjour tredi 🙂

bienvenu à bord

bon, ben, je fait sonner 😉

tu veux créer tes combobox à la volée ? ou simplement les masquer à l'initialisation de l'USF et les faire apparaitre suivant ta textbox ?

salut

 

Vote positif 0 Vote négatif

T

TREDI-GEREP

Guest

• 25 Février 2008

• #3

Re : Combobox en boucle

En fait je voulais créer x combobox en fonction d'un nombre donné dans un textbox d'un usf. j'ai boosé sur cela ce week-end et j'ai trouve !! , bn je vais le code si ça interesse qqu'un 😀

Private Sub com_Change()
Dim nbrcom, i, j As Integer
Dim CBox As Control
Dim thivv1 As String

nbrcom = com.Value
Sheets("TABLE 3").Select
If nbrcom = "" Then
MsgBox ("Veuillez inserer un chiffre")
Else
For i = 1 To nbrcom

On Error Resume Next

Set CBox = Me.Controls.Add("Forms.Combobox.1")
With CBox
.Name = "thiv" & i
.Left = 135
.Top = 80 + ((i - 1) * 22)
.Width = 168
.Height = 15.5
.RowSource = "AI1: AI66"

'.ListRows = 12
.BackColor = &HC0FFFE
.Tag = i
End With
Columns("AI:AI").Select

Voilou

 

Vote positif 0 Vote négatif

T

TREDI-GEREP

Guest

• 26 Février 2008

• #4

Re : Combobox en boucle

Ben !! je reviens vers vous car je ne sais pas comment recuperer les valeurs de chacun des combobox crees ??😱😱😱 😕

Merci de votre aide

 

Vote positif 0 Vote négatif

T

TREDI-GEREP

Guest

• 28 Février 2008

• #5

Re : Combobox en boucle

TREDI-GEREP à dit:

Ben !! je reviens vers vous car je ne sais pas comment recuperer les valeurs de chacun des combobox crees

Merci de votre aide

Cliquez pour agrandir...

il n'y a personne pour m'aider 🙁🙁 SVP

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 28 Février 2008

• #6

Re : Combobox en boucle

Bonjour

Le mieux serit de placer un fichier (on ne le dira jamais assez!).

 

Vote positif 0 Vote négatif

T

TREDI-GEREP

Guest

• 28 Février 2008

• #7

Re : Combobox en boucle

🙄Voici qui est fait !!

je creer des combobox en fonction du textbox et je voudrais recuperer apres les valeurs selectionnées. Voilou.

Merci par avance

 

Pièces jointes

• Classeur2.xls

  28 KB · Affichages: 68
• Classeur2.xls

  28 KB · Affichages: 77
• Classeur2.xls

  28 KB · Affichages: 67

Vote positif 0 Vote négatif

G

Guest

Guest

• 28 Février 2008

• #8

Re : Combobox en boucle

Voici pour un premier jet le fichier ci-joint

Regarde dans le module de classe 'clsCombo 'et comment est créé un tableau de comboBox dans le code du UserForm.

Ce n'est qu'un début pour expliquer la manière de faire.
Maintenant si l'utilisateur entre un nouveau nombre, 2 solutions:
1 - il faut détruire le groupe (tableau) et les références aux combobox qu'il contient, détruire les combobox du UserForm pour en créer de nouveaux.

2 - ne créer que les nouveaux combobox si le nombre demandé augmente ou détruire les combobox excédents si le nouveau nombre est inférieur à ceux présents sur le userform.

Ceci pour maintenir une cohérence entre le nombre de combo box sur le UserForm et le tableau qui contient leurs référence.

 

Dernière modification par un modérateur: 18 Mars 2008

Vote positif 0 Vote négatif

G

Guest

Guest

• 28 Février 2008

• #9

Re : Combobox en boucle

voilà une mouture plus aboutie

 

Dernière modification par un modérateur: 18 Mars 2008

Vote positif 0 Vote négatif

T

TREDI-GEREP

Guest

• 28 Février 2008

• #10

Re : Combobox en boucle

Hasco à dit:

voilà une mouture plus aboutie

Cliquez pour agrandir...

😱 Ouf ca c'est du vba !! c'est exactement ce que je voulais !! 😉

Merci Hasco !!!

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 28 Février 2008

• #11

Re : Combobox en boucle

Re bonjour à tous!

Merci Hasco. quelle classe!

 

Vote positif 0 Vote négatif