cOLORIER DES CASES

[teodormircea]

Bonjour tout le monde
j'aurais un petit coup de mains . J'ai deux ranges de valeurs , trie par MATCH et je voudrais colorier les lignes ou il y a plusieurs match. J'ai mit un fichier attache pour un petit exemple. Le truc c;est que la ou il y a au max une centaine de ligne je le fais a la main mais j'ai parfois plus de 30000
Merci a vous🙂

 

[porcinet82]

Re : cOLORIER DES CASES

Salut,

Essaye le code suivant, il focntionne sur ton exemple :

Sub test()
Dim i&
For i = 1 To 18 'range("A655536").End(xlUp).row
    If Cells(i, 1).Value = Cells(i, 9).Value Then
        Range("A" & i & ":O" & i).Interior.ColorIndex = 44
        Range("H" & i).Value = "P"
    End If
    If i > 1 Then
        If Cells(i, 1).Value = "" And Cells(i - 1, 1).Value = Cells(i, 9).Value Then
            Range("A" & i & ":O" & i).Interior.ColorIndex = 44
            Range("H" & i).Value = "P"
        End If
    End If
Next i
End Sub

@+

 

[teodormircea]

Re : cOLORIER DES CASES

Merci pour ta reponsse, le truc avec ce code c'est que ca colorie aussi le lignes ou j'ai qu'un seul match.
Je veux mettre en évidence le lignes qui on plus d'un seul match

 

[teodormircea]

Re : cOLORIER DES CASES

VOILA J'ai rajoute des commentaire sur le feuille excel
Sur la feuille c'est un exemple idéal, ça marche sur celle ci mais si je teste su une autre çà marche plus

 

[porcinet82]

Re : cOLORIER DES CASES

re,

Avec les modif suivantes ca devrait le faire :

Sub test()
Dim i&
For i = 1 To 18 'range("A655536").End(xlUp).row
    If Cells(i, 1).Value = Cells(i, 9).Value Then
        If Cells(i, 9).Value = Cells(i + 1, 9).Value Then
            Range("A" & i & ":O" & i).Interior.ColorIndex = 44
        ElseIf Cells(i, 1).Value = Cells(i + 1, 1).Value Then
            Range("A" & i & ":O" & i).Interior.ColorIndex = 44
        End If
    ElseIf Cells(i, 1).Value = "" Then
        If Cells(i, 9).Value = Cells(i - 1, 9).Value Then
            Range("A" & i & ":O" & i).Interior.ColorIndex = 44
        End If
    ElseIf Cells(i, 9).Value = "" And Cells(i - 1, 9).Interior.ColorIndex = 44 Then
        Range("A" & i & ":O" & i).Interior.ColorIndex = 44
    End If
Next i
End Sub

@+

 

[teodormircea]

Re : cOLORIER DES CASES

C'est encore mieux , mais je sais pas si c'est un problème de format de cellule chez moi car çà met pas le P par tout ( la modification pour les p je me suis inspire du premier code). Ça arrive aussi que j'ai des multiples match du style 2 valeurs avec deux valeurs ou 3 valeurs avec 3 valeurs ou , 2 valeurs avec 3 , il y a pas de réglés concernant le multiple match, avec ce code quand je les rencontre il sait plus koi faire .

merci

 

[porcinet82]

Re : cOLORIER DES CASES

re,

Oulala, mais quel boulet je fais aujourd'hui !!!
Bon, il te suffit de rajouter sous toutes les lignes Range("A" & i & ":O" & i).Interior.ColorIndex = 44 la ligne Range("H" & i).Value = "P"

@+

 

[teodormircea]

Re : cOLORIER DES CASES

C'est pas grave j'ai rajoute, car j'ai comprit un petit peut ton code, ca marche impec
le truc maintenant c'est de mettre aussi en évidence d'autres cas de figure comme ceux explique dans le dernier thread ,je croix que je t'ai envoie aussi un prive un message (désole pour le bourrage de crane )😀

 

[porcinet82]

Re : cOLORIER DES CASES

re,

Désolé, mais je ne saisie pas ta demande...

@+

 

[teodormircea]

Re : cOLORIER DES CASES

JE vais te joindre un exemple . parmi les cas de multiple match que tu a vu dans le premier exemple j'ai rencontre dans me fichiers D'AUTRES CAS (voir piece jointe)

 

[teodormircea]

Re : cOLORIER DES CASES

Bonjour

Porcinet si tu est la tu pourras m'aider avec le dernier exemple STP

 

[teodormircea]

Re : cOLORIER DES CASES

Je viens de regarder mon dernier example , au fait c'est dans le cas ou il ya des doublons a partir de 2 par 2 ou 3 pas 3 ou 4 par 4, car le reste ca marche tres bien 😀

 

[teodormircea]

Re : cOLORIER DES CASES

Mhhhh il y a vraiment personne qui a une idee😱

 

[teodormircea]

Re : cOLORIER DES CASES

voila le reponsse que j'ai trouve tout seul elle etais bien pourtant sous mon nez

Sub test1()
Dim i&
For i = 1 To 15 'range("A655536").End(xlUp).row
If Cells(i, 1).Value = Cells(i, 9).Value Then
If Cells(i, 9).Value = Cells(i + 1, 9).Value Then
Range("A" & i + 1 & ":O" & i).Interior.ColorIndex = 44
Range("H" & i + 1).Value = "P"
Range("H" & i).Value = "P"
ElseIf Cells(i, 1).Value = Cells(i + 1, 1).Value Then
Range("A" & i & ":O" & i).Interior.ColorIndex = 44
Range("H" & i + 1).Value = "P"
Range("H" & i).Value = "P"
End If
ElseIf Cells(i, 1).Value = "" Then
If Cells(i, 9).Value = Cells(i - 1, 9).Value Then
Range("A" & i & ":O" & i).Interior.ColorIndex = 44
Range("H" & i).Value = "P"
End If
ElseIf Cells(i, 9).Value = "" And Cells(i - 1, 9).Interior.ColorIndex = 44 Then
Range("A" & i & ":O" & i).Interior.ColorIndex = 44
Range("H" & i).Value = "P"
End If
Next i

End Sub