bonjour j'ai créé une combobox sur une feuille excel et je souhaiterai que lorsque je choisi un élément de la liste et je voudrai que la cellule adjacente affiche une formule relative à l'élément séléctionné. (pour celà j'ai créer un tableau).
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
Sub userform_initialize()
    With feuil1
        Set S = .DropDowns.Add(.Cells(14, 2).Left, .Cells(14, 2).Top, .Range(Cells(14, 2), _
                                                                             Cells(14, 3)).Width, .Cells(14, 2).Height)
    End With
 
    tl(0, 0) = "Générale SNCF"
    tl(0, 1) = "0.65*L+13*n+0.01*L*V+0.03*V^2"
    tl(1, 0) = "DB BR201"
    tl(1, 1) = "0,96+3.83*((V+20)/100)^2"
    tl(2, 0) = "DB BR211"
    tl(2, 1) = "1.37+4.95*(v/100)^2"
    tl(3, 0) = "DB BR212"
    tl(3, 1) = "1.39+4.95*(V/100)^2"
    tl(4, 0) = "DB BR215"
    tl(4, 1) = "2.80+3.48*(V/100)^2"
    S.Select
 
    S.Name = "CbLoco"
 
    S.List = Array(tl(0, 0), tl(1, 0), tl(2, 0), tl(3, 0), tl(4, 0))
End Sub
J'ai essayé de faire une commande actualize mais ça ne marche pas du tou, j'ai un message d'erreur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Sub S_actualize()
 
feuil1.Cells(14, 4).Value = tl(cbloco.ListIndex - 1, 1)
End Sub
Est-ce que quelqu'un a une idée, je n'ai pas envie de faire une userform, j'en ai déjà plusieurs.