macro double condition

T

Thomas

Guest
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

XLDnaute Barbatruc
Repose en paix
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
 

Discussions similaires