Comparaison de deux colonnes par blocs

Version imprimable

17/07/2012, 04h46
Leonard02

1 pièce(s) jointe(s)

Comparaison de deux colonnes par blocs

Bonjour,

J'ai un fichier excel contenant deux colonnes avec valeurs assez aléatoires. Néanmoins un bloc de la première colonne peut se trouver dans la deuxième. Je dois donc parcourir la deuxième colonne pour trouver un bloc identique qui est contenue dans la première.
Avez-vous une idée pour commencer? Une fonction que je pourrais utiliser? Ou même comment puis-je comparer simultanément les deux colonnes.

Merci pour votre aide
17/07/2012, 08h35
Supermichou

mise en forme conditionnelle

Bonjour,

tu peux faire simple en passant par la mise en forme conditionnelle.

En B3 tu fais la formule est =SI(NB.SI($D$3:$D$65000;B3)>0;VRAI;FAUX) avec une belle couleur verte en format de condition. copie le format sur toute la colonne.
Refais l'opération en D3 avec =SI(NB.SI($B$3:$B$65000;D3)>0;VRAI;FAUX)
toujours avec un tag vert.

Là où c'est vert, tu as tes concordances.

Supermichou, tôt dès le matin

Bonjour,

Voila une solution alternative avec une macro :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim Dl As Long, x As Long, y As Long
Dim tbB(), tbD()
 
With Sheets("Sheet1")
  Dl = .Range("B" & .Rows.Count).End(xlUp).Row 'Première colonne à comparer
  ReDim tbB(1 To Dl)
  For x = 1 To Dl
    tbB(x) = .Range("B" & x)
  Next x
End With
 
With Sheets("Sheet1")
  Dl = .Range("D" & .Rows.Count).End(xlUp).Row 'Deuxième colonne
  For y = 1 To UBound(tbB)
    For x = Dl To 1 Step -1
      If .Range("D" & x) = tbB(y) Then
        .Range("D" & x).Interior.ColorIndex = 6
      End If
    Next x
  Next y
End With

Le code va surligner en jaune toutes les cellules de la colonne D dont la valeur est présente dans la colonne B.