Test entre 2 celulles + MFC Macro
Résolu
lalalie3
Messages postés
45
Statut
Membre
-
lalalie3 Messages postés 45 Statut Membre -
lalalie3 Messages postés 45 Statut Membre -
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 steam deck oled - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- Test disque dur - Télécharger - Informations & Diagnostic
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur