VBA et liste déroulante

Version imprimable

22/04/2013, 14h06
morpheus54400

1 pièce(s) jointe(s)

VBA et liste déroulante

Bien le Bonjour,

Je permet de me présenter vaguement et rapidement (1er post sur ce Forum) :ccool:

Alias Morpheus, Etudiant, Actuellement en stage d'un DUT GMP, maybe en école d'ingénieur l'année prochaine.

Et si je viens sur une telle plateforme tel que la votre, c'est parce que le sujet de mon dit stage est de la Gestion de production. Et pour cela il faut faire de beaux tableaux Excel pour répertorier tous les temps de prod...

Voilà ce que je doit faire : Le tableau ci-joint doit me permettre au moyen d'une liste déroulante, d'afficher les temps des Phases (feuille Valeurs) parmi 3 références inscrites dans le menu déroulant (Empreintes).

Le soucis c'est que j'arrive pas à assigner ma liste créée à un codage VBA qui me permettrait d'afficher les valeurs propres à la référence dans mon tableau.

Je demande pas qu'on me fasse tout le boulot, juste un coup de pousse pour me lancer...

comment pourrais-je donc faire ?

Merci pour votre lecture ;)
22/04/2013, 15h13
Igloobel

Salut,

bon j'ai pas regarder ton fichier excel mais au vu de ce que as écrit
Pour te lancé comme tu dis

2 cas
-soit chargement de la liste ds un tableau en mémoire
expl:tablo (4)=12
ou par la cde Array

-soit chargement de ta combobox par additem
expl : Cbx1.additem valeur

a ça tu rajoutes une boucle For avec un indice i pour charger ta combobox

voilà tu nous ponds quelquechose

et on viendra te corriger ;)

a+
23/04/2013, 09h00
morpheus54400

1 pièce(s) jointe(s)

Bien le bonjour :)

Merci pour cette réponse relativement rapide ! Alors pendant que vous me répondiez hier j'étais parti en mode "conquérant" et j'ai pondu un Codage qui marche certes, mais qui m'a l'air pas très optimisé. (mais bon tant que ça marche). Je laisse regarder en pièce jointe :ccool: et je suis paré à toute critique car je dois faire ce genre de tableur encore 3 fois.

A++
23/04/2013, 16h36
Igloobel

Je peux pas ouvrir du rar
Tu peux pas utiliser le bouton # pour y inserer ton code ce serais plus simple
pour nous

Okay,
Alors voilà, j'ai utilisé 1 variable pour faire varier les valeurs (et couleur de certaines cellules). Ca m'a l'air tiré par les cheveux mais ça marche !

Code:

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
Sub macro_liste()
Dim reference As Integer
reference = Cells(1, 1)
 
If reference = 1 Then
 
    Cells(4, 3) = 0.05
    Cells(5, 4) = 4
    Cells(6, 4) = 1
    Cells(7, 4) = 0.1
    Cells(8, 3) = 0.05
    Cells(10, 3) = 0.05
    Cells(11, 4) = 4
    Cells(12, 4) = Empty
    Cells(13, 4) = 0.08
    Cells(14, 4) = 0.1
    Cells(15, 3) = 0.05
    Cells(17, 3) = 0.05
    Cells(18, 3) = 0.5
    Cells(18, 4) = 12
    Cells(19, 3) = 0.5
    Cells(19, 4) = 6
    Cells(20, 4) = 2
    Cells(21, 4) = 0.5
    Cells(22, 3) = 0.05
    Cells(24, 3) = 0.05
    Cells(25, 4) = 1
    Cells(26, 4) = Empty
    Cells(27, 4) = 1
    Cells(28, 3) = 0.05
 
        Range("D12,D26").Select
    Range("D26").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.599963377788629
        .PatternTintAndShade = 0
        Range("E2").Select
    End With
 
End If
 
If reference = 2 Then
 
    Cells(4, 3) = 0.05
    Cells(5, 4) = 4
    Cells(6, 4) = 1
    Cells(7, 4) = 0.1
    Cells(8, 3) = 0.05
    Cells(10, 3) = 0.05
    Cells(11, 4) = 4
    Cells(12, 4) = Empty
    Cells(13, 4) = 0.08
    Cells(14, 4) = 0.1
    Cells(15, 3) = 0.05
    Cells(17, 3) = 0.05
    Cells(18, 3) = 1
    Cells(18, 4) = 9.5
    Cells(19, 3) = 0.5
    Cells(19, 4) = 10
    Cells(20, 4) = 2
    Cells(21, 4) = 0.5
    Cells(22, 3) = 0.05
    Cells(24, 3) = 0.05
    Cells(25, 4) = 0.5
    Cells(26, 4) = 1
    Cells(27, 4) = 0.25
    Cells(28, 3) = 0.05
 
        Range("D26").Select
    Range("D26").Activate
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
        Range("E2").Select
    End With
 
End If
 
If reference = 3 Then
 
    Cells(4, 3) = 0.05
    Cells(5, 4) = 4
    Cells(6, 4) = 1
    Cells(7, 4) = 0.1
    Cells(8, 3) = 0.05
    Cells(10, 3) = 0.05
    Cells(11, 4) = 4
    Cells(12, 4) = Empty
    Cells(13, 4) = 0.08
    Cells(14, 4) = 0.1
    Cells(15, 3) = 0.05
    Cells(17, 3) = 0.05
    Cells(18, 3) = 1
    Cells(18, 4) = 9.5
    Cells(19, 3) = 0.5
    Cells(19, 4) = 1.75
    Cells(20, 4) = 2
    Cells(21, 4) = 0.5
    Cells(22, 3) = 0.05
    Cells(24, 3) = 0.05
    Cells(25, 4) = 0.5
    Cells(26, 4) = Empty
    Cells(27, 4) = 0.25
    Cells(28, 3) = 0.05
 
            Range("D12,D26").Select
    Range("D26").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.599963377788629
        .PatternTintAndShade = 0
        Range("E2").Select
    End With
 
End If
End Sub