Limiter les Structures décisionnelles If Then

**KingKev** · 28/01/2011, 16h57

Bonjour , j'ai crée une série de fonctions qu'on appelera f1,f2,f3, etc...
je voudrais que quand l'utilisateur rentre 1 dans une cellule (prenons par exemple la cellule [A1] ) creer un bouton exécutant la fonction f1.
Je n'ai pas vraiment de problème pour faire ça car il me suffit d'écrire

Code :

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

1
2
3
if [A1]=1 then f1
if [A2]=2 then f2
...

Mais bon tout ça est très lourd à écrire quand le nombre de fonction et de paramètres est important. Je voudrais pouvoir juste écrire:

Code :

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

1
2
n=[A1]
fn

Seulement ça ne marche pas probablement parce que le n assigné n'est pas le même que le n dans le nom de la fonction (et c'est bien normal sinon on ne pourrait pas créer beaucoup de variables). Bref c'etait pour illustrer mon problème. Auriez vous une solution me permettant de ne pas multiplier les boucles if ?

Merci!

**tedo01** · 28/01/2011, 17h47

Bonjour,
Une solution possible est d'écrire une fonction générique fn :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Publi Function fn(intNum As Integer, param1, param2...)
Select Case intNum
Case 1
   fn = f1( param1, param2...)
Case 2
   fn = f3( param1, param2...)
Case 3
   fn = f3( param1, param2...)
Case Else
   MsgBox "Erreur : fonction non prévue"
End Select
End Function

Comme ça tu peux appeler fn() avec en paramètre le numéro de la fonction.

**KingKev** · 31/01/2011, 10h09

Bonjour, j'ai testé et excel me renvois une erreur alors je ne sais pas si c'est ma formulation qui est incorrect ou si on ne peut pas procéder ainsi.
J'ai imbriqué plusieurs "cases" les uns dans les autres, car j'avais 3 paramètres , je ne sais pas si c'est ça qui le fait bugguer

Je vous montre le code (je ne copie pas tout en entier seulement une partie ça suffira pour que vous compreniez):

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
Public Function A(epaisseur As Integer, axe As Integer, temperature As Integer, t)
 
Select Case epaisseur
 
Case 80
 
Select Case axe
 
Case 1
 
Select Case temperature
Case 165
A = 10.489 * (t / 60) ^ 0.0547
Case 170
A = 10.532 * (t / 60) ^ 0.0717
Case 175
A = 10.792 * (t / 60) ^ 0.0675
Case 180
A = 11.528 * (t / 60) ^ 0.0228
End Select
 
(...)
End Select
(...)
End Select

Après je lance la fonction

A(80,1,165,120) où 120 est ma variable t (120 minutes) et il me renvoie une erreur.

Savez vous d'où ça vient ?

Merci!

**Qwazerty** · 31/01/2011, 10h21

Salut
Vu la structure que tu cherches à réaliser, je suppose que tu fonctionne avec un abaque qui te donne pour des valeur donné de T°,axe et épaisseur, des valeurs X et Y à utiliser dans ta formule (A = X * (t / 60) ^ Y).
Si c'est bien le cas il serait intéressant de faire un tableau contenant cet abaque et d'aller chercher directement les valeurs de X et Y.

++
Qwaz

**KingKev** · 31/01/2011, 10h31

Salut,
oui en effet je travaille avec des valeurs prédéfinies de T°c température, epaisseur et axe (1,2 ou 3) et toutes mes fonctions sont de la forme X*(t/60)^Y. Mais le truc c'est que j'ai 3 paramètres il me faudrait donc un tableau à 3 entrées ou 3 tableaux à 2 entrées. Le tout multiplié par 5 étant donné que j'ai 5 fonctions dans ce genre là... Bref je n'ai pas envie de dresser tous ces tableaux.
Savez vous ce qui cloche dans le code ci-dessus ? N'as-t'on pas le droit d'imbriquer les select case les uns dans les autres?

**Qwazerty** · 31/01/2011, 10h39

Salut
Désolé de me faire si insistant mais réaliser les tableaux te prendra bien moins de temps que de faire un code avec des Select Case imbriqué, tu imagines le nombre de select case que tu vas avoir.
Un autre avantage avec les tableaux c'est le maintient de ton code, une erreur dans tant de boucle est introuvable, alors qu'il est facile de relire tes tableaux pour voir si toutes les valeurs sont bien OK.
++
Qwaz

**Godzestla** · 31/01/2011, 10h41

Diantre,

merci de rectifier le titre de ce post.
IF n'est JAMAIS une boucle, mais la condition d'exécution d'un groupe d'instructions.

C'est aussi erroné que de dire qu'une tulipe est un sapin.

**Qwazerty** · 31/01/2011, 10h48

Re, Godz

Si tu t’estimes suffisamment prévenu de la lourdeur de ce que tu es en train de mettre en place, voila ton code modifié

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
Sub test()
Dim Retour As Double
Retour = A(80, 1, 170, 120)
End Sub
 
Public Function A(epaisseur As Integer, axe As Integer, temperature As Integer, t)
Dim dX As Double, dY As Double
 
