Discussion :

[Gioge]

Bonjour,

Je souhaite faire une action ( ici notamment écrire sur le textbox ), en fonction de ce que l'utilisateur sélectionne avec le combobox.

J'ai voulu utiliser le select case, mais je ne pense pas que je maitrise la syntaxe du combobox, voila ce que j'ai fait :
Mon but ici est de faire pour combobox.item ="mot1" alors textbox1 = x et textbox2 = y, j'ai du mal avec la synthaxe,
Voici mon code :

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
Select Case ComboBox1.ListIndex
Case 0
    TextBox_1 = 1030
    TextBox_2 = 270
Case 1
    TextBox_1 = 1030
    TextBox_2 = 410
Case 2
    TextBox_1 = 1330
    TextBox_2 = 400
Case 3
    TextBox_1 = 1400
    TextBox_2 = 470
Case 4
    TextBox_1 = 1875
    TextBox_2 = 410
Case 5
    TextBox_1 = 2200
    TextBox_2 = 500
Case 6
    TextBox_3 = 485
Case 7
    TextBox_3 = 711
Case 8
    TextBox_3 = 230
Case 9
    TextBox_3 = 362
Case 10
    TextBox_3 = 590
End Select

Merci

[MarcelG]

Salut,

Tu as bien fait d'utiliser l'instruction Select Case
Tu pourrais tout aussi bien utiliser la valeur de la zone de liste (combobox) plutôt que son index de liste.

Ce processus pourrait être intégré à l'évènement Change de ce contrôle.

Autre remarque.
Pourquoi ne pas utiliser un Label dont le texte (Caption) serait modifié?
En effet, le rôle premier d'un contrôle Textbox reste, à mon avis, la saisie.

2 tutoriels pourraient t'être utiles (Les formulaires et les contrôles).
Ils sont intégrés à l'espace de Silkyroad.

[Gioge]

Salut,

Ce code ne fonctionne pas, je me suis dit donc, il faut ptetre que j'utilise la valeur de la combobox selectionné par l'utilisateur, mais je ne sais pas faire la synthaxe.

Sinon, j'utilise un textbox et non un label, car l'utilisateur a aussi la possibilité de saisir, dans d'autres cas

[MarcelG]

Salut Gioge,

Pour ce projet comme pour tous les autres, il te faut chercher (Ce forum, les tutoriels, Internet...)
Comme je dis toujours, même en cas d'échec, c'est avant tout la recherche qui est vecteur de formation (comme dans toute matière: mathématiques, physique...).

Au haut de la fenêtre VBE associée au formulaire, apparaisent 2 listes déroulantes.
A gauche, la fenêtre désignant les objets du formulaire; tu choisis celui de la liste déroulante (combobox).
A droite, celle des évènements; tu choisis "Change".
Tu obtiendras ainsi la première et la dernière ligne de la procédure dans laquelle sera intégrée l'instruction Select Case.

2 conseils:
1- Toujours renommer les contrôles par un label dont le préfixe indique la nature de celui-ci (exemple: Cbx_Bureau_distrib)
2- Même si elles sont tacites, toujours préciser les propriétés (Ici Txt_lechamp.Text = "toto")

A plus

[Invité]

Bonsoir,
Hors mis que je ne vois pas l'intérêt de renommer TextBox1 en TextBox_1 idem pour le 2, je trouve que tu t'en sort plutôt bien du select caise.

Mais sorti de son contexte ça n'a pas grande signification. Que veux tu faire précisément?

[Pierre Fauconnier]

Salut.

Puisque tu codes apparemment les valeurs à placer dans le textbox en dur dans ton code, je te propose une autre démarche que le select case.

Spécifie que ton combobox possède deux colonnes et précise que la seconde colonne a une largeur de 0 points. Lors de la sélection d'un item du combobox, tu passes au textbox la valeur de la deuxième colonne de l'item sélectionné. Note toutefois que les indices des lignes et colonnes d'un combo commencent à 0.

Voici une table Excel t_Choix qui contient les valeurs à charger dans ton combo





Voici les propriétés du combobox



Voici le code qui alimente le combo puis qui affiche le userform

