Bjr,
J'essaie de comparer les cellules de deux colonnes d'un tableau excel de sorte que:

1 1 1
2 3 2
3 4 3 4

si je trouve une égalité je copie col3,si je trouve une nouveauté je copie col5
et si il y a une disparition (comme ici le 2) je copie col4.
Mais j'ai des difficultés à intégrer ma troisième condition.
Mon bout de code:

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
31
32
33
34
35
36
37
38
Sub ComparaisonWF()
'
'
    Dim PlageCriteres As Range
    Dim PlageDonnees As Range
    Dim CelDonnee As Range
    Dim CelCritere As Range
    Dim Trouve As Boolean
 
 
    Set PlageCriteres = Range("B2:B" & Range("B65536").End(xlUp).Row)
    Set PlageDonnees = Range("A2:A" & Range("A65536").End(xlUp).Row)
 
    For Each CelDonnee In PlageDonnees
        Trouve = False
        For Each CelCritere In PlageCriteres
 
            If InStr(1, CelDonnee.Value, CelCritere.Value) <> 0 Then
                Trouve = True
                Exit For
            End If
        Next CelCritere
 
 
        If Not Trouve Then CelDonnee.Offset(0, 3).Value = CelDonnee.Value
 
        If Trouve Then CelDonnee.Offset(0, 2).Value = CelDonnee.Value
 
 
    Next CelDonnee
 
    Set PlageCriteres = Nothing
    Set PlageDonnees = Nothing
    Set CelCritere = Nothing
    Set CelDonnee = Nothing
 
 
End Sub