Valeur mise automatiquement dans une userform

[Raphou96]

Salut


J'ia un petit soucis et j'arrive pas à trouver la bonne solution

J'ai un tableau de valeur

J'ai une userform

Je selectionne grace à un menu déroulant une valeur qui correspond à la colonne A de mon tableau et dans les textbox je veux les remplir automatiquement à chaque changement du menu déroulant avec les colonnes B et C de mon tableau.

Une info je ne sais pas si elle a son importance, mon tableau originale aura 5000 lignes.


Je vous place un fichier exemple


Merci

 

[Raphou96]

Mais heu !!!!
J'ai oublié mon fichier

[file name=Choix.zip size=6370]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Choix.zip[/file]

 

[mutzik]

Bonjour Raphou96

Voir la réponse dans le fichier joint. Pour info, dans le choix d'une liste, le premier élément = listindex(0) d'ou le +2 dans mon code [file name=Choix_20050914081655.zip size=9846]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Choix_20050914081655.zip[/file]

 

[Raphou96]

C'est une affaire qui roule et toute simple en plus

Je te remercie et bonne journée

 

[_Thierry]

Bonjour Raphou, Mutzik, le Forum

Une autre approche par Array, qui sera plus rapide que de travailler en ListIndex sur les range en RowSource sur un grand Tableau.

Option Explicit

Private TabData As Variant

Private Sub UserForm_Initialize()
    With Sheets('Feuil1')
        TabData = .Range(.Range('A2'), .Range('C65536').End(xlUp))
    End With
   
    With Me.CB_01
        .List() = TabData
        .MatchRequired = True
    End With
End Sub

Private Sub CB_01_Change()
    With Me.CB_01
        Me.TB_01 = TabData(.ListIndex + 1, 2)
        Me.TB_02 = TabData(.ListIndex + 1, 3)
    End With
End Sub

Bonne Journée
[ol]@+Thierry[/ol]

 

[Raphou96]

Je te remercia je vais essayer ton code et voir celui des deux qui ira le mieux pour moon programme.

En tout cas c'est sympa de m'avoir trouver la solution.