Discussion :

[fox89]

Bonsoir,

Je simplifie, j'ai deux colonnes: A (Article1) et B (Article2). Et je souhaite confronter les deux colonnes, parce que certains articles sont dans la colonne A et pas dans la B, et vice versa.

Et si il y'a une différence, il décale vers le bas la colonne où l'article n'est pas présent, et etc...

C'est pour me permettre de savoir qu'elles articles sont absents.

Dans l'attente de réponse.
Bonne soirée
fox89

[fring]

Bonjour,

Un décallage de ligne je crains que ça va donner un résultat inattendu, je verais plutôt une coloration des articles ne se trouvant que dans une seule colonne.
Teste ceci et dis nous si ça pourrait convenir (articles dans les colonnes A et B pour l'exemple)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub test()
Dim i As Integer, cel As Range, DerL As Integer
Application.ScreenUpdating = False
 
Range("A:B").Interior.ColorIndex = xlNone
DerL = Cells(Rows.Count, 1).End(xlUp).Row
 
For i = 2 To DerL
    Set cel = Range("B:B").Find(what:=Cells(i, 1), lookat:=xlWhole)
    If Not cel Is Nothing Then
        cel.Interior.ColorIndex = 6
        Cells(i, 1).Interior.ColorIndex = 6
    End If
Next
 
Set cel = Nothing
 
For Each cel In Range("A2:B" & DerL)
    Select Case cel.Interior.ColorIndex
        Case 6: cel.Interior.ColorIndex = xlNone
        Case xlNone: cel.Interior.ColorIndex = 6
    End Select
Next
 
Application.ScreenUpdating = True
End Sub

[fox89]

C'est génial, c'est pas forcément ce que je voulais, mais ca va me servir pour ca et pour beaucoup d'autres choses !!!!!!

Merci à toi !

[fox89]

Ah si, j'ai besoin d'un complément

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub test()
Dim i As Integer, cel As Range, DerL As Integer
Application.ScreenUpdating = False
 
Range("A:e").Interior.ColorIndex = xlNone
DerL = Cells(Rows.Count, 1).End(xlUp).Row
 
For i = 2 To DerL
    Set cel = Range("d:d").Find(what:=Cells(i, 1), lookat:=xlWhole)
    If Not cel Is Nothing Then
        cel.Interior.ColorIndex = 6
        Cells(i, 1).Interior.ColorIndex = 6
    End If
Next
 
Set cel = Nothing
 
For Each cel In Range("A2:d" & DerL)
    Select Case cel.Interior.ColorIndex
        Case 6: cel.Interior.ColorIndex = xlNone
        Case xlNone: cel.Interior.ColorIndex = 40
    End Select
Next
 
Range("b:b").Interior.ColorIndex = 0
Range("c:c").Interior.ColorIndex = 0
 
Application.ScreenUpdating = True
End Sub

Donc une fois que la cellule est colorée, je la décale vers le bas, parce que j'en ai besoin de confronter. Mais j'aimerai que la couleur disparaisse, parce que de l'autre coté la cellule sera vide.
Je ne sais pas trop comment l'ajouter if xxx="" then
Ci joint image excel.jpeg !

Merci d'avance,

michaël !

[fring]

Si j'ai bien compris essaye ceci, les lignes vides ne sont plus colorées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub test()
Dim i As Integer, cel As Range, DerL As Integer
Application.ScreenUpdating = False
 
Range("A:E").Interior.ColorIndex = xlNone
DerL = Cells(Rows.Count, 1).End(xlUp).Row
 
For i = 2 To DerL
    Set cel = Range("D2:D" & DerL).Find(what:=Cells(i, 1), lookat:=xlWhole)
    If Not cel Is Nothing Then
        cel.Interior.ColorIndex = 6
        Cells(i, 1).Interior.ColorIndex = 6
    End If
Next
 
Set cel = Nothing
 
For Each cel In Range("A2:A" & DerL & ",D2:D" & DerL)
    If cel.Value = "" Then
        cel.Interior.ColorIndex = xlNone
    Else
        Select Case cel.Interior.ColorIndex
            Case 6: cel.Interior.ColorIndex = xlNone
            Case xlNone: cel.Interior.ColorIndex = 40
        End Select
    End If
Next
 
Application.ScreenUpdating = True
End Sub

[fox89]

C'est bon !

Merci bien !

fox89