Simplification de code

[vsan]

Bonjour à Tous!

'Je voudrais simplifier ce code de façon à ce qu'il fonctionne correctement!
'Les conditions sont simples : Tempréelle2 doit être inférieure ou égale à 35
'Densite2 doit être compris entre 258 et 260
'Et suivant le critère qui sort de ses bornes, je souhaite modifier le message d'erreur,
'sachant que les 2 critères peuvent être 'OUT' en même temps!

If FormAd.formule.Value = 4 Then
If Tempréelle2 > 35 Then
If Densite2 > 260 Then anomalie = 'Temp/Densité'
If Densite2 < 258 Then anomalie = 'Temp/Densité'
If Densite2 >= 258 And Densite2 <= 260 Then anomalie = 'Température'
End If
If Densite2 > 260 Then
If Tempréelle2 > 35 Then anomalie = 'Temp/Densité'
If Tempréelle2 <= 35 Then anomalie = 'Densité'
End If
If Densite2 < 258 Then
If Tempréelle2 > 35 Then anomalie = 'Temp/Densité'
If Tempréelle2 <= 35 Then anomalie = 'Densité'
End If
End If

Merci d'avance
Vinc'

 

[PascalXLD]

Bonjour

essaies ceci

If FormAd.formule.Value = 4 Then
If Tempréelle2 > 35 Then
If Densite2 >= 258 And Densite2 <= 260 Then
anomalie = 'Température'
else
anomalie = 'Temp/Densité'
End If
else
If Densite2 > 260 or Densite2 < 258 Then anomalie = 'Densité'
End If

Bon courage

 

[Vsan]

Bonsoir!

Merci de ton aide, je vais tester ça rapidement!

Vinc'