Code :

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

1
2
3
4
5
6
Sub ShowUserform()
  With UserForm1
    .ComboBox1.List = Range("t_Choix").Value
    .Show
  End With
End Sub

Le code pour adapter la valeur du textbox sur l'événement Change du combo est alors très simple

Code :

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

1
2
3
Private Sub ComboBox1_Change()
  TextBox1.Value = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub

L'avantage de coder de cette manière est que si demain une valeur change, disparaît ou s'ajoute, tu n'as rien à modifier dans ton code. Tu adaptes simplement les valeurs dans ta table Excel en ajoutant, supprimant ou modifiant des lignes.



J'approuve bien sûr Marcel sur l'idée de bien nommer tes contrôles et ton userform et de toujours définir les propriétés, même celle par défaut, pour lever toute ambiguïté

[Gioge]

Salut à vous,

J'adapte bien sur mon code au forum, car je bosse sur un fichier entreprise, je ne suis pas autorisé a ecrire le code comme tel est dans mon fichier, donc je change tous les nom, en nom generiques

[Pierre Fauconnier]

Oui, bien sûr.

A toi donc, dans l'autre sens, d'adapter nos solutions à ta situation réelle

[Gioge]

Bonjour,

J'ai réussi à afficher la liste de fichier2 sur mon userform.combobox de mon fichier1, mais mon cas est légèrement plus compliqué que ce que vous proposer.

En effet, lorsque l'utilisateur sélectionne, disons option1 sur la liste déroulante du combobox, alors le textbox1 doit afficher une valeur1 et texbox2 doit affficher une valeur2.

La facilité ici est que valeur1, et valeur2 et option1 se situe sur la même ligne du fichier2 ( sur des colonnes differentes ), et sur la même feuille excel.

ça devrait pas être compliqué, mais pour le moment je ne vois pas,

Bien à vous

[Pierre Fauconnier]

Tu parles de quoi lorsque tu parles de fichier1 et fichier2... de fichiers Excel différents? Si oui, c'est une mauvaise idée de travailler avec les deux fichiers ouverts. Copie les infos nécessaires d'un fichier dans l'autre et travaille en local.

Pour le reste, si tu as compris la mécanique que je te propose, ça ne devrait pas être compliqué de récupérer une donnée de plus puisque tu dis qu'elles sont sur la même ligne. Il suffit normalement d'ajouter une colonne au combobox et d'étendre la plage qui le nourrit à la colonne supplémentaire.

Il serait intéressant que tu nous dises tout dès le début, histoire de ne pas jouer au chat et à la souris...

[Gioge]

Moi je travaille sur fichier1, le fichier2 n'est pas le mien c'est un fichier dont j'ai accès qu'en lecture seule, et qui se met à jour plusieurs fois dans la semaine.

Dans mon fichier1, j'ai besoin des données actualisé de ce fichier2.

Je ne peux pas donc le copier sur mon fichier, par contre je peux essayer de copier à chaque fois que j'utilise mon fichier et que je veux travailler sur ses données, si ça vaut le coup....

Il suffit normalement d'ajouter une colonne au combobox et d'étendre la plage qui le nourrit à la colonne supplémentaire.

Mon combobox doit afficher uniquement la liste prise d'une colonne, et affecter des valeurs aux textboxes differentes de celles sélectionné dans le combobox, mais qui sont sur la même ligne ( dans des colonnes differentes)

[Pierre Fauconnier]

Tu peux parfaitement copier le contenu d'un fichier en lecture seule dans ton fichier à toi.

Pour le reste de tes explications, as-tu testé ce que je t'ai proposé? As-tu compris les propriétés que j'ai illustrées, avec la seconde colonne à 0? En faisant cela, tu fais en sorte que ta liste n'affiche qu'une colonne, mais au moment de la sélection de la ligne dans le combo, tu te donnes la possibilité d'aller lire les valeurs qui se trouvent dans les colonnes masquées du combo, sur la ligne choisie?

As-tu compris cela? As-tu testé? as-tu essayé de mettre plusieurs colonnes? Sur quoi bloques-tu dans les explications que j'ai fournies?