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

Messages postés
121
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
24 novembre 2019
- - Dernière réponse : noe2008
Messages postés
121
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
24 novembre 2019
- 24 nov. 2019 à 13:01
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
Afficher la suite 

2 réponses

Messages postés
2236
Date d'inscription
dimanche 3 mai 2009
Statut
Membre
Dernière intervention
6 décembre 2019
453
0
Merci
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
Commenter la réponse de PapyLuc51
Messages postés
2027
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
7 décembre 2019
239
0
Merci
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
noe2008
Messages postés
121
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
24 novembre 2019
3 -
Merci infiniment c'est magique!
Commenter la réponse de Frenchie83