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.

[karimus00]

Je suis désolé mais je ne comprends pas.

Voila mon code, je suis novice en vba.

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Public Sub remp()
 
Debug.Print "Début du code à " & VBA.Time & vbCrLf
 
'feuille sur laquelle on travaille
Set wsM = ThisWorkbook.Worksheets("FED MODEL")
 
'plage avec la valeur de Y2PE
Set rgY2PE = wsM.Range("D2")
 
'avoir la taille des tableaux
DerniereLigne = Range("D1").End(xlDown).Row
 
'création du vecteur de date nettoyé
 
'Remplacement des valeurs manquantes de Y2 PE RATIO par 0
'On met le tableau Y2 PE dans le tableau vY2PE
 
    i = 0
    ReDim vY2PE(i)
 
        For i = 0 To DerniereLigne
            ReDim Preserve vY2PE(i) 'preserv: sert à redimensionner le vecteur et à garder les valeurs qui étaient dedans
            vY2PE(i) = rgY2PE(i + 1)
        Next i
 
 
'choix de la méthode de remplacement
 
'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
 
End Sub

et c'est que je voudrais c'est savoir si y a un moyen de remplacer la inmput box par une liste ou je peux directement choisir ma méthode, j'ai pensé à une listbox. C'est juste ?

[Daniel.C]

Regarde le classeur joint. Il faut que tu ajoutes tes feuilles. Ne change pas le nom "Feuil1" de la feuille contenant la listbox. Si tu le fais, tu dois modifier le code également.

[karimus00]

Merci je vais voir ca tout de suite.

Merci encore