Tableau à 2 dimension

Bonjour,

J'ai un fichier Excel avec 2 colonnes. J'ai mit la première colonne dans une Combobox1.

Je voudrait savoir lors de la sélection dans ma Combobox1 comment je peux faire pour mettre dans un Lable2 la valeur qui se trouve dans la seconde colonne de mon tableau. Il y a beacoup plus de ligne dans mon tableau.

DI	23.4
SE	34
RF	56

Les premières info je peux les mettre dans mon tableau comme suit.

Code:

---

1 2 3 4 5 6

Public TabSal As Variant   TabSal = Range("B2:C15").Value   ComboBox1.List() = TabSal

---

Et je voudrait en sélectionnant un élément dans ma combobox1 que la valeur s'affiche dans mon label2 ou je peut mettre la valeur dans un textbox, je en sais pas se qui est le plus pratique.

Merci de votre aide.

Bonjour, si c'est uniquement pour renseigner pas de problème avec des "Label", si vous souhaitez écrire quelque chose il faut un "TextBox". Voir code ci-dessous, chargement différent.

Code:

---

1 2	Label1.caption = ....... 'le résultat du choix du combo TextBox1.value = ....... 'le résultat du choix du combo

---

Cordialement 8-)

bonjour

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub ComboBox1_Change() With ComboBox1 Label1.Caption = .List(.ListIndex, 0) TextBox1.Value = .List(.ListIndex, 1) 'tu peux eventuellement masquer la colonne 2 si tu veux .ColumnWidths = "40;0" End With End Sub ' Private Sub UserForm_Activate() ComboBox1.List() = Sheets(1).Range("A1:B" & Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row).Value End Sub

---

Pièce jointe 480023

C'est exactement ce que je voulais faire merci beaucoup

Petite Question supplémentaire, avec un bouton je veux effacer tous les éléments de mon UserForm mais il meets un message d'erreur quand il passe sur la textbox.list

Le code pour effacer

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim objControl As Control   For Each objControl In UserForm1.Controls If TypeOf objControl Is MSForms.TextBox Then objControl.Text = "" ElseIf TypeOf objControl Is MSForms.ComboBox Then objControl.ListIndex = -1 End If Next objControl

---

Voici le message
Pièce jointe 480076

J'ai essayer de mettre :
objControl.ListIndex = -1 dans la boucle de Textbox mais rien n'y fait.

Merci

J'ai un autre problème avec un autre tableau à 2 dimension.

Je ne sais pas faire un "trie". Je m'explique en fonction de l'élément sélectionné dans ma combobox1 je voudrait que dans ma comboBox3 n'a apparaisse que les éléments concerné par la comboBox1

Par Exemple dans ma ComboBox1 j'ai Tata_SED

J'ai un tableau

FRI_34_SED	34,34
FRI_54_FTI	34.98
FRI_8_SED	21.12
FRI_87_SED	45.34
FRI_23_FCG	34.89

Je voudrait par exemple que tous se qui se termine par SED soit mit dans ma combobox3. Si je change dans ma combobox1 avec FCG je ceux tous les éléments se terminant par FCG.

J' essayé de chercher mais rien ne correspond à ma recherche. Ensuite il faut que j'affiche le résultats numérique dans un textbox mais ça c'est déjà résolut.

Toujours en lien avec mon tableau et surtout à l'affichage

Dans mon fichier Excel j'ai plusieurs tableaux se trouvant dans différente feuille, en fonction d'un optionbutton3, 4 ou 5 je charge mon tableau à 2 dimension correspondant.

Par contre quand je sélectionne un optionbutton4 quand je suis sur le 3, j'ai un message d'erreur qui apparait.

Pièce jointe 480154

Et la ligne de code qui se met en jaune : TextBox4.Value = .List(.ListIndex, 1)

Une fois que j'ai fini le traitement je clique sur CommandButton1 qui est mon bouton "OK" pour écrire sur une nouvelle feuille les informations rempli dans mon UserForm1, et je voudrait que toutes les infos se trouvant dans mon UserForm1, Frame1 soit vide. Ca rejoint un peu ma question précédente avec mon bouton effacer (CommandButton2).

Merci du coup de main, j'ai un peu de mal avec certaine notion. Désolé.

Bonjour

tout ce que tu demande dans cet exemple

1. deux optionbutton qui remplissent la combo en fonction de leur état
2. le clic combo rempli le label et le textbox
3. le bouton "tout effacer" efface tout ce qui est dans la Frame1

Merci pour l'exemple, j'ai vue où été mes erreurs.

Je me suis mal exprimer pour la combobox.

J'ai une combobox1 qui me donne le premier tableau qui me rempli la textbox1. Dans UserForm1 (Pour le moment, je ne sais pas si je l'efface avec le bouton ou pas)

J'ai 3 optionButton (Dans UserForm1) qui me remplissent une combobox2 (Dans Frame1).

Et je voudrait faire un tri pour afficher que les éléments en rapport avec ma combobox1 dans la Combobox2.

Et que les informations ce mette dans textbox2 et label2 par exemple.

Et quand je clique sur effacer tous se qui se trouve dans le frame1 (Certain Label, les textbox et les combobox) soient vidés et en rappuyant sur les OptionButton la combobox se recharge.

Le souci que j'ai, quand je passe d'un optionbutton à l'autre, et que le textbox est rempli il me mets le message d'erreur que j'ai mit précédemment.

Je joint une capture de mon Userform pour une meilleur compréhension

Pièce jointe 480439

