re,
Sinon je voudrais aller un peu loin si possible en renvoyant un message d'erreur
si l'un ou l'autre des deux nombres saisi n'existe pas dans la matrice
Dans l'USF remplace le code par celui-ci après :
Private Sub CommandButton1_Click()
'Macro Dan pour BAHK le 22/02/13
Dim lg As Integer
Dim cl As Byte
If ComboBox1.Value <> "" And ComboBox2.Value <> "" Then
With Sheets("Bareme")
lg = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row).Find(ComboBox1.Value, LookIn:=xlValues, SearchOrder:=xlByRows, MatchCase:=False).Row
cl = .Range(Cells(1, 2), Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column)).Find(ComboBox2.Value, LookIn:=xlValues, SearchOrder:=xlByColumns, MatchCase:=False).Column
End With
TextBox3 = Cells(lg, cl)
Else: MsgBox "Veuillez compléter les deux combobox !!"
End If
End Sub
Amicalement