Mettre un effet visuel pour trier

Bonsoir, je voudrais mettre en surbrillance voire même faire clignoter ou mettre un effet (loupe ou couleur changeante etc..) sur les references communes à ces deux tableaux pour que cela me saute aux yeux quand cela se produit (ref communes)

EXEMPLE : https://www.excel-pratique.com/~files/doc/we.xls

Existe t'il un effet , qui ferait sauter aux yeux, pour que je ne puisses pas louper ces

references

Merci d'avance pour votre aide

Eric

Il n'est pas si tard non

heeeelp

Eric

Bonsoir Eric, et un peu de patience s'il te plaît...

Un sujet mérite d'être relancé après 1 jour d'attente minimum, on n'est pas des machines !

Si tu n'as pas beaucoup de lignes, comme sur ton exemple, alors tu peux essayer de faire clic droit sur l'onglet de ta feuille, "Visualiser le code", et copier ceci dans la fenêtre qui s'ouvre :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte, j As Byte, k As Byte
If Not Intersect(Target, Range("D6:D24,F6:F24")) Is Nothing Then
k = 3
For i = 6 To 24
If Cells(i, 4) <> "" Then
    For j = 6 To 24
    If Cells(i, 4) = Cells(j, 6) Then
        Cells(i, 4).Interior.ColorIndex = k
        Cells(j, 6).Interior.ColorIndex = k
        k = k + 1
    End If
    Next j
End If
Next i
End If
End Sub

Au prochain ajout (ou changement) de référence dans une des 2 colonnes, un coloriage va se mettre à jour, ainsi qu'à tous les changements suivants.

Pas besoin de clignotement, si tu passes à travers ça c'est que tu regardes ailleurs...

Ce code ne gère pas si tu as 2 fois la même référence dans la même colonne, mais je ne pense pas que ce soit ton but... ?

Au dessus d'une cinquantaine de paires, tu aurais un bug car il n'y aura plus de couleur... encore une fois ce code est fais pour des petites plages comme ton exemple.

Oups , désolé

C'est clair que l'on est pas des machines

Où puis-trouver l'onglet ?? Je découvre(rame sur ) Excel 2007

Merci pour le travail déjà réalisé Sylvain

Eric

Bonsoir, ou plutôt bonjour,

salut Sylvain

un autre code sans limitation de lignes

https://www.excel-pratique.com/~files/doc/we2.xls

amicalement

Claude.

Bonjour tous,

Oui Claude même principe, mais je me disais que d'avoir des couleurs différentes pour chaque paire ça pourrait servir

Après c'est à notre ami Eric de voir ce qu'il veut réellement en faire, et nous dire quelle est la solution la plus adaptée pour lui.

Pareil pour le choix entre un bouton ou un évènement, c'est bon là il pourra choisir en connaissance de cause

Eric l'onglet c'est en bas à gauche de ton écran, là où tu as marqué le nom de ta feuille (Feuil1, Feuil2, Feuil3 par défaut)

Clique droit sur le nom de la feuille dans laquelle il y a les 2 colonnes, et suis les instruction d'hier.

Si ton fichier est différent de celui que tu as joint, pour les tailles des plages ou les colonnes utilisées, il va falloir adapter les codes...

N'hésite pas à demander, mais aussi à essayer de comprendre ce qu'ils veulent dire

Merci beaucoup pour votre aide , j'avance doucement mais surement.

Ma macro avance grace à vous

Voilà , j'ai trouvé l'onglet au boulot et ai adapté le code de Sylvain.

Mais je n'ai pas de resultat, j'ai pourtant inséré à la suite de ma macro le code.

Ne faut il pas une ligne de plus pour executer celui-ci à la suite ?

Pour être plus précis ,je cherche à comparer deux colonnes automatiquement et

