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
Partager