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 -
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
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:
- Test entre 2 celulles + MFC Macro
- Test performance pc - Guide
- Test disque dur - Télécharger - Informations & Diagnostic
- Supercopier 2 - Télécharger - Gestion de fichiers
- Test steam deck oled - Guide
- Test composant pc - Guide