Calcul du % le plus eleve

Voilà donc je souhaite faire une MFC par macro (fichier joint) afin de pouvoir l'appliquer sur différentes feuilles de mon fichier sans avoir donc la MFC à faire feuille par feuille.

Cliquez pour agrandir...

phlaurent55 à dit:

Re,



@ mcj1997,
on ne peut pas dire que tu sois le champion des demandes et explications claires et précises

si toutes les feuilles sont identiques au point de vue emplacement des données à mettre en forme, il suffit de sélectionner toutes les feuilles et de faire la mise en forme conditionnelle une seule fois .................et ça marche même si tu as 100 feuilles !

si l'emplacement des données ne se trouve pas à la même place sur toutes les feuilles, ça va te faire un boulot de dingue car il te sera difficile de la faire par macro

à+
Philippe

Cliquez pour agrandir...

mais je peux comprendre que vous ne soyez pas un champion des macros !

Cliquez pour agrandir...

phlaurent55 à dit:

Re,
voici la macro qui réalise la mise en forme conditionnelle sur TOUTES les feuilles du classeur

Code:

Sub Macro()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Select
    Range("A2:G17").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=MAX($A2;$C2;$E2;$G2)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
    End With
    Selection.FormatConditions(1).StopIfTrue = True
 
Next i
Application.ScreenUpdating = True
End Sub

cette macro a été réalisée à partir de la version 2007

à+
Philippe

Cliquez pour agrandir...