Bonjour!
je me permets de vous soumettre la problématique suivante: je veux écrire une macro qui me permet d'attribuer une couleur à une cellule lorsque sa valeur est répétée x fois dans la colonne.
par exemple en prenant la colonne A de ma feuille , la macro examine toutes les cellules de la colonne et si une valeur est répétée plus de 2 fois , la couleur de la cellule devient rose .
j'ai essayé avec ce code mais ça ne marche pas:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub photo()
Dim dl As Integer
Dim i As String
dl = Sheets("BDD_photos").Range("A" & Rows.Count).End(xlUp).Row
 
For j = 1 To dl
i = Sheets("BDD_photos").Range("A" & j).Value
If Application.WorksheetFunction.CountIf(i) > 2 Then
Range("A" & j).Font.ColorIndex = 26
End If
Next j
End Sub

En attendant votre retour!
Cordialement