Repere de cellule identique

commetn faire pour reperer sur une ligne si 2 cellules sont identiques??

par exemple:

A1 B1 C1 D1 E1

1 2 3 2 5

par exemple comment faire pour afficher un message d'erreur si on a 2 cells.value identiques? (ici c'est 2)

Pourrais- tu préciser ce que tu désires je ne vois pas où tu veux en venir.8O

Bonjour,

je vois 2 liens très utiles pour toi ;)

1 - http://club.developpez.com/regles/#L4.1

2 - http://silkyroad.developpez.com/excel/doublons/

cordialement,

Didier

Bonjour,

Ce code devrait t'aider

Code:

---

1 2 3 4 5 6

For Each cel In Range("A1:E5") NOMBRE = Application.WorksheetFunction.CountIf(Range("A1:E5"), cel) If NOMBRE > 1 Then MsgBox cel.Address & vbLf & "nombre de fois : " & NOMBRE End If Next

---

essaie ça, ça met en rouge les cellules identiques partout sur une feuilel quelle que soit sa taille

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Dim I As Integer, J As Integer Dim Plage As Range Dim cel As Range   Sub ColorieEnRougeLesCellulesIdentiques()   Set Plage = Range(Cells(1, 1), Cells(Range("A65536").End(xlUp).Row, _ Range("IV1").End(xlToLeft).Column)) For J = 1 To Range("IV1").End(xlToLeft).Column For I = 1 To Range("a65536").End(xlUp).Row If Cells(I, J) <> "" Then MaValeur = Cells(I, J) For Each cel In Plage If cel = MaValeur And _ (cel.Row <> I Or _ cel.Column <> J) Then ' MsgBox "BINGO" cel.Interior.ColorIndex = 3 End If Next End If   Next I Next J End Sub

---