Select Case epaisseur
Case 80
 
    Select Case axe
    Case 1
 
        Select Case temperature
        Case 165
            dX = 10.489
            dY = 0.0547
        Case 170
            dX = 10.532
            dY = 0.0717
        Case 175
            dX = 10.792
            dY = 0.0675
        Case 180
            dX = 11.528
            dY = 0.0228
        End Select
 
    '(...)
    End Select
'(...)
End Select
 
A = dX * (t / 60) ^ dY
 
End Function

Mais a mon avis, on se revoit dans un autre message dans quelques temps pour adapter ton problème avec des tableaux.

Bon courage
Qwaz

**KingKev** · 31/01/2011, 10h48

Qwazerty oui je sais que ça fait pas mal de select case (ça fait exactement 36 cas par fonction) mais je l'ai déjà fait et pas les tableaux et je ne crois pas qu'il faut beaucoup de changement pour qu'il marche (désolé d'être également insistant^^).

Godzestla désolé je ne savais pas qu'on ne pouvait pas parler de boucle avec if, c'est comme ça qu'on me l'avait présenté la première fois en cours de maple.

Ah oui présenté comme ça fait quand même pas mal de changement ... Je vais voir ce que peux faire.

Merci en tout cas!

**Godzestla** · 31/01/2011, 10h55

salut Qwaz

Kingkev

Godzestla désolé je ne savais pas qu'on ne pouvait pas parler de boucle avec if, c'est comme ça qu'on me l'avait présenté la première fois en cours de maple.

Voilà qui n'est guère rassurant.

**KingKev** · 31/01/2011, 11h13

Hello I'm back , ça ne marche toujours pas lorsque je j'appelle la fonction

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
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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
Public Function A(epaisseur As Integer, axe As Integer, temperature As Integer, t)
Dim X As Double
Dim Y As Double
 
Select Case epaisseur
Case 80
Select Case axe
Case 1
 
Select Case temperature
Case 165
X = 10.489
Y = 0.0547
Case 170
X = 10.532
Y = 0.0717
Case 175
X = 10.792
Y = 0.0675
Case 180
X = 11.528
Y = 0.0228
End Select
 
Case 2
 
Select Case temperature
Case 165
X = 7.5712
Y = 0.1109
Case 170
X = 8.8441
Y = 0.0804
Case 175
X = 7.9806
Y = 0.1412
Case 180
X = 9.4219
Y = 0.0766
End Select
 
Case 3
 
Select Case temperature
Case 165
X = 3.1306
Y = 0.2883
Case 170
X = 4.1128
Y = 0.2217
Case 175
X = 4.3531
Y = 0.2191
Case 180
X = 4.3708
Y = 0.2015
End Select
 
End Select
 
Case 160
Select Case axe
Case 1
 
Select Case temperature
Case 165
X = 10.845
Y = 0.0472
Case 170
X = 10.257
Y = 0.085
Case 175
X = 10.791
Y = 0.0775
Case 180
X = 11.595
Y = 0.0416
End Select
 
Case 2
 
Select Case temperature
Case 165
X = 6.8428
Y = 0.1346
Case 170
X = 8.7631
Y = 0.0475
Case 175
X = 7.2979
Y = 0.1664
Case 180
X = 8.7814
Y = 0.1085
End Select
 
Case 3
 
Select Case temperature
Case 165
X = 5.8334
Y = 0.1129
Case 170
X = 6.8664
Y = 0.0863
Case 175
X = 6.5188
Y = 0.1473
Case 180
X = 6.8503
Y = 0.1076
End Select
 
End Select
 
Case 240
Select Case axe
Case 1
 
Select Case temperature
Case 165
X = 7.1748
Y = 0.1553
Case 170
X = 9.3511
Y = 0.0609
Case 175
X = 8.923
Y = 0.107
Case 180
X = 9.4549
Y = 0.0908
End Select
 
Case 2
 
Select Case temperature
Case 165
X = 3.2877
Y = 0.2531
Case 170
X = 4.7845
Y = 0.1176
Case 175
X = 5.112
Y = 0.1703
Case 180
X = 5.9473
Y = 0.1055
End Select
 
Case 3
 
Select Case temperature
Case 165
X = 1.8474
Y = 0.396
Case 170
X = 3.2221
Y = 0.2234
Case 175
X = 3.3392
Y = 0.2499
Case 180
X = 3.4671
Y = 0.1047
End Select
 
End Select
 
End Select
 
A = X * (t / 60) ^ Y
 
End Function

Je pense qu'il s'agit toujours du même problème que précedemment :s

**Qwazerty** · 31/01/2011, 11h13

@Godz: En effet si les profs s'y mettent...

@KingKev: Si tu veux vraiment faire un structure a tableau, propose un fichier avec les données de cet abaque histoire de voir ce qu'il est possible de faire.

++
Qwaz

**KingKev** · 31/01/2011, 11h17

