AFFICHE VALEUR DANS TextBox

mordious · 21 Janvier 2014

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 · 21 Janvier 2014

Re : AFFICHE VALEUR DANS TextBox

Bonjour,

une proprosition

Code:

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 · 21 Janvier 2014

Re : AFFICHE VALEUR DANS TextBox

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

Paf · 21 Janvier 2014

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 · 21 Janvier 2014

Re : AFFICHE VALEUR DANS TextBox

super marche nikel

merci

AFFICHE VALEUR DANS TextBox

mordious

XLDnaute Occasionnel

Pièces jointes

Guest

Guest

fanfan38

XLDnaute Barbatruc

Pièces jointes

Paf

XLDnaute Barbatruc

mordious

XLDnaute Occasionnel

Discussions similaires

AFFICHE VALEUR DANS TextBox

mordious

XLDnaute Occasionnel

Pièces jointes

Guest

Guest

fanfan38

XLDnaute Barbatruc

Pièces jointes

Paf

XLDnaute Barbatruc

mordious

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency