Discussion :

[morpheus54400]

Bonjour,

suivant l'image de mon Userform en pièce jointe, j'aimerais faire correspondre les deux listes déroulantes entre elles.
Ex : si je sélectionne "empreinte/têtes" dans la première liste, la deuxième liste devra m'afficher "empreinte petite ; empreinte grande ; tête petite ; tête grande. Si je sélectionne "plaque miroir", la deuxième liste devra m'afficher un les références des plaques miroirs etc...

je me suis déjà baladé sur le web pour essayer de trouver une solution, mais le fait que bien souvent ils appliquent pas ça à un Userform ,(et que je sois novice en VBA) ça me perd complètement...

Je sollicite à nouveau votre aide.

Cordialement,

[SfJ5Rpw8]

bonjour,


et d'où viennent toutes ces informations ? d'une base de données ? d'une feuille excel ?...

[Ashireon]

Quelle est la source de tes données?
PRemière chose pour éviter que l'utilisateur clique n'importe comment :
- verrouille les objet ( enabled= false)
- et deverouille la combobox2 uniquement si selection <>-1 de la combobox.
- selon la valeur choisi charge la combobox2


cordialement

[morpheus54400]

bonjour,
Merci à vous de m'aider,

Oui les données viennent d'une feuille excel (feuill1) appartenant au même fichier que l'userform.

L’intérêt de cet Userform, est de faire appel à des feuilles (déjà crée) situées dans plusieurs fichiers

Ashieron, peut être un peu plus explicite dans tes deux derniers points ?

[Ashireon]

JE te donne un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub ComboBox1_Change()
' Activation de la seocnde combobox
Combobox2.enabled=(combobox1.selectedindex<>-1)
 
Call ChargerCombobox1(ComboBox1.Value)
 
 
 
 
End Sub
 
Public Sub ChargerCombobox1(byval ValeurTrie as string)
combobox2.iclear
 
Select Case ValeurTrie
 
   Case Toto
         Call chargerToto
   Case Tutu
         call charger tutu
End select
 
 
End Sub
 
Public sub charger Toto()
Dim X as integer
For X= 1 to sheets(1).range("A" &rows.count).end(xlup).row
 
  Combobox2.additem(sheets(1).range("A" &X).value)
 
 
next
 
 
end sub

ca devrait ressembler a ca

[morpheus54400]

Bonjour,

Merci beaucoup pour votre aide,

Etant donné que je suis en stage et que je ne suis pas censé perdre trop de temps sur de la prog (et étant donné mon niveau de VB), j'ai décidé d'enlever ma seconde liste déroulante qui était facultative.

Maintenant tout marche à peut près, je dis cela car mes boutons en bas de mon Userform faisant appel à des tableurs excel en fonction de ma ComboBox, mon Userform (ouvert au lancement) reste toujours en premier plan sur le bureau rendant l'utilisation des tableurs impossible... J'aimerais donc trouver un moyen de réduire cet Userform et de l'agrandir quand besoin ai, afin d'utiliser mes classeurs affichés en toute simplicité. (mais ça c'est un autre sujet )

Merci encore à vous,
Cordialement,

[Ashireon]

salut

tu appelles le userform en non modal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Userform1.show 0

du coup tu as accès aux feuilles excel