Comparer plusieurs cellules (Excel)

Bonjour,
Peut-être avec une macro VBA ?

Sub Rech()
Dim Cel As Range, CelComp As Range, i As Integer
Dim Plage As Range, B As Boolean
    Sheets("feuil1").Select
    i = 2
    Set Plage = Range("A1:F8")
    For Each Cel In Plage
        For Each CelComp In Plage
            If Cel = CelComp And Cel.Address <> CelComp.Address Then
                Cel.Interior.ColorIndex = i
                CelComp.Interior.ColorIndex = i
                B = True
            End If
        Next CelComp
        If B Then
            i = i + 1
            If i > 48 Then i = 1
            B = False
        End If
    Next Cel
End Sub

A+

Bonjour à tous

formule matricielle à valider par Ctl+maj+entree ( et non par "entree" comme d'hab). valable pour du texte ou des nombres mais sans vides

=NBVAL(A1:A9)-SOMME(1/NB.SI(A1:A9;A1:A9))

te donne le nombre de fois maximum est répétée une valeur dans la plage A1:A9

si =0 valeurs unique
si=1 une valeur est répétée 1fois (donc une valeur est inscrite 2 fois)

Michel

Bonjour lermite,

Je ne sais pas, faudrait que je cherche (par formule: pas évident)..

Mais c'est ce que demandait Marc:"formule permettant de savoir s'il n'y a pas deux nombres identiques parmi un groupe" du tout du moins ce que j'ai compris

Bon dimanche à toi

cordialement,
Michel

Le + simple serait de faire "du préventif" avec une mise en forme conditionnellle comme le préconise meldja

ma formule t'indique s'il y a des doublons , ce que tu demandais, le test étant
(NBVAL(A1:A9)-SOMME(1/NB.SI(A1:A9;A1:A9)) >0)
la valeur retpournée étant VRAI-FAUX ou 1-0

mais pour ce que tu viens d'exposer, la siolution Meldja est plus adaptée

Michel