OVH Cloud OVH Cloud

Combobox

5 réponses
Avatar
JEAN
bonsoir,

J'ai sur ma feuille 1

a partir de A200: en E200 j'ai
0010 test
0011 test
0012 test
0013 test
0014 test
0015 essai
0078 essai
0043 essai
0032 version
0034 version

je voudrai avoir deux combobox, un combobox 1 ou j'aurai test essai et
version
quand je selectionne test dans le combobox 1, du coup sur mon combobox 2
j'aurai juste les valeurs de 0010 à 0014
pour essai 0015 0078 et 0043 sur mon combobox 2

merci de votre aide

5 réponses

Avatar
Roba
Bonjour,

Voici une solution, peut-être pas la meilleure...

Dans un onglet que j'appelle Paramètres je mets en colonne 1 :
test
version
essai

Et je nomme cette plage "Choix" à appliquer dans la propriété ListFillRange
de la ComboBox1.

En colonne 2 je mets les numéros regroupés selon les choix, et je nomme
chaque plage "test", "version" et "essai"

Je crée la ComboBox2 et lui applique le code suivant :

Private Sub ComboBox1_Change()
ComboBox2.ListFillRange = ComboBox1.Value 'Mets à jour la liste de référence
ComboBox2.ListIndex = 0 'se positionne sur le premier élément de la liste de
référence
End Sub

La sélection dans ComboBox1 opère la restriction dans ComboBox2

Roba
Avatar
JEAN
je ne comprend pas cette phrase:

Et je nomme cette plage "Choix" à appliquer dans la propriété ListFillRange
de la ComboBox1.

ou trouver cette proprièté.

merci



Bonjour,

Voici une solution, peut-être pas la meilleure...

Dans un onglet que j'appelle Paramètres je mets en colonne 1 :
test
version
essai

Et je nomme cette plage "Choix" à appliquer dans la propriété ListFillRange
de la ComboBox1.

En colonne 2 je mets les numéros regroupés selon les choix, et je nomme
chaque plage "test", "version" et "essai"

Je crée la ComboBox2 et lui applique le code suivant :

Private Sub ComboBox1_Change()
ComboBox2.ListFillRange = ComboBox1.Value 'Mets à jour la liste de référence
ComboBox2.ListIndex = 0 'se positionne sur le premier élément de la liste de
référence
End Sub

La sélection dans ComboBox1 opère la restriction dans ComboBox2

Roba


Avatar
Roba
En fait je sélectionne les 3 choix et nomme cette plage "Choix" :
Insertion/Nom/Définir...
Ensuite dans la fenêtre des propriétés de la ComboBox1 à la ligne
ListFillRange je tape "Choix".
(Pour obtenir la fenêtre des propriétés clic droit sur l'usf en mode
création et Propiétés.)
"JEAN" wrote:

je ne comprend pas cette phrase:

Et je nomme cette plage "Choix" à appliquer dans la propriété ListFillRange
de la ComboBox1.

ou trouver cette proprièté.

merci



Bonjour,

Voici une solution, peut-être pas la meilleure...

Dans un onglet que j'appelle Paramètres je mets en colonne 1 :
test
version
essai

Et je nomme cette plage "Choix" à appliquer dans la propriété ListFillRange
de la ComboBox1.

En colonne 2 je mets les numéros regroupés selon les choix, et je nomme
chaque plage "test", "version" et "essai"

Je crée la ComboBox2 et lui applique le code suivant :

Private Sub ComboBox1_Change()
ComboBox2.ListFillRange = ComboBox1.Value 'Mets à jour la liste de référence
ComboBox2.ListIndex = 0 'se positionne sur le premier élément de la liste de
référence
End Sub

La sélection dans ComboBox1 opère la restriction dans ComboBox2

Roba




Avatar
JEAN
Private Sub ComboBox2_click()
TxtVal.Value = Format(TxtVal.Value, "#####")

TxtVal.Value = ComboBox2.Column(1)

End Sub

du coup avec ton code, j'ai au niveau de cette ligne TxtVal.Value =
ComboBox2.Column(1): impossible de lire la propriete collumn

comment résoudre ceci

merci


En fait je sélectionne les 3 choix et nomme cette plage "Choix" :
Insertion/Nom/Définir...
Ensuite dans la fenêtre des propriétés de la ComboBox1 à la ligne
ListFillRange je tape "Choix".
(Pour obtenir la fenêtre des propriétés clic droit sur l'usf en mode
création et Propiétés.)
"JEAN" wrote:

je ne comprend pas cette phrase:

Et je nomme cette plage "Choix" à appliquer dans la propriété ListFillRange
de la ComboBox1.

ou trouver cette proprièté.

merci



Bonjour,

Voici une solution, peut-être pas la meilleure...

Dans un onglet que j'appelle Paramètres je mets en colonne 1 :
test
version
essai

Et je nomme cette plage "Choix" à appliquer dans la propriété ListFillRange
de la ComboBox1.

En colonne 2 je mets les numéros regroupés selon les choix, et je nomme
chaque plage "test", "version" et "essai"

Je crée la ComboBox2 et lui applique le code suivant :

Private Sub ComboBox1_Change()
ComboBox2.ListFillRange = ComboBox1.Value 'Mets à jour la liste de référence
ComboBox2.ListIndex = 0 'se positionne sur le premier élément de la liste de
référence
End Sub

La sélection dans ComboBox1 opère la restriction dans ComboBox2

Roba






Avatar
Roba
Bonjour,

D'abord j'aimerais savoir ce que représente TxtVal. Est-ce une référence de
cellule ?

Sinon essaie simplement de remplacer column(1) par value.

Pour finir peut-être qu'il me serait plus simple de connaître l'utilisation
complète que tu veux faire de tes usf.

"JEAN" wrote:


Private Sub ComboBox2_click()
TxtVal.Value = Format(TxtVal.Value, "#####")

TxtVal.Value = ComboBox2.Column(1)

End Sub

du coup avec ton code, j'ai au niveau de cette ligne TxtVal.Value =
ComboBox2.Column(1): impossible de lire la propriete collumn

comment résoudre ceci

merci


En fait je sélectionne les 3 choix et nomme cette plage "Choix" :
Insertion/Nom/Définir...
Ensuite dans la fenêtre des propriétés de la ComboBox1 à la ligne
ListFillRange je tape "Choix".
(Pour obtenir la fenêtre des propriétés clic droit sur l'usf en mode
création et Propiétés.)
"JEAN" wrote:

je ne comprend pas cette phrase:

Et je nomme cette plage "Choix" à appliquer dans la propriété ListFillRange
de la ComboBox1.

ou trouver cette proprièté.

merci



Bonjour,

Voici une solution, peut-être pas la meilleure...

Dans un onglet que j'appelle Paramètres je mets en colonne 1 :
test
version
essai

Et je nomme cette plage "Choix" à appliquer dans la propriété ListFillRange
de la ComboBox1.

En colonne 2 je mets les numéros regroupés selon les choix, et je nomme
chaque plage "test", "version" et "essai"

Je crée la ComboBox2 et lui applique le code suivant :

Private Sub ComboBox1_Change()
ComboBox2.ListFillRange = ComboBox1.Value 'Mets à jour la liste de référence
ComboBox2.ListIndex = 0 'se positionne sur le premier élément de la liste de
référence
End Sub

La sélection dans ComboBox1 opère la restriction dans ComboBox2

Roba