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

Signaler
Messages postés
146
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
25 août 2020
-
Messages postés
146
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
25 août 2020
-
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

2 réponses

Messages postés
2775
Date d'inscription
dimanche 3 mai 2009
Statut
Membre
Dernière intervention
20 septembre 2020
731
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
Messages postés
2126
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 septembre 2020
282
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
Messages postés
146
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
25 août 2020
3
Merci infiniment c'est magique!