Afficher dans un TextBox les valeurs issues de 2 ComboBox

**phiphi27700** · 05/04/2019, 14h13

Bonjour à tous je cherche un code VBA pour Excel 2010
J’ai dans Userform une comboBox qui contient une liste correspondant à des noms de feuille (2002_2003 ;2003_2004 ;2004_2005 etc..). A côté une autre ComboBox avec une liste de nom de personne puis des TextBox, quand je sélectionne une personne je vais chercher les données dans ; je sélectionne exemple: 200_2003 je vais chercher dans cette feuille les données correspondantes à la personne choisit le nom se trouve en colonne B :B et les données dans les colonnes suivantes. Et cette donnée je veux qu’elle s’affiche dans la TextBox1, une autre donnée en TextBox2 de la colonne suivante etc…
Pas facile à expliquer
A l’avance merci
Phiphi

**BENNASR** · 05/04/2019, 14h22

bonsoir
pour gagner de temps peux tu joindre un fichier avec données fictives et sans macro ?
et expliquer avec un exemple concret

**phiphi27700** · 05/04/2019, 15h17

Bonjour et merci pour ta demande voilà un petit fichier très simplifié de mes données.
A l'avance merci

**BENNASR** · 05/04/2019, 15h52

avant de continuer merci de tester le remplissage de nom en fonction du choix num1
nb:
j'ai modifier le remplissage initial du combobox numéro1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Saison_Change()
Dim CodeR As String
Dim sh As Worksheet
Nom.Clear
onglet = Saison.Value
Set sh = Sheets(onglet)
tablo = sh.Range("A4", "D" & sh.Range("D" & sh.Rows.Count).End(xlUp).Row)
For i = LBound(tablo, 1) To UBound(tablo, 1)
    If tablo(i, 1) <> "" Then
         Nom = tablo(i, 2)
         Nom.AddItem tablo(i, 2)
    End If
Next i
End Sub
 
 
 
Private Sub UserForm_Initialize()
Dim ws As Worksheet
Saison.Clear
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Données" Then
            Saison.AddItem ws.Name
 
        End If
    Next ws
End Sub