Dans le cas de la capture c'est les optionbuttion3, 4 et 5. qui remplit une combobox3 en fasse le label5 et l'information doit se trouver dans le textbox4 qui est juste à coté.

La Combobox1 est tous en haut avec le Textbox3.

Le CommandButton1 c'est OK, le 2 : effacer et le 3 : Annuler

Si il faut je fourni le fichier mais il y a pas mal de chose qu'il faut que je modifie ( au niveau des donnée, mais le principe est dans l'exemple plus haut.

Merci du coup de main, je patauge un peu à vrai dire.:oops::mur:

Une partie de mon problème est résolu.

J'ai pas fait attention à l'évènement j'avais change au lieu de clique. Ca fonctionne forcement beaucoup mieux avec le bon évènement. :oops:

Par contre je n'ai pas encore trouvé la solution pour la recherche de mes éléments dans mon tableau pour l'afficher

Patrick,

Je suis repartis de l'exemple que tu m'as donné pour expliciter ma demande.

Pièce jointe 481216

Quand j'ai un mon qui est sélectionné dans la comboBox entouré en rouge, que je puisse uniquement afficher les éléments en bleu dans la seconde Combobox.

Et évident que les valeurs ce mettent dans le textbox2 et le Label2

Merci

re
applique un filtre avec "*" & valeur combo1 &"*" sur la plage
récupère le specialcells(xlvisible ).value dans la combo2

Désolé, mais la fonction filtre je ne l'ai jamais utilisé.

Citation:

---

applique un filtre avec "*" & valeur combo1 &"*" sur la plage
récupère le specialcells(xlvisible ).value dans la combo2

---

je pense comprendre que devant et derrière les * je doit mettre du code et je lui dit qui doit aller me trouver la valeur que j'ai dans la Combobox

Mais la seconde ligne je ne vois pas ce que c'est.

Je sais que ce n'ai pas dans les habitudes mais peut te me donner la solution, car la je ne vois pas comment m'en sortir. Il ne me reste que ce problème à résoudre ensuite toutes les autres fonctions que j'ai mise dans mon UserForm sont faite.

Merci beaucoup

sinon façon débutant tu a 5 lignes a scruter

Code:

---

1 2 3 4 5 6 7

private sub combobox1_click() combobox2.clear for i= 1 to 5 if cells(i,1) like"*" & combobox1.value &"*" then combobox2.additem cells(i,1).value next end sub

---

Je vais essayer, mais le premier tableau que je doit regarder à 269 lignes, le second 56 lignes et on ne m'as pas encore donné 2 autre tableau qu'il vas falloir que j'intègre plus tard.

les tableaux ne sont pas sur les mêmes feuilles

Voici la solution d'un collègue

Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

If OptionButton3.Value = True Then v_Sheet = "Feuil1" End if   DernLigne = Sheets(v_Sheet).Range("A1048576").End(xlUp).Row   For i = 1 To DernLigne If Sheets(v_Sheet).Cells(i, 2) Like "*" & NomSalle Then ComboBox3.AddItem Sheets(v_Sheet).Cells(i, 2).Value End If Next

---

Pour une autre solution je suis preneur

bonjour
ben ca fonctionne oui !! .pour le moment ;)
c'est pas bien encapsulé a mon avis

c'est quoi ceci

Code:

---

1 2 3

If OptionButton3.Value = True Then v_Sheet = "Feuil1" End if

---

pour quoi tu a plusieurs optionbuttons
et si ca en est un autre qui est a true ,c'est quoi qui change ?????
d'autre part meme si ca fonctionne je ne vois pas l'interet de modifier une variable string dans ton dernier model
en effet tu fait dans le if (TOUT SEUL!!!)

Code:

---

v_Sheet = "Feuil1"

---

et dans le reste du code tu fait

Code:

---

DernLigne = Sheets(v_Sheet).Range("A1048576").End(xlUp).Row

---

puis boucle sur les lignes

donc je suppose que si tu a des optionbuttons c'est pour modifier la plage de référence

il serait bien de bien le determiner
exemple comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

'pour l'exemple on change de feuille selon l'optionbutton Select Case True   Case optionbutton3.Value = True Set rang = Sheets("Feuil1").Range("B1:B" & Sheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row)   Case optionbutton4.Value = True Set rang = Sheets("Feuil2").Range("B1:B" & Sheets("Feuil2").Cells(Rows.Count, "A").End(xlUp).Row)   'etc..etc....   End Select ' ' maintenant que l'on a notre colonne selon l'optionbutton on remplie la combo avec For Each cel In rang.Cells If cel.Value Like "*" & NomSalle Then ComboBox3.AddItem cel.Value Next   End If

---

Bonjour,

Oui j'ai plusieurs OptionButton, ils vont chercher les éléments que j'ai dans mes feuilles de mon classeur mais il faut aussi qu'il n'y ai que les valeurs qu'il y a dans ma Combobox1.

Pour le moment ça vas.

Mais quand je vois certain tableau je pense qu'il faut que je trie en fonction des valeurs :

Si c'est entre telle et telle valeur alors il faut l'afficher dans la combobox3. mais c'est valeurs sont variables en fonction de l'élément sélectionner dans la combobox1.

Mais pour le moment je ne vais pas m'attaquer à ce code car je ne sais pas encore comment je faire pour aller récupérer l'information car je doit me conformer à un fichier Excel qui m'est fourni et il n'est pas comme je voudrait pour récupérer facilement les données.

Merci du coup de main.