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

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

Newsletters