XL 2019 Identifier colonne identique

[Joc]

Bonjour, Je cherche une solution pour identifier des colonnes identiques dans un tableau.
Je vous joint un exemple ci dessous.

Merci par avance

 

[jmfmarques]

Bonjour
Mon oeil personnel se montrant incapable de déceler dans ta capture d'écran une ou plusieurs colonnes totalement identiques (du moins selon ma définition de l' "identicité" ... allons-y d'un néologisme ...), je crois qu'il va être nécessaire que tu définisses très exactement ce que tu entends, toi, par "colonnes identiques"

 

[sylvanu]

Bonjour Joc,
Un essai en PJ avec une petite macro :

Sub test()
Range("U1:U1000").ClearContents
Lig = Application.WorksheetFunction.CountA(Range("A2:A10000"))
Col = Application.WorksheetFunction.CountA(Range("A2:ZZ2"))
Index = 1
For C = 1 To Col
    For C2 = C + 1 To Col
        Paspareil = 0
        For L = 2 To Lig
            If Cells(L, C) <> Cells(L, C2) Then
                Paspareil = 1
                Exit For
            End If
        Next L
        If Paspareil = 0 And C <> C2 Then
            Range("U1:U1000").Cells(Index, 1) = "Colonnes " & C & " - " & C2 & " identiques"
            Index = Index + 1
        End If
    Next C2
Next C
End Sub

 

[Joc]

Bonjour,
Merci pour le retour.
Effectivement il n'y a pas de colonne identique dans cette exemple.
En revanche, mon tableau est beaucoup plus grand et peux comporter des colonne identiques comme ci-dessous :

 

[sylvanu]

Re le fil,
Dans ce cas vous devrez modifier ma macro pour que le résultat soit mémorisé dans une zone non analysée, ou dans une autre feuille.

 

[jmfmarques]

RE
dans cette seconde capture d'écran, j'observe :
1) que la couleur de chiffres identiques est toujours la même
2) que les cellules ne contiennent que 3 chiffres distincts (1,2 et 3)
Question dont la réponse peut ou non faciliter les choses :
Est-ce TOUJOURS ainsi ?

 

[GALOUGALOU]

bonjour joc, bonjour le fil
un début de solution
si la saisie cellule est toujours identique sur des cellules de même couleur, je vous propose une solution par mfc

concaténer dans une ligne inférieure les valeurs contenues dans les cellules
choisir une cellule de référence qui permet de saisir une valeur pour mise en évidence de valeurs identiques,les colonnes seront de couleur parme.

en beige les colonnes, qui ont des colonnes identiques (le coronavirus me bloque l'esprit, j'espère que j'ai été clair)

cordialement
galougalou

 

[Joc]

Bonjour Messieurs,

Merci pour vos retour.
Vous êtes excel-lent, vraiment.
GALOUGALOU ton analyse est parfaite, du coup, j'ai repris les formules.
Ravi de voir qu'il y a encore des personnes volontaires.

Bonne journée