Discussion :

[seblafrite78]

Bonjour a tous,

Je suis nouveau sur ce forum et quelque peu novice en VBA.
Pour un projet, je dois créer une petite application.
Cependant je suis bloqué sur un point d'où mon post

Je m'explique :

J'ai créé sur la Sheet1 de mon tableur Excel une liste avec différents modèles qui sont alignés dans la colonne 1.
Le nom est X1, X2, X3... (le nom des modèles est un exemple).

Puis j'ai relié ma colonne Modeles avec une combobox se situant dans une userform avec le code suivant :

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
 
For Each blah In [Modeles]
    Me.ComboBox1.AddItem blah
Next blah
 
End sub

Jusque la pas de souci.

Cependant maintenant je souhaiterais que lorsque par exemple le modèle X2 est sélectionné dans la combobox, des informations soit affichées dans des label situes dans ma userform.
Ces informations sont situées sur la Sheet2 et toujours sous la forme de tableau.
Dans cette Sheet2 on retrouve le fameux modèle X2 qui a pour valeur "Y" ou "N". Ces valeurs me permettent de voir si oui (valeur cellule ="Y") X2 peut prendre les options 1, 2 et 3 ou non si la valeur de la cellule est "N".

Je crains ne pas etre tres clair... Je vous mets ci joint des photos pour mieux comprendre la forme de mes tableaux

Merci d'avance pour votre aide, je vous souhaite une bonne journée

[seblafrite78]

"J'ai créé sur la Sheet1 de mon tableur Excel une liste avec différents modèles qui sont alignés dans la colonne 1."

Colonne A pardon

[unparia]

Bonjour
Je ne sais pas ce que tu "fabricotes" là, mais absolument rien ne t'empêche de créer ta combobox avec 2 colonnes et d'y mettre d'emblée tes valeurs X1, X2 ...X5 en 1ère colonne et les valeurs correspondantes en seconde colonne !
Et c'est d'une extrême simplicité puisque les lignes de la colonne A de ta feuille 1 sont dans le même ordre que les colonnes de la ligne 1 de ta feuille 2 !
et NUL BESOIN DU MOINDRE LABEL !
Je veux te voir au moins essayer.
Je ne t'aiderai ensuite qu'en voyant ce que tu as au moins tenté dans ce sens.

[mjpmjp]

bonjour,

For Each blah In [Modeles]

dans ta colonne A "Modele" sans "s"

@+JP

[seblafrite78]

Tout d'abord merci pour vos réponses. Je tiens a préciser que j'avais fait un exemple pour le mettre sur cette conversation d'où ma faute.

Les deux photos ci jointes sont vraiment sorties de mon projet.

unparia : malheureusement ce n'est pas aussi simple :

Après avoir choisi le modèle dans la combobox (E4 20.1, E4 20.3 ou E4 40.1), les options button (Construction, Farming, Green Area, Ground Support Equipment et Materials Handling), ne doivent pas pouvoir être sélectionnés s'ils ne sont pas dans le tableau des TYPE. A savoir les 3 colonnes TYPE sont les mêmes.

Mon problème c'est que si nous prenons le modèle E4 20.1 : ce modèle peut accepter 2 types differents (Ground Support Equipment et Material Handling) alors que le modèle E4 20.3 quant à lui peut en accepter 3 (Ground Support Equipment, Material Handling et Farming).

Mon problème c'est que je n'arrive pas à adapter mon tableau pour pouvoir réaliser ce que je veux faire...

Merci

[seblafrite78]

Pour le moment voici mon code qui permet de répondre a mon besoin :

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
Private Sub ComboBox1_Change()
If ComboBox1.Value = "E4 20.1" Then
    OptionButton6.Visible = False
    OptionButton7.Visible = False
    OptionButton8.Visible = False
End If
 
If ComboBox1.Value = "E4 20.3" Then
    OptionButton6.Visible = False
    OptionButton7.Visible = False
    OptionButton8.Visible = False
End If
 
If ComboBox1.Value = "E4 40.1" Then
    OptionButton6.Visible = False
    OptionButton7.Visible = False
    OptionButton8.Visible = False
    OptionButton9.Visible = False
End If
 
 
End Sub

et pour la combobox :

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
 
For Each blah In [ListE4]
    Me.ComboBox1.AddItem blah
Next blah
 
end sub

Mais cela n'utilise pas les tableau d'une feuille et c'est pas le top je trouve....