Microsoft 365 Trouver des données identiques qui se suivent

[pyxdesign]

Bonjour à tous,

Voilà, je me retrouve face à une difficulté, j'ai chercher sur internet mais à chaque fois on me redirige vers le fameux "mise en page conditionel -> valeur en double"
Mais au vu des 17.000 données à traités, j'ai malheureusement 100% des données qui sont mise en rouge...
Dans les faits, j'ai besoin de trouver dans une colonne du tableau, 2 ou + même données qui se suivent et changer la couleur des même données pour voir directement où se situe le doublons. Je vais essayer de faire un shéma.

Jean Jaques
Kevin Poulou
Jean Jaques
Jean jaques
Kevin poulou
Astroboy

Je désespère totalement, en espérant ne pas vous en demander trop
Merci

 

[TooFatBoy]

Bonjour,

Une MFC avec une formule genre =(A2=A1)+(A2=A3) à appliquer sur la plage $A$2:$A$17000, devrait convenir.

(MFC = Mise en Forme Conditionnelle)

 

[pyxdesign]

Bonjour,

Je suis vraiment désolé, je suis "Novice" je te met ci-joint la capture de la formule, malheureusement ça ne fait que tout sélectionner.
Si tu as une autre formule magique, merci

 

[Franc58]

Bonjour, voici une solution vba:

Sub Doublons()
    Dim rng As Range
    Dim i As Long
    Dim LastRow As Long

    LastRow = ThisWorkbook.Sheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row

    ' Définir la plage à la colonne A (changez selon vos besoins)
    Set rng = ThisWorkbook.Sheets("Feuil1").Range("A1:A" & LastRow)

    For i = 1 To rng.Cells.Count
        ' Vérifier si la cellule actuelle est égale à la précédente ou à la suivante
        If i = 1 Then
            'Si la colonne commence à la ligne 1, vérifiez seulement si elle est égale à la suivante
            If rng.Cells(i, 1).Value = rng.Cells(i + 1, 1).Value Then
                rng.Cells(i, 1).Interior.Color = RGB(255, 255, 0)
            End If
        Else
            If rng.Cells(i, 1).Value = rng.Cells(i - 1, 1).Value Or rng.Cells(i, 1).Value = rng.Cells(i + 1, 1).Value Then
                rng.Cells(i, 1).Interior.Color = RGB(255, 255, 0)
            End If
        End If
    Next i
End Sub

 

[TooFatBoy]

malheureusement ça ne fait que tout sélectionner.

Dans ma proposition, A2 est un exemple pour un tableau dont les données commencent en ligne 2 et dont on veut mettre en forme les doublons consécutifs dans la colonne A.
Il faut l'adapter à ton tableau qu'on ne peut pas deviner...

Si tu veux chercher les doublons dans la colonne D, alors il faut remplacer les A par des D dans la formule que j'ai proposée.
Ce qui donnerait =($D2=$D1)+($D2=$D3)

J'ai ajouté des $ au cas où tu voudrais colorier, non pas uniquement la colonne D, mais toute la ligne de ton tableau en appliquant la MFC à la plage $B$2: $G$17000 (c'est un exemple de plage).


De plus, il faut mettre une mise en forme, sinon tu ne verras rien.

 

[pyxdesign]

Bonjour,

Malheureusement j'ai une erreur? mauvaise compréhension de ma part ? merci

 

[pyxdesign]

Quand tu dis une mise en forme, ça veut dire quoi? ( merci

 

[TooFatBoy]

Quand tu dis une mise en forme, ça veut dire quoi? ( merci

Sur ta capture de #3 on voit un bouton "Format...".
Clique dessus, choisi la couleur rouge pour le texte et valide.

 

[TooFatBoy]

Malheureusement j'ai une erreur? mauvaise compréhension de ma part ? merci

Tu n'as pas de feuille nommée "Feuil1", donc remplace "Feuil1" par "Report".

 

[TooFatBoy]

Et donc, on en est où de cette question ? Problème résolu ???