Bonjour à tous!

J'aurais besoin de vos lumières si possible pour une macro que je fais dans mon entreprise.
Je m'explique:
En fonction d'une valeur choisie dans une combobox (par exemple "A2", provenatn d'une feuille de calcul), je souhaite que la valeur "B2" soit inscrite dans une textbox d'une userform. (idem pour "C2", "D2", etc)
Pour le moment, je tourne en rond, et j'aimerais éviter d'inscrire toute une liste de IF/ElseIf/EndIf ....
(du genre ce qui suit....)
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
28
29
30
31
32
'line 3
    If ComboBox5.Value = Worksheets("OF_L3").Range("A2") Then
                    TextBox6.Text = Worksheets("OF_L3").Range("B2").Value
                    TextBox7.Text = Worksheets("OF_L3").Range("C2").Value
                    TextBox8.Text = Worksheets("OF_L3").Range("D2").Value
                    TextBox15.Text = Worksheets("OF_L3").Range("E2").Value
 
                    TextBox9.Text = Worksheets("OF_L3").Range("F2").Value
                    TextBox10.Text = Worksheets("OF_L3").Range("G2").Value
                    TextBox11.Text = Worksheets("OF_L3").Range("H2").Value
 
                    TextBox14.Text = Worksheets("OF_L3").Range("L2").Value
                    TextBox13.Text = Worksheets("OF_L3").Range("M2").Value
                    TextBox12.Text = Worksheets("OF_L3").Range("N2").Value
 
            ElseIf ComboBox5.Value = Worksheets("OF_L3").Range("A3") Then
 
                            TextBox6.Text = Worksheets("OF_L3").Range("B3").Value
                            TextBox7.Text = Worksheets("OF_L3").Range("C3").Value
                            TextBox8.Text = Worksheets("OF_L3").Range("D3").Value
                            TextBox15.Text = Worksheets("OF_L3").Range("E3").Value
 
                            TextBox9.Text = Worksheets("OF_L3").Range("F3").Value
                            TextBox10.Text = Worksheets("OF_L3").Range("G3").Value
                            TextBox11.Text = Worksheets("OF_L3").Range("H3").Value
 
                            TextBox14.Text = Worksheets("OF_L3").Range("L3").Value
                            TextBox13.Text = Worksheets("OF_L3").Range("M3").Value
                            TextBox12.Text = Worksheets("OF_L3").Range("N3").Value
 
 
    End If
Un grand merci d'avance pour votre aide!

Romain