OVH Cloud OVH Cloud

combobox

8 réponses
Avatar
novice
bonjour a tous et a toutes

je voudrais savoir si il est possible d'avoir 2 combobox lier.
je m'explique j'ai un combobox1 qui prend ces donné en colone b:
voici le code:"
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "Créance!B3:B" & _
Sheets("Créance").Range("B65536").End(xlUp).Row
End Sub
a ce code je voudrais ajouter un combobox2 qui prendrais ces donnés en
colone c
combox1 combobox2


0 5 Je voudrais que en selectionant dans combobox1 0 dans
combobox2 il n'y est que 5 6 7
0 6
0 7
2 8
3 9
4 10


merci a tous de votre aide

8 réponses

Avatar
AV
Regarde un exemple (à adapter) de comboBox en cascades

http://cjoint.com/?flnRjTqO6I

AV
Avatar
novice
merci je vais essayer de voir ça
mais je doute un peux de mes capaciter


"AV" a écrit dans le message de
news:
Regarde un exemple (à adapter) de comboBox en cascades

http://cjoint.com/?flnRjTqO6I

AV




Avatar
novice
rebonsoir
c'est encore moi et la je ne m'en sort pas du tout
j'ai essayer avec le fichier que AV ma envoyer mais je suis pas douer car je
ne comprend rien ça fait deux heures que je suis dessus et ça n'avance pas
AU SECOUR

merci de toute l'aide que vous m'apporterez.


"novice" a écrit dans le message de
news:44631c78$0$167$
bonjour a tous et a toutes

je voudrais savoir si il est possible d'avoir 2 combobox lier.
je m'explique j'ai un combobox1 qui prend ces donné en colone b:
voici le code:"
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "Créance!B3:B" & _
Sheets("Créance").Range("B65536").End(xlUp).Row
End Sub
a ce code je voudrais ajouter un combobox2 qui prendrais ces donnés en
colone c
combox1 combobox2


0 5 Je voudrais que en selectionant dans combobox1 0 dans
combobox2 il n'y est que 5 6 7
0 6
0 7
2 8
3 9
4 10


merci a tous de votre aide




Avatar
anonymousA
Bonjour,

qu'est ce qui te pose problème ?.

Le fichier d'AV te propose 2 facons de voir les choses :

-soit des combobox qui sont sur une feuille et dont les éléments sont
dynamiques au travers de procédures incluses dans le module de feuille
qui abrite les combobx
-soit des combobox sur un userform et dont les éléments là encore sont
dynamiquement intégrés au travers de procédures incluses dans le module
du userform.

Précises tes difficultés si tu veux de l'aide , car pour moi, le fichier
d'AV est complet et bien réalisé

A+

rebonsoir
c'est encore moi et la je ne m'en sort pas du tout
j'ai essayer avec le fichier que AV ma envoyer mais je suis pas douer car je
ne comprend rien ça fait deux heures que je suis dessus et ça n'avance pas
AU SECOUR

merci de toute l'aide que vous m'apporterez.


"novice" a écrit dans le message de
news:44631c78$0$167$
bonjour a tous et a toutes

je voudrais savoir si il est possible d'avoir 2 combobox lier.
je m'explique j'ai un combobox1 qui prend ces donné en colone b:
voici le code:"
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "Créance!B3:B" & _
Sheets("Créance").Range("B65536").End(xlUp).Row
End Sub
a ce code je voudrais ajouter un combobox2 qui prendrais ces donnés en
colone c
combox1 combobox2


0 5 Je voudrais que en selectionant dans combobox1 0 dans
combobox2 il n'y est que 5 6 7
0 6
0 7
2 8
3 9
4 10


merci a tous de votre aide








Avatar
novice
bonsoir
mon probleme est que je n'arrive pas a l'incorporer dans mon code .
je joint mon fichier pour que l'on me comprenne mieux

http://cjoint.com/?flxOHSfUmy

merci de votre aide a tous


