Discussion :

[karimus00]

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

[Daniel.C]

Bonjour,

Pour une ListBox sur feuille, mans le module "ThisWorkbook", mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
With Sheets("Feuil1").ListBox1
    .AddItem "Tapez 1 pour remplacer par 0"
    .AddItem "Tapez 2 pour remplacer par la valeur précédente"
    .AddItem "et 3 pour interpoler"
End With
End Sub

Dans le module de la feuille, mets :

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
Private Sub ListBox1_Change()
    Select Case Me.ListBox1.ListIndex + 1
 
        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
End Sub

[karimus00]

Bonjour,

j'ai une erreur à l’exécution, "utilisation incorrecte du mot clé Me"

[Daniel.C]

Surprenant. Où as-tu mis ta listbox ? sur une feuille ou sur un userform ?

[karimus00]

dans un module. c'est bien ça qu'il fallait faire ?

[Daniel.C]

Non, je ne parle pas du code (il est toujours dans un module) mais de la listbox, où est-elle ? Ta réponse me fait toutefois penser que la macro n'est pas dans le module de la feuille mais dans module standard. Fais un clic droit sur l'onglet de la feuille contenant la listbox, clique sur "Visualiser le code" et colle la macro dans la fenêtre qui s'ouvre.