XL 2013 colonne identique

omar88

XLDnaute Nouveau
j'ai un tableau c'est juste un exemple

colonne A colonne B colonne C

1 ***********0** **********1

0 ***********1*************0

1 **********1 *************1

1 **********0 *************1

on remarque que la colonne A et colonne C sont identique donc il faut les identifier comme identique par couleur ainsi de suite car j'ai bcp de colonne et a la place de zero j'ai des cellules vide
j'ai toute essayer recherche v et h mais il faut que ca soit en vba et je suis debutant dans ce domaine donc voila mon code
VB:
Sub colonnesDoublons()

Dim Cell As Range
 

Dim j As Integer, i As Integer, c As Integer, N As Integer


For c = 1 To 100


Range(Cell(i, j).Value) = c

Next c

For N = 1 To 256

Cell.Font.ColorIndex = N

Next N

For i = 1 To 100

If Cell(i, j).Value = Cell(i + 1, j).Value Then c = c + 1

Next i

For j = 1 To 100

If Cell(i, j).Value = Cell(i, j + 1).Value Then c = c + 1

Next j

End Sub
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @omar88, @Staple1600 :),

Un essai par macro dans le fichier joint.
Cliquez sur le bouton pour exécuter la macro.
Le code de la macro est dans le module de la feuille "Feuil1"
La feuille "Couleurs" contient les couleurs (fond et police) utilisées pour colorier les colonnes identiques. Si besoin, ajouter des couleurs supplémentaires à la fin de la colonne (la macro vous informera de cette nécessité).
 

Pièces jointes

  • omar88- colonnes identiques- v1b.xlsm
    21.5 KB · Affichages: 14
Dernière édition:

omar88

XLDnaute Nouveau
Bonjour @omar88, @Staple1600 :),

Un essai par macro dans le fichier joint.
Cliquez sur le bouton pour exécuter la macro.
Le code de la macro est dans le module de la feuille "Feuil1"
La feuille "Couleurs" contient les couleurs (fond et police) utilisées pour colorier les colonnes identiques. Si besoin, ajouter des couleurs supplémentaires à la fin de la colonne (la macro vous informera de cette nécessité).
merciii bcp mais il y'a un seule souci c que qu'on je veux copier le code et puis l'executer il m'informe que l'indice n'appartient pas a la selection
 

omar88

XLDnaute Nouveau
Bonjour @omar88,

Il faudrait fournir sur XLD le fichier avec la structure réelle ;) .
le fichier est volumineux meme en xld
vous pouvez le joindre sur ce site et merci encore
 

omar88

XLDnaute Nouveau
Bonjour @omar88, @Staple1600 :),

Un essai par macro dans le fichier joint.
Cliquez sur le bouton pour exécuter la macro.
Le code de la macro est dans le module de la feuille "Feuil1"
La feuille "Couleurs" contient les couleurs (fond et police) utilisées pour colorier les colonnes identiques. Si besoin, ajouter des couleurs supplémentaires à la fin de la colonne (la macro vous informera de cette nécessité).
hello, svp pouvez me dire comment dois je le trier par couleur et dire nombre de colonne de chaque couleur similaire
 

Discussions similaires

Statistiques des forums

Discussions
311 713
Messages
2 081 806
Membres
101 819
dernier inscrit
lukumubarth