Discussion :

[Leonard02]

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

[Supermichou]

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

[Ysae68]

Bonjour,

Voila une solution alternative avec une macro :

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
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.