mettre en surbrillance( oui-oui differentes couleurs par groupes d'articles identiques ) les articles communs.

J'essaye de comprendre le tout pour personaliser un peu "ma" macro

Eric

Re,

Pour éviter les malentendus, voici ton fichier, dans lequel se trouve mon code, en plusieurs exemplaires.

https://www.excel-pratique.com/~files/doc/wFZnuEric.xls

Le premier code est associé au bouton, il colorie les paires quand tu cliques sur le bouton.

Tu peux le voir en faisant Alt+F11 et en double cliquant sur Module1

Le deuxième est événementiel, il s'exécute à chaque modification de cellule dans les plages concernées.

Tu peux le voir en faisant Alt+F11 et en double cliquant sur Feuil1

Faire cohabiter les 2 codes ne sert à rien... A toi de choisir quand tu veux qu'il s'applique (bouton ou automatique), et de supprimer le superflu.

J'espère que ça va aller, n'hésites pas toutefois à redemander

Merci Sylvain , je commence à comprendre !

Mon soucis est d'enchainer ma macro avec tes codes

Au boulot , cela a presque fonctionné (si-si une couleur sur les ref ) mais à la maison j'ai ce message d'erreur :

https://www.excel-pratique.com/~files/doc/AIE.JPG

J'ai collé betement tes codes pour voir si cela passait à la suite chez moi.

Au boulot j'ai modifié les codes ( / à mes tableaux ) et ensuite mis with ou and with mais

cela ne marche pas chez moi...Au calme pour avancer...

Eric

Bonsoir, j'ai continué mes essais et il y a toujours un soucis d'execution

Il doit me manquer une ligne pour enchainer ma macro avec vos codes

Dois-je conserver le début du code ? :

With Application.CutCopyMode = False

Private Sub Worksheet_Change(ByVal Target As Range)

Eric

maj

Bonsoir,

çà serait + facile avec ton fichier allégé et tes codes, pour voir !

amicalement

Claude.

maj

maj

maj

maj

Je ne vois pas de signes donc je me lance

https://www.excel-pratique.com/~files/doc/8WGc9EXEMP1.xls

J'ai mis des couleurs pour être plus explicite (il n'y aura en réalité pas autant de couleurs)

J'ai tenté cela mais cela ne fonctionne pas :

Pour adapter à mes deux tableaux A et C.

Range("k1").Formula = "=MATCH(k2,d2:d60,0) + 5"

Range("d2").Select

Do While ActiveCell <> ""

[k2] = ActiveCell

If IsError(Range("k1")) Then

ActiveCell.Offset(1, 0).Select

Else

ActiveCell.Interior.ColorIndex = 6

ActiveCell.Offset(1, 0).Select

End If

Loop

Range("k1").Formula = "=MATCH(k2,g29:g40,0) + 5"

Range("g29").Select

Do While ActiveCell <> ""

[k2] = ActiveCell

If IsError(Range("k2")) Then

ActiveCell.Offset(1, 0).Select

Else

ActiveCell.Interior.ColorIndex = 6

ActiveCell.Offset(1, 0).Select

End If

Loop

Range("k1:k2").ClearContents

End Sub

Personne n'aurait t'il pas une solution simple svp

Mayday-Mayday

Eric

Bonjour Eric,

Pas trop disponible ces temps ci...

Une proposition de code qui me semble adaptée à ton classeur :

Sub test()
Dim i As Byte, j As Byte, k As Byte, col As Byte
col = 3
Range("D2:D50,G29:G50").Interior.ColorIndex = xlNone
For i = 2 To 50
If Cells(i, 4) <> "" And Cells(i, 4).Interior.ColorIndex = xlNone Then
    For j = 29 To 50
    If Cells(i, 4) = Cells(j, 7) Then
        Cells(i, 4).Interior.ColorIndex = col
        Cells(j, 7).Interior.ColorIndex = col
        For k = 2 To 50
        If Cells(k, 4) = Cells(i, 4) Then Cells(k, 4).Interior.ColorIndex = col
        Next k
    End If
    Next j
col = col + 1
End If
Next i
End Sub

On est d'accord qu'on ne s'occupe pas du tableau B ?

J'avoue ne pas avoir regardé ton essai de code, j'essayerai de trouver un peu de temps mais pas de promesse...

Tiens moi quand même au courant

Merci Sylvain pour le temps que tu m'as accordé, oui , je ne m'occupe pas du tableau B pour surveiller les refs du C.

Je dois faire un dernier comparatif entre le B et un autre tableau D pour finir ma macro définitivement

Pour ne pas remplir le B de 36 couleurs

Merci pour ton code , je le teste demain en live au boulot (pas de plantage commme aujourd'hui j'espere )

Ton code pourra t'il me servir entre B et D sans trop de modifications ?

Il faudra seulement que la couleur soit unique ( juste pour signaler que la ref fait partie du tableau D (coucou je suis dans le D )).

A bientôt,

Eric