Discussion :

[Nico451]

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 :

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

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.

[Transitoire]

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 :

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

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

Cordialement

[patricktoulon]

bonjour

Code :

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

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

[Nico451]

C'est exactement ce que je voulais faire merci beaucoup

[Nico451]

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 :

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

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


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

Merci

[Nico451]

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.