listbox en cascade

C

ChTi'160

Guest

• 6 Février 2005

• #2

Salut"Jacques"
une possibilité de faire en pièce jointe
les listes se mettent à jour
à améliorer sûrement
A+++
Jean Marie

 

Pièces jointes

• listboxencascadeV1.zip

  12.7 KB · Affichages: 126

Vote positif 0 Vote négatif

J

Jacques

Guest

• 7 Février 2005

• #3

Salut ChTi'160,

Tout d'abord, merci pour ta réponse, en fait il n'existe pas de zone de saisie du genre de celles utilisées pour les listes de validation normales.
Je vais essayer d'adapter ta solution à mon problème.

@ plus

Jacques

 

Vote positif 0 Vote négatif

C

ChTi'160

Guest

• 7 Février 2005

• #4

Salut"Jacques"
je ne comprends pas ce que tu veux dire
"en fait il n'existe pas de zone de saisie du genre de celles utilisées pour les listes de validation normales.
expliques nous,mets un exemple on pourra peut être t'aider ?
A+++
Jean Marie

 

Vote positif 0 Vote négatif

J

Jacques

Guest

• 7 Février 2005

• #5

Re ChTi'160,

En fait dans une liste de validation, tu as une case source ou tu peux mettre au choix le nom de ta liste, éventuellement une formule ou autre, je pensais que pour les combobox c'était la même chose.
Et c'est ce que je cherchais, apparement il faut passer par un code dans le genre de celui que tu m'as proposé.
J'espère avoir répondu à ta question.

@ plus

Jacques

 

Vote positif 0 Vote négatif

Z

zano

Guest

• 9 Février 2005

• #6

tout simple : intercale la ligne UserForm1.Repaint
à chaque fois


ComboBox2.RowSource = Range(Cells(2, 1), Cells(derlgn, 1)).Address
UserForm1.Repaint
ComboBox2.ListIndex = 0

Tu peux remplacer
ComboBox2.ListIndex = 0 par ComboBox2.Text = ""

pour que la 2e liste soit vide quand tu selectinne dans la 1e
(exemple ClientB)

zano le gaumais (from Belgique)

 

Pièces jointes

• lbox_cascade.zip

  13.4 KB · Affichages: 105
• lbox_cascade.zip

  13.4 KB · Affichages: 107
• lbox_cascade.zip

  13.4 KB · Affichages: 108

Vote positif 0 Vote négatif

Z

zano

Guest

• 9 Février 2005

• #7

sélectionnes ...

 

Vote positif 0 Vote négatif

J

Jacques

Guest

• 14 Février 2005

• #8

Bonsoir à tous,

Je reviens sur ce fil toujours avec le même problème, Jean marie, j'ai essayé d'adapter ta macro dans tous les sens pour que ça colle à ce que je souhaite, j'ai oublié de signaler que le nombre de client pouvait augmenter et donc que le nombre de colonne aussi.
Pour le nom des client c'est OK mais pour la suite je n'y arrive pas.
j'ai essayé le code suivant mais ça ne marche pas pourtant je ne le trouvais pas si déconnant que ça...

Private Sub ComboBox1_Change()
With UserForm1
.ComboBox2.RowSource = userform1.combobox1.value
End With
End Sub


Private Sub UserForm_initialize()
With UserForm1
.ComboBox1.RowSource = "feuil1!(D27)"
End With
End Sub

En nommant bien sur toutes mes listes par le nom du client fait en automatique par ailleurs.
Souhaitant que quelqu'un puisse m'aider, je vous souhaite à tous une très bonne st valentin.

Jacques

 

Vote positif 0 Vote négatif

Z

zano

Guest

• 16 Février 2005

• #9

Private Sub ComboBox1_Change()

Dim derlgn As Integer
Dim dercol As Integer
Dim i As Integer
dercol = Feuil2.Range("A5").Value

For i = 1 To dercol
If i = ComboBox1.ListIndex Then
Feuil2.Cells(1, i + 1).FormulaR1C1 = "=DCOUNTA(Feuil1!C,1,R[1]C:R[2]C)"
derlgn = Feuil2.Cells(1, i + 1).Value
ComboBox2.RowSource = Range(Cells(2, i + 1), Cells(derlgn + 1, i + 1)).Address
UserForm1.Repaint
ComboBox2.ListIndex = 0
End If
Next

End Sub




Private Sub UserForm_Initialize()
Dim cel As Range
Dim dercol As Byte
With Worksheets("Feuil1")
dercol = .Range("IV1").End(xlToLeft).Column
For Each cel In .Range(Cells(1, 1), Cells(1, dercol))
Me.ComboBox1.AddItem cel.Value
Next
End With
Feuil2.Range("A5").Value = dercol
End Sub

en passant par des valeurs "temporaires"
un peu compliqué mais ça marche ...

 

Pièces jointes

• lbox_cascade.zip

  17 KB · Affichages: 94
• lbox_cascade.zip

  17 KB · Affichages: 95
• lbox_cascade.zip

  17 KB · Affichages: 97

Vote positif 0 Vote négatif

J

Jacques

Guest

• 17 Février 2005

• #10

Salut Zano,

Merci d'avoir passé un peu de temps sur mon problème, j'essai ça dès ce soir.

@ plus

Jacques

 

Vote positif 0 Vote négatif

C

ChTi'160

Guest

• 18 Février 2005

• #11

Salut"Jacques" et "zano"
une autre version tu peux ajouter des colonnes et des lignes
A+++
Jean Marie

 

Pièces jointes

• listboxencascadeV2.zip

  13.2 KB · Affichages: 195

Vote positif 0 Vote négatif

J

Jacques

Guest

• 18 Février 2005

• #12

Bonjour Zano, Jean Marie,

Merci à tous les 2, vous m'enlever une grosse épine du pied et mettez fin à 1 semaine de galère.

Encore merci

@ plus

Jacques

 

Vote positif 0 Vote négatif