Mettre un effet visuel pour trier

Bonsoir, essais concluant !

Cela fonctionne parfaitement Sylvain

J'ai essayé d'appliquer le meme code sur le D mais il semble y avoir un soucis .

J'ai l'impression que je ne peux pas utiliser le code deux fois ( une fois sur le A puis sur

le D).

Dois-je changer les lettres i & j & k pour l'utiliser une fois de plus ?

Eric

Bonsoir,

Même réponse que d'habitude...

Ne sachant ni l'emplacement de ton tableau D, ni le code que tu tentes...

Par contre si tu veux seulement colorier le tableau B, et tout de la même couleur, ça simplifie drôlement...

Tu peux t'inspirer de ça pour un tableau "D" allant de L25 à L33 :

Range("G2:G22").Interior.ColorIndex = xlNone
For i = 2 To 22
If Cells(i, 7) <> "" Then
    For j = 25 To 33
        If Cells(i, 7) = Cells(j, 12) Then
        Cells(i, 7).Interior.ColorIndex = 8
        End If
    Next j
End If
Next i

Cells(j,12) et For j=25 to 33 ==> balaye la colonne L (12è lettre) de la ligne 25 à 33

Bonjour, ok je vais essayer avec ton code.

En fait mon tableau D est sur une autre page , et est identique exactement à mon exemple

sauf que les données sont differentes dans les trois tableaux

Eric

J'ai presque fini ma macro !!

Il me reste juste une erreur de compilation ...Je ne sais plus le message exact , mais cela dis que j'essaye d'utiliser des variables déjà utilisées (ou en cours)

Je pense savoir pourquoi !

Le code :

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

Ce code se réactualise si je rajoute une ref si j'ai bien compris

Est-il possible d'arrêter cette réactualisation ?

Il ne faudrait pas enlever les lignes " End If " ?

Eric

Bonjour Eric, le forum

Non ce code ne "s'actualise pas"

Il est simplement exécuté à l'appui sur un bouton, et quand il a fini ses boucles plus rien...

Vérifie si tu as un code quand tu double cliques sur "Feuil1" sous VBE

Si oui, supprimes le et refais un essai

Sinon, je vais encore insister mais JOINS TON FICHIER ! (oui oui, j'ai crié )

Parce que là ça devient de plus en plus aléatoire de te répondre...

Si tu ne veux pas communiquer de données confidentielles, mets des trucs bidons à la place, mais il faut que les plages soient au même endroit, sinon on peut pas trouver l'erreur.

Ou alors tu me fais confiance, et tu me l'envoie en MP, je le détruirai dés que j'aurai corrigé