macro double condition

[Thomas]

Bonjour à tous et toute,

Je souhaite créer une macro correspondant à :

*verifier si la cellule (6,44) = 'FIN'
->si vrai verifier si la cellule (6,24)<=1
si vrai mise en forme de la celulle (6,24) = vert
si faux mise en forme de la celulle (6,24) = rouge

*si cellule (6, 44) diiferent de 'FIN'
-> verifier si cellule (6,24)< valeur de la cellule (6,57)
si vrai
mise en forme de la celulle (6,24) = vert
si faux
-> verifier si valeur de la cellule (6,57) <cellule (6,24)<valeur de la cellule (6,57)
si vrai
mise en forme de la celulle (6,24) = orange
si faux
-> verifier si cellule (6,24)> valeur de la cellule (6,57)
si vrai
mise en forme de la celulle (6,24) = vert
si faux on fait rien (mais bon c'est pas possible)

Ca doit pas être trop compliqué mais je debute dans VBA
D'avance merci
Thomas

 

[Robert]

Bonjours Thomas, bonjour le forum,

J'avais commencé à t'écrire une macro mais il y a une incongruité, tu dis :

verifier si valeur de la cellule (6,57) <cellule (6,24)<valeur de la cellule (6,57) .
La cellule(6,24) ne peut pas être à la fois inférieure et supérieure à la cellule(6,57)... au mieux, elles sont égales...

La voici mais il y a deux ppoints d'interrogation que tu devras corriger :

Sub Macro1()
If Cells(6, 44).Value = 'FIN' Then
If Cells(6, 24).Value <= 1 Then
Cells(6, 24).Interior.ColorIndex = 4
Else
Cells(6, 24).Interior.ColorIndex = 3
End If
Else
If Cells(6, 24).Value > Cells(6, 57).Value Then
Cells(6, 24).Interior.ColorIndex = 4
Else
If Cells(6, 24).Value < Cells(?, ?) And Cells(6, 24) > Cells(6, 57) Then
Cells(6, 24).Interior.ColorIndex = 46
Else
If Cells(6, 24).Value > Cells(6, 57) Then
Cells(6, 24).Interior.ColorIndex = 4
End If
End If
End If
End If
End Sub

 

[Thomas]

Merci Robert et effectivement on doit lire :
-> verifier si valeur de la cellule (6,57) <cellule (6,24)<valeur de la cellule (6,58)

a +