Test entre 2 celulles + MFC Macro

Résolu/Fermé
lalalie3 Messages postés 44 Date d'inscription jeudi 14 avril 2011 Statut Membre Dernière intervention 5 août 2011 - 4 mai 2011 à 14:35
lalalie3 Messages postés 44 Date d'inscription jeudi 14 avril 2011 Statut Membre Dernière intervention 5 août 2011 - 5 mai 2011 à 11:15
Bonjour,
Je suis a la recherche d'une macro testant 3 conditions et incluant une MFC.
Cette information est valable pour une seule et unique ligne alors que je voudrais qu'elle soit appliquée toutes les 40 lignes suivantes.

Voila ce que j'ai fais mais ce ne fonctionne pas du tout :((

J'ai utilisé l'enregistreur de macro.

Dim Effectif As Integer
For Effectif = "M" To 60
Effectif = Effectif + 2
Next

Dim Besoin As Integer
For Besoin = "M" To 60
Besoin = Besoin + 2
Next

Range("M44").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=Arrondi.sub(M44;0)>ARRONDI.SUP(M45;0)"
Selection.FormatConditions(1).Interior.ColorIndex = 35
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ENT(M44)<ARRONDI.SUP(M45;0)"
Selection.FormatConditions(2).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ENT(M44)=ENT(M45)"

Selection.FormatConditions(3).Interior.ColorIndex = 36

End Sub

En gros je voudrais savoir si mon effectif est sup /inf ou Egale a mon besoin.
Merci par avance pour vos réponses.

Avec les couleurs que j'ai deja rensignées 35 = Vert clair, 3 = rouge, 36 = Jaune clair
A voir également:

1 réponse

lalalie3 Messages postés 44 Date d'inscription jeudi 14 avril 2011 Statut Membre Dernière intervention 5 août 2011
5 mai 2011 à 11:15
Au secours,
Aidez moi .....
0