Macro pour mise en forme conditionnelle "valeurs en double" Résolu/Fermé

Question

Bonjour les amis, 
j'ai besoin d'une macro pour effectuer un remplissage de cellule en vert pour les valeurs en double dans la plage de cellules (X16:AF200) en ignorant les cellules vides
si c'est possible explorer toutes les feuilles du classeur 
Merci à tous



Configuration: Windows / Chrome 78.0.3904.108

PapyLuc51 · Answer

Bonjour,

Une simple MFC est suffisante

Sélectionner la zone X16:AF200 
ouvrir les MFC + nouvelle règle
choisir ""Utiliser une formule ......""
dans le cadre mettre cette formule =ET(X16<>"";NB.SI($X$16:$AF$200;X16)=2) (bien respecter la position du signe "$"
Choisir le couleur puis OK, OK

Cordialement

Frenchie83 · Answer

Bonjour,

Autre solution en VBA qui s'applique à toutes les feuilles
Sub Couleur_Doublons()
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
        With Sheets(i).Range("X16:AF200")
            .FormatConditions.AddUniqueValues
            .FormatConditions(1).DupeUnique = xlDuplicate
            .FormatConditions(1).Font.ThemeColor = xlThemeColorDark1 'texte blanc
            .FormatConditions(1).Interior.Color = 5287936 ' fond vert
        End With
    Next i
End Sub

Cdlt

Macro pour mise en forme conditionnelle "valeurs en double"

2 réponses

Discussions similaires