Discussion :

[yaybam]

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

[Menhir]

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.

Il n'est pas nécessaire d'avoir recours à VBA pour ça.
Une mise en forme conditionnelle avec une fonction NB.SI() dans le champ formule fera très bien l'affaire.

[yaybam]

Bonjour
La fonction nb.si permets de compter le nombre de cellule selon un critère donné. Moi je veux mettre la couleur rose à toute les cellules dont la valeur est répétée plus de 2 fois dans une colonne par exemple la colonne A.
Cdt

[eriiic]

Bonjour,

Sélectionner A2:A24 et en MFC :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI($A$2:$A$24;A2)>1

eric

[unparia]

Bonjour

Bien forcé de demander la précision :
1) titre :

la couleur d'une cellule

2) dan le code :

Font.ColorIndex = 26

Et ce qu'il y a à changer et la couleur de quoi, ,finalement ?

3)

ça ne marche pas

veut tout dire et ne rien dire.
Erreur ?
Autre ? et Quoi ?

[Menhir]

La fonction nb.si permets de compter le nombre de cellule selon un critère donné. Moi je veux mettre la couleur rose à toute les cellules dont la valeur est répétée plus de 2 fois dans une colonne par exemple la colonne A.

Justement, la fonction NB.SI() te permet de déterminer combien de fois est répétée une valeur dans une zone données.
Utilisée avec une mise en forme conditionnelle (pour "mettre la couleur dans une cellule"), elle te permettra de faire ce que tu demandes en moins d'une minute.

Ca sera beaucoup plus simple, rapide et souple à gérer qu'une macro.

j'ai essayé avec ce code mais ça ne marche pas:

Justement, tu devrais regarder dans l'aide Excel la syntaxe de la fonction NB.SI(), ça t'aiderait à comprendre où est l'erreur dans ton code.