Code VBA pour trouver la valeur max

Version imprimable

Bonjour,

J'ai un formulaire avec des contrôles dépendants.
Je voudrais faire un calcul pour affecter une valeur à un autre contrôle dépendant de manière à ce que ça soit automatiquement inséré dans la table.

Mon problème est que je bloque pour trouver la fonction VBA pour trouver la valeur maximale.

Je sens aussi que je ne prend pas le chemin le plus direct et trouve mon code bien lourd pour pas grand chose...

Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub cmd_calcul_Click() Dim isol_jour As Double Dim isol_nuit As Double Dim isol_soir As Double Dim isol As Double If Me.niveau_jour_1.Value > 70 Or Me.niveau_nuit_1.Value > 65 Or Me.niveau_soir_1.Value > 68 Then isol_jour= Me.niveau_jour_1.Value - 40 isol_nuit = Me.niveau_nuit._1Value - 35 isol_soir = Me.niveau_jour_1.Value - 40 isol = max(isol_jour, isol_soir, isol_nuit) Me.isol_1.Value = isol End If End Sub
Bien sûr, il ne connait pas la fonction MAX. J'ai essayé Dmax, mais ne sais pas comment l'utiliser avec les variables.

Question bonus:
je fais le calcul pour les niveau_XXX_1, mais je devrait le faire aussi pour niveau_XXX_2 à niveau_XXX_12. Si quelqu'un a une astuce.

Merci d'avance pour vos contrib !

Bonjour

Citation:

Bien sûr, il ne connait pas la fonction MAX.

Code:

isol = max(isol_jour, isol_soir, isol_nuit)

Code:

1
2
if isol_jour>isol_soir then isol=isol_jour else isol=isol_soir 
if isol_nuit>isol then isol = isol_nuit

Citation:

Question bonus:
je fais le calcul pour les niveau_XXX_1, mais je devrait le faire aussi pour niveau_XXX_2 à niveau_XXX_12. Si quelqu'un a une astuce.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub cmd_calcul_Click()
 
Dim isol_jour As Double
Dim isol_nuit As Double
Dim isol_soir As Double
Dim isol As Double
 
If Me.niveau_jour_1.Value > 70 Or Me.niveau_nuit_1.Value > 65 Or Me.niveau_soir_1.Value > 68 Then
 
isol_jour= Me.niveau_jour_1.Value - 40
isol_nuit = Me.niveau_nuit._1Value - 35
isol_soir = Me.niveau_jour_1.Value - 40
 
isol = mmax(isol_jour, isol_soir, isol_nuit) 
 
Me.isol_1.Value = isol
End If
 
End Sub

Code:

1
2
3
4
5
6
7
8
 
 
Function MMax(Valeur1, valeur2, valeur3)
 
If Valeur1 > valeur2 Then MMax = Valeur1 Else MMax = valeur2
If valeur3 > MMax Then MMax = valeur3
 
End Function

ou bien

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
 
Private Sub cmd_calcul_Click()
 
Dim isol_jour As Double
Dim isol_nuit As Double
Dim isol_soir As Double
Dim isol As Double
 
For F=1 to 12
 
If Me.controls("niveau_jour_" & F).Value > 70 Or Me.controls("niveau_nuit_" & f).Value > 65 Or Me.controls("niveau_soir_" & f).Value > 68 Then
 
isol_jour= Me.controls("niveau_jour_" & f).Value - 40
isol_nuit = Me.controls("niveau_nuit._" & f).Value - 35
isol_soir = Me.controls("niveau_jour_" & f).Value - 40
 
If isol_jour> isol_nuit Then isol= isol_jour Else isol= isol_nuit 
If isol_soir > isolThen isol= isol_soir 
 
Me.controls("isol_" & f).Value = isol
 
next
 
End If
 
End Sub

NON TESTÉ
Alors ?
Cdlt.)

19/08/2010, 00h14
jokair

Ca m'a l'air pas mal tout ça !
Je vais essayer.

Merci.
19/08/2010, 00h40
jokair

C'est parfait tout ça.

J'ai un autre problème maintenant.

J'utilisais une CommandBox pour lancer la procédure, et tout allait bien.

Maintenant, je voudrais que ça s'initialise au chargement du formulaire (FormLoad), mais j'ai un message:

Impossible d'attribuer une valeur à cet objet

Le débogueur me renvoit à la ligne:

Citation:

Me.isol_1.Value = isol

Si tu a une idée.
@ bientôt
19/08/2010, 21h46
JMPS.VBA
Bonjour,

Il existe une différence substantielle entre Form_Load(), sur chargement et Form_Open(Cancel As Integer), sur ouverture.
Code:

1 2 3 4 5 6 Private Sub Form_Open(Cancel As Integer) Me.isol_1.Value = isol End Sub
25/08/2010, 09h47
NguyenRD

Salut,
Quand on ouvre un form tout est Vide ou à Zéro. C'est normal que le système ne peut pas attribuer une valeur.
Il faut EXECUTER le code d'attribution et non affecter une valeur.