Bonjour à tous,
Je bloque actuellement sur un problème de mise en forme conditionnelle. Je m'explique. Je voudrais développer une macro qui me permet de faire les choses suivantes :
J'ai dans ma colonne D des infos qui varient => FSR, CFM...
A chaque ligne je veux que :
Si on a "FSR" et si les valeurs dans la ligne sont >=4 alors il faut que ça soit coloré en vert
Si on a "CFM" et si les valeurs dans la ligne sont >=12 alors il faut que ça soit coloré en vert
Si on a "FSR" et si les valeurs dans la ligne sont <=4 alors il faut que ça soit coloré en rouge
Si on a "FSR" et si les valeurs dans la ligne sont <=12 alors il faut que ça soit coloré en rouge
J'ai commencé à écrire une macro je n'arrive pas à conclure :
Je bloque actuellement sur un problème de mise en forme conditionnelle. Je m'explique. Je voudrais développer une macro qui me permet de faire les choses suivantes :
J'ai dans ma colonne D des infos qui varient => FSR, CFM...
A chaque ligne je veux que :
Si on a "FSR" et si les valeurs dans la ligne sont >=4 alors il faut que ça soit coloré en vert
Si on a "CFM" et si les valeurs dans la ligne sont >=12 alors il faut que ça soit coloré en vert
Si on a "FSR" et si les valeurs dans la ligne sont <=4 alors il faut que ça soit coloré en rouge
Si on a "FSR" et si les valeurs dans la ligne sont <=12 alors il faut que ça soit coloré en rouge
J'ai commencé à écrire une macro je n'arrive pas à conclure :
Code:
Sub MFC()
Dim mycell As Range
Dim i As Integer
Application.ScreenUpdating = False
i = 1
For Each mycell In Range("E2:AA" & Range("E65536").End(xlUp).Row)
If mycell.Value >= 4 And Cells(i, 4) = "FSR" Then
mycell.Interior.ColorIndex = 4
If mycell.Value >= 12 And Cells(i, 4) = "CFM" Then
mycell.Interior.ColorIndex = 4
i = i + 1
End If
Next
Application.ScreenUpdating = True
End Sub