Macro pour mise en forme conditionnelle "valeurs en double"
Résolu/Fermé
noe2008
Messages postés
183
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
9 novembre 2023
-
24 nov. 2019 à 11:17
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 24 nov. 2019 à 13:01
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 24 nov. 2019 à 13:01
A voir également:
- Macro pour mise en forme conditionnelle "valeurs en double"
- Mise en forme conditionnelle excel - Guide
- Double ecran - Guide
- Whatsapp double sim - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Mise en forme conditionnelle excel par rapport à une autre cellule ✓ - Forum Excel
2 réponses
PapyLuc51
Messages postés
4301
Date d'inscription
dimanche 3 mai 2009
Statut
Membre
Dernière intervention
24 avril 2024
1 405
24 nov. 2019 à 12:25
24 nov. 2019 à 12:25
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
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
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
24 nov. 2019 à 12:39
24 nov. 2019 à 12:39
Bonjour,
Autre solution en VBA qui s'applique à toutes les feuilles
Cdlt
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
183
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
9 novembre 2023
4
24 nov. 2019 à 13:01
24 nov. 2019 à 13:01
Merci infiniment c'est magique!
