Colorer les doublons

[anthoYS]

Bonjour,

J'ai sur une feuille, plusieurs mots, et il faut en fait, colorer ceux qui, sur une plage reviennent au moins une fois.

Voyez s'il vous plaît le fichier joint.

En vous remerciant.

 

[mromain]

Re : Colorer les doublons

bonjour anthoYS,

je te propose cette macro :

Sub test()
Dim zone As Range, curCell As Range
Set zone = ThisWorkbook.Sheets("Sheet1").Range("$A$1:$G$10")

For Each curCell In zone.Cells
    If Application.WorksheetFunction.CountIf(zone, curCell.Text) > 1 Then curCell.Interior.Color = RGB(256, 256, 0)
Next curCell
End Sub

a+

 

[anthoYS]

Re : Colorer les doublons

Je te remercie ça fonctionne parfaitement.

Un grand bravo aussi.

 

[xpstarok]

Re : Colorer les doublons

salut !
le code fonctionne tres bien sauf pour les cases vides qui sont considérées comme des doublons et du fait coloriées.

 

[xpstarok]

Re : Colorer les doublons

salut !
le code fonctionne tres bien sauf pour les cellules vides qui sont considérées comme des doublons et du fait coloriées.

 

[mromain]

Re : Colorer les doublons

bonjour xpstarok et bienvenue sur le forum,

essaye avec ce code :

Sub test()
Dim zone As Range, curCell As Range
Set zone = ThisWorkbook.Sheets("Feuil1").Range("$A$1:$G$10")

For Each curCell In zone.Cells
    If [B]curCell.Text <> vbNullString And[/B] Application.WorksheetFunction.CountIf(zone, curCell.Text) > 1 Then curCell.Interior.Color = RGB(256, 256, 0)
Next curCell
End Sub

a+

 

[ROGER2327]

Re : Colorer les doublons

Re...

La mise en forme conditionnelle défine par

[COLOR="DarkSlateGray"]=NB.SI($A$1:$G$10;A1)>1[/COLOR]

en A1 semble fonctionner sans colorer les cellules vides. (Mais elle colore d'une seule couleur.)​

Bonne journée.
ROGER2327

 

[xpstarok]

Re : Colorer les doublons

merci d'avoir repondu aussi vite mais je suis en train de tester la formule et les cellules vides sont toujours colorées.

 

[ROGER2327]

Re : Colorer les doublons

Re...
J'ajoute le classeur.
ROGER2327

 

[mromain]

Re : Colorer les doublons

re bonjour,
ROGER2327,

j'ajoute le classeur aussi...

a+

 

[xpstarok]

Re : Colorer les doublons

Là c'est bon !!
ça marche nickel , merci pour l'astuce !!

 

[ROGER2327]

Re : Colorer les doublons

(...)

j'ajoute le classeur aussi...

(...)

Bonjour mromain,

C'est plus sûr...
Ça fonctionne parfaitement chez moi.​

Bonne journée.
ROGER2327

 

[lttr]

Re : Colorer les doublons

Bonjour

Comment procéder exactement pour ombrer en plage A les cellules contenant des valeurs numériques identiques contenues dans les cellules en plage B.

par avance merci

laurent

 

[ROGER2327]

Re : Colorer les doublons

Bonjour lttr

Voyez le classeur joint.​

ROGER2327
#3394

14 Floréal An CCXVIII
2010-W18-1T16:24:59Z

 

[BOISGONTIER]

Re : Colorer les doublons

Bonsoir,

Voir PJ

JB