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 : 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
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 !