"anonymousA" a écrit dans le message de
news:446389c2$0$20144$
Bonjour,

qu'est ce qui te pose problème ?.

Le fichier d'AV te propose 2 facons de voir les choses :

-soit des combobox qui sont sur une feuille et dont les éléments sont
dynamiques au travers de procédures incluses dans le module de feuille
qui abrite les combobx
-soit des combobox sur un userform et dont les éléments là encore sont
dynamiquement intégrés au travers de procédures incluses dans le module
du userform.

Précises tes difficultés si tu veux de l'aide , car pour moi, le fichier
d'AV est complet et bien réalisé

A+

rebonsoir
c'est encore moi et la je ne m'en sort pas du tout
j'ai essayer avec le fichier que AV ma envoyer mais je suis pas douer
car je


ne comprend rien ça fait deux heures que je suis dessus et ça n'avance
pas


AU SECOUR

merci de toute l'aide que vous m'apporterez.


"novice" a écrit dans le message de
news:44631c78$0$167$
bonjour a tous et a toutes

je voudrais savoir si il est possible d'avoir 2 combobox lier.
je m'explique j'ai un combobox1 qui prend ces donné en colone b:
voici le code:"
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "Créance!B3:B" & _
Sheets("Créance").Range("B65536").End(xlUp).Row
End Sub
a ce code je voudrais ajouter un combobox2 qui prendrais ces donnés en
colone c
combox1 combobox2


0 5 Je voudrais que en selectionant dans combobox1 0 dans
combobox2 il n'y est que 5 6 7
0 6
0 7
2 8
3 9
4 10


merci a tous de votre aide










Avatar
JB
Bonjour,


http://cjoint.com/?fmk6XMvIYy

-Combo en cascade dynamiques sur UserForm
-On peut ajouter des items en colonne et en ligne sans modification.
Les listes sont sur l'onglet Listes. Elles n'ont pas besoin d'être
nommées.

Private Sub ComboBox1_Change()
p = ComboBox1.ListIndex
n = Sheets("Listes").Range("choix2").Offset(0, p).End(xlDown).Row - 1
ComboBox2.RowSource = "listes!" &
Sheets("Listes").Range("choix2").Offset(0, p).Resize(n, 1).Address
End Sub

Private Sub UserForm_Initialize()
Me.ComboBox1.Clear
For Each c In [choix1]
If Not IsEmpty(c) Then Me.ComboBox1.AddItem c
Next c
End Sub

1 F G H I
2 Basket Pantalon Tennis Blouson
3 Bleu Jaune Jaune Jaune
4 Jaune Marron Rouge Rouge
5 Marron Vert Vert Vert
6 Orange Violet Violet
7 Rose Marron
8 Rouge
9 Vert

Cordialement JB
Avatar
novice
je crois que je me suis mal exprimer
voir ci joint
http://cjoint.com/?flxOHSfUmy


"novice" a écrit dans le message de
news:44631c78$0$167$
bonjour a tous et a toutes

je voudrais savoir si il est possible d'avoir 2 combobox lier.
je m'explique j'ai un combobox1 qui prend ces donné en colone b:
voici le code:"
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "Créance!B3:B" & _
Sheets("Créance").Range("B65536").End(xlUp).Row
End Sub
a ce code je voudrais ajouter un combobox2 qui prendrais ces donnés en
colone c
combox1 combobox2


0 5 Je voudrais que en selectionant dans combobox1 0 dans
combobox2 il n'y est que 5 6 7
0 6
0 7
2 8
3 9
4 10


merci a tous de votre aide




Avatar
JB
http://cjoint.com/?fmuEOYmMWo

Private Sub ComboBox1_Change()
Sheets("créance").Activate
Me.ComboBox2.Clear
For Each c In Range([B3], [B65000].End(xlUp))
If c = Me.ComboBox1 Then Me.ComboBox2.AddItem c.Offset(0, 3)
Next c
End Sub

JB