Afficher dans un TextBox les valeurs issues de 2 ComboBox

Version imprimable

05/04/2019, 14h13
phiphi27700

Afficher dans un TextBox les valeurs issues de 2 ComboBox

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
05/04/2019, 14h22
BENNASR

bonsoir
pour gagner de temps peux tu joindre un fichier avec données fictives et sans macro ?
et expliquer avec un exemple concret
05/04/2019, 15h17
phiphi27700

1 pièce(s) jointe(s)

Fichier Excel pour Code VBA afficher dans un TextBox les valeurs issues de 2 ComboBox

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

1 pièce(s) jointe(s)

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:

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

05/04/2019, 16h06
BENNASR

1 pièce(s) jointe(s)

voila un exemple comment remplir le textbox6 réservé à la date de naissance
05/04/2019, 16h10
phiphi27700

Code VBA afficher dans un TextBox les valeurs issues de 2 ComboBox

Merci BENNASR pour le retour mais j'aurai voulu que les TextBox se remplissent aussi.
Merci
05/04/2019, 16h15
BENNASR

voir réponse -1
05/04/2019, 16h59
phiphi27700

Code VBA afficher dans un TextBox les valeurs issues de 2 ComboBox

Je n'arrive pas a remplir les autres TextBox
Merci

bonsoir
modifiez ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Nom_Change()
 
Dim sh As Worksheet
onglet = Saison.Value
Set sh = Sheets(onglet)
tablo = sh.Range("A4", "G" & sh.Range("G" & sh.Rows.Count).End(xlUp).Row)
adhérant = Nom.Value
For i = LBound(tablo, 1) To UBound(tablo, 1)
    If tablo(i, 2) = adhérant Then
         TextBox6.Value = CDate(tablo(i, 3))
         TextBox7.Value = tablo(i, 5)
         TextBox8.Value = tablo(i, 6)
         TextBox9.Value = tablo(i, 7)
 
    End If
Next i
End Sub

05/04/2019, 17h18
phiphi27700

Code VBA afficher dans un TextBox les valeurs issues de 2 ComboBox

Merci BENNASR entre temps je venais de trouvez
probléme résolu
Merci