bonjour,

J'ai une input box pour choisir entre trois méthodes, je voudrais la remplacer par une liste de ces méthodes, par exemple une listbox, comment faire ?

voici mon code
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
'Choix de la méthode
 
j = InputBox("Tapez 1 pour remplacer par 0, 2 pour remplacer par la valeur précédente, et 3 pour interpoler", "Méthode de remplacement", 1)
 
Select Case j
 
    Case 1
    vRempZ = fnZero(vY2PE)
    Sheets("FED MODEL").Range(Cells(2, 5), Cells(UBound(vRempZ), 5)).Value = Application.Transpose(vRempZ)
 
    Case 2
    vRempP = fnPrevious(vY2PE)
    Sheets("FED MODEL").Range(Cells(2, 5), Cells(UBound(vRempP), 5)).Value = Application.Transpose(vRempP)
 
    Case Else
    vRempI = fnInter(vY2PE)
    Sheets("FED MODEL").Range(Cells(2, 5), Cells(UBound(vRempI), 5)).Value = Application.Transpose(vRempI)
 
End Select
Merci d'avance