Discussion :

[marinef]

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)

[jolzeviking]

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

[Didier Gonard]

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

[David2304]

Bonjour,

Ce code devrait t'aider

Code :

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

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

[ilcocodrillo]

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

Code :

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

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