AFFICHE VALEUR DANS TextBox

[mordious]

Bonjour

j'ai un userform contenant
1 ComboBox1 avec liste
2 TextBox pour les résultats
je souhaite que lorsque je sélectionne un mon dans la combobox les résultats de la Feuil 2 s'affiches dans les TextBox

ci-joint fichier

Cordialement

 

[Guest]

Re : AFFICHE VALEUR DANS TextBox

Bonjour,

une proprosition

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then
    With Range(ComboBox1.RowSource)
        TextBox1.Value = .Item(ComboBox1.ListIndex + 1, 2)
        TextBox2.Value = .Item(ComboBox1.ListIndex + 1, 3)
    End With
End If
End Sub

A+

 

[fanfan38]

Re : AFFICHE VALEUR DANS TextBox

Bonjour
Ci joint la réponse à ta question...
A+ François

 

[Paf]

Re : AFFICHE VALEUR DANS TextBox

Bonjour

les éléments d'une combobox ont un indice; le premier élément à comme indice 0, le deuxième 1 ...

ce premier élément se situe en ligne 2 de la feuille 2, le second en ligne 3 ...
Donc avec l'indice de la combobox + 2 on obtient le n° de ligne

Pour les couleurs : on a rouge en colonne C (ou 3) et vert en colonne D (ou 4)

il faut mettre dans la textbox1 la valeur de la cellule de coordonnées (ligne:indice de la combobox + 2,colonne :3)

TextBox1 = worksheets("Feuil2").Cells(ComboBox1.ListIndex + 2, 3)

même principe pour l'autre textbox

A+

Edit: trop tard; bonjour à tous

 

[mordious]

Re : AFFICHE VALEUR DANS TextBox

super marche nikel

merci