COMBOBOX : alimenter 2 combobox usf et afficher intersection

[al2008]

Bonsoir,

je débute avec Vba Excel 2003.
J'utilise un userform qui contient 2 combobox
la combobox1 : affiches les données dans la première colonne
la combobox2 : affiches les données dans la première ligne

la texbox1 doit afficher les données à l'intersection des données choisies par
l'utilisateur dans les 2 combos.

Je vous transmets un fichier d'exemple.

Merci pour votre aide et bonnes fêtes.

 

[PMO2]

Re : COMBOBOX : alimenter 2 combobox usf et afficher intersection

Bonjour,

Essayez avec votre code modifié

Const FEUILLE As String = "Feuil1"

Private var

Private Sub ComboBox1_Change()
ChargeTextBox
End Sub

Private Sub ComboBox2_Change()
ChargeTextBox
End Sub

Public Sub ChargeTextBox()
If ComboBox1 = "" Or ComboBox2 = "" Then Exit Sub
TextBox1 = var(ComboBox1.ListIndex + 2, ComboBox2.ListIndex + 2)
End Sub

Private Sub UserForm_Initialize()
Dim S As Worksheet
Dim R As Range
Dim i& Set S = Sheets(FEUILLE)
Set R = S.[a1].CurrentRegion
var = R
For i& = 2 To UBound(var, 1)
  ComboBox1.AddItem var(i&, 1)
Next i&
For i& = 2 To UBound(var, 2)
  ComboBox2.AddItem var(1, i&)
Next i&
End Sub

Cordialement.

PMO
Patrick Morange

 

[al2008]

Re : COMBOBOX : alimenter 2 combobox usf et afficher intersection

Merci Patrick ça fonctionne bien !
bonne soirée