Les données sont dans le code. Je pense du coup qu'il faudrait faire 3 tableaux pour X (axe 1, 2 et 3) avec en entrée température (165,170,175,180) et epaisseur (80,160,240) et 3 tableaux pour Y ?

en fait je pense que je n'ai pas bien compris comment formuler le select case étant donné que si je fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function f(n As Integer, x)
 
Select Case n
 
Case 1
f = x
Case 2
f = x ^ 2
 
End Select
 
End Function

et qu'ensuite je tape f(1,2) dans mon tableur j'ai quand même une erreur

**Qwazerty** · 31/01/2011, 11h57

Dans le cas que tu exposes, n valant 1, le select choisi le Case 1 et exécute seulement le code

Code :

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

f = x

Donc ta fonction te renverra 2, puisque dan ton exemple x vaut 2.

Tu dis que les données sont dans le code, mais pour faire ce code, tu utilise bien un abaque? tu n'invente pas les constante au fur et a mesure.
Quand je parle de faire un tableau, c'est de noter les valeur dans une feuille excel sous forme de tableau.
Apres dans le code, il est possible de faire un tableau a 3 dimensions en regroupant les infos contenu dans tes différents tableaux. Encore une fois, ça demande un peu de travail, mais tu t'y retrouvera dans la suite de tes travaux, enfin c'est mon avis.

++
Qwaz

**KingKev** · 31/01/2011, 12h02

Je ne les invente pas mais presque. les valeurs de X et Y sont expérimentales, marquées sur un papier. Après je pourrais tout recopier dans des tableaux mais bon avant de le faire je voudrais être sur de savoir ou je vais et j'aimerais bien éclaircir le problème précédent avant.

Pour le f je t'assure que quand je tape =f(1,2) dans une cellule du tableur il ne me renvoie pas 2 mais une erreur.

**Godzestla** · 31/01/2011, 12h03

Bonjour, (re)

tout d'abord, bravo et merci pour la correction du titre.

Ensuite, mes petits pavés dans la mare.... ben oui je me lâche aujourd'hui.

Code :

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

Public Function f(n As Integer, x)

Une fonction est prévue pour retourner une valeur.
Si ce n'est pas le cas, il y a un problème de conception.

Donc, ici F devrait vraisemblablement être définie comme suit (sans avoir relu !)

Code :

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

Public Function f(n As Integer, x) as Long

Donc alors, l'utilisation de F dans ton tableur devrait fonctionner beaucoup moins mal.

Ensuite X n'est pas défini. Pas bon cela, jamais bon.

Enfin,

et qu'ensuite je tape f(1,2) dans mon tableur j'ai quand même une erreur

mériterait un explication plus détaillée (ou, quoi, comment, quelle erreur...)

Maintenant, en corrigeant la fonction, cela pourrait changer pas mal de choses.

**KingKev** · 31/01/2011, 12h08

Re

voila les modifications apportées :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Function f(n As Integer, x As Long) As Long
 
Select Case n
 
Case 1
f = x
Case 2
f = x ^ 2
 
End Select
 
End Function

dans le tableur excel m'affiche simplement un #VALEUR! je n'arrive pas à obtenir plus de détails de calcul.

Pour la correction du titre le mérite revient à Qwazerty

**Godzestla** · 31/01/2011, 12h20

Pour la correction du titre le mérite revient à Qwazerty

Qwaz 10 points.

Pour ta fonction :

1) mets ladans un module,
2) rajoute Public devant
3) L'appel par =f(1,2) est faux mais avec =f(1;2) fonctionne

Comment j'ai trouvé la réponse ?

Tu vas sur l'icone de fonction, tu prends fonction utilisateur, tu cherche F, tu mets des paramètres, et tu vois que la fonction construite présente les parms séparés par ;.

En tous cas chez moi avec mon Excel English.

**Qwazerty** · 31/01/2011, 12h26

Envoyé par KingKev

Pour la correction du titre le mérite revient à Qwazerty

Flatté mais pourquoi? (Si le titre a changé tout seul, le mérite en revient a Ormonth

)

Je n'avais pas compris que tu utilisais cette function, comme function perso dans des formules du tableur.
Je pense qu'avec les infos données par Godz ça devrait aller.

Je reste convaincu que tes valeur devrait être dans des tableau sur une feuille. Et j'irais même jusqu’à dire qu'il ne serait aucunement nécessaire d'utiliser du code Vba. Il existe une autre branche du forum excel, nommé Conception, il serait a mon avis intéressant que tu pose ta problématique dans ce forum. Cette problématique ne serait pas la création d'une macro, mais comment organiser tes donnée dans une feuille afin de pouvoir utiliser des fonctions standards d'excel.

++
Qwaz

**KingKev** · 31/01/2011, 12h38

Re

ah je pensais que que c'était toi qui avait changé le titre. Bon ben mérité à Ormonth^^

En fait si j'ai besoin de VBA car je re-utilise ces fonctions dans un programme ultérieur qui lui ne peut que se faire par VBA.

Merci pour ta réponse Godz! probleme solved

Limiter les Structures décisionnelles If Then

Macros et VBA Excel

Discussions similaires

Partager

Partager