Test entre 2 celulles + MFC Macro

Résolu
lalalie3 Messages postés 44 Date d'inscription   Statut Membre Dernière intervention   -  
lalalie3 Messages postés 44 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention  
 
Au secours,
Aidez moi .....
0