Discussion :

[Maxgad]

Bonsoir,
C'est un peu le contraire des doublons que je veux ressortir.
En faite, j'ai un fichier excel dans le quel je veux mettre en rouge les cours qui ne sont pas identiques aux autres(pour le même ISIN).
En gros, pour le même ISIN il ne faut pas avoir des cours différents.
J ai essayé avec Nb.si mais ca ne marche pas.
Un code vba je suis preneur aussi
Merci beaucoup

colonne A colonne B colonne C
CODE PTF ISIN COURS
300171 AD211211 96,52
300231 AD211211 98,00
300168 BP211211 155,05
300171 BP211211 155,05
300231 BP211211 156,41
133003 CAA211211 1,39
300024 CAA211211 1,40
300178 CAA211211 1,40
300168 CD211211 95,35
300171 CD211211 95,35
300231 CD211211 96,25
300008 CF191211 2 818,00
300017 CF191211 2 818,00
300031 CF191211 2 818,00
300031 CF191211 2 818,00
300177 CF191211 2 818,00
300177 CF191211 2 818,00
300323 CF191211 2 870,00
300323 CF191211 2 870,00
300346 CF191211 2 818,00
300346 CF191211 2 818,00

[ZebreLoup]

Sinon, Tu mets en C2 que tu fais glisser :

Code :

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

=SOMMEPROD(1*($B$2:$B$1000=B2);($C$2:$C$1000=C2)*1)

Ça te donnera le nombre de lignes qui ont le même ISIN et le même COURS. Il ne reste plus qu'à filtrer sur les 1.

[kiki29]

Salut, à tester

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
Option Explicit
 
Sub Tst()
Dim LastRow As Long
Dim i As Long, j As Long
Dim s1 As Long, c1 As Double
Dim s2 As Long, c2 As Double
 
    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    Feuil1.Columns("A:C").Interior.ColorIndex = xlNone
    For i = 2 To LastRow
        s1 = Feuil1.Range("A" & i)
        c1 = Feuil1.Range("C" & i)
        For j = 2 To LastRow
            s2 = Feuil1.Range("A" & j)
            c2 = Feuil1.Range("C" & j)
            If s1 = s2 And c1 <> c2 Then
                Feuil1.Range("C" & j).Interior.ColorIndex = 40
            End If
        Next j
    Next i
    Application.ScreenUpdating = True
End Sub

[Maxgad]

Je vais tester ca avec plaisir ce soir en rentant.
Merci bcp à vous.