Colorer les doublons

mromain

XLDnaute Barbatruc

• 6 Juillet 2009

• #2

Re : Colorer les doublons

bonjour anthoYS,

je te propose cette macro :

Code:

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+

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 6 Juillet 2009

• #3

Re : Colorer les doublons

Je te remercie ça fonctionne parfaitement.

Un grand bravo aussi.

 

Vote positif 0 Vote négatif

X

xpstarok

XLDnaute Nouveau

• 16 Juillet 2009

• #4

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.

 

Vote positif 0 Vote négatif

X

xpstarok

XLDnaute Nouveau

• 16 Juillet 2009

• #5

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.

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 16 Juillet 2009

• #6

Re : Colorer les doublons

bonjour xpstarok et bienvenue sur le forum,

essaye avec ce code :

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+

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 16 Juillet 2009

• #7

Re : Colorer les doublons

Re...

La mise en forme conditionnelle défine par

Code:

[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

 

Vote positif 0 Vote négatif

X

xpstarok

XLDnaute Nouveau

• 16 Juillet 2009

• #8

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.

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 16 Juillet 2009

• #9

Re : Colorer les doublons

Re...
J'ajoute le classeur.
ROGER2327

 

Pièces jointes

• ColorerLesDoubles.xls

  25.5 KB · Affichages: 138

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 16 Juillet 2009

• #10

Re : Colorer les doublons

re bonjour,
ROGER2327,

j'ajoute le classeur aussi...

a+

 

Pièces jointes

• Classeur2.xls

  28 KB · Affichages: 145
• Classeur2.xls

  28 KB · Affichages: 147
• Classeur2.xls

  28 KB · Affichages: 151

Vote positif 0 Vote négatif

X

xpstarok

XLDnaute Nouveau

• 16 Juillet 2009

• #11

Re : Colorer les doublons

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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 16 Juillet 2009

• #12

Re : Colorer les doublons

mromain à dit:

(...)

j'ajoute le classeur aussi...

(...)

Cliquez pour agrandir...

Bonjour mromain,

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

Bonne journée.
ROGER2327

 

Vote positif 0 Vote négatif

L

lttr

XLDnaute Nouveau

• 3 Mai 2010

• #13

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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 3 Mai 2010

• #14

Re : Colorer les doublons

Bonjour lttr

Voyez le classeur joint.​

ROGER2327
#3394

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

 

Pièces jointes

• Temp.xls

  18 KB · Affichages: 95
• Temp.xls

  18 KB · Affichages: 108
• Temp.xls

  18 KB · Affichages: 111

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 3 Mai 2010

• #15

Re : Colorer les doublons

Bonsoir,

Voir PJ

JB

 

Pièces jointes

• colorerLesDouble(1).xls

  37 KB · Affichages: 152

Dernière édition: 3 Mai 2010

Vote positif 0 Vote négatif