Comparer des cellules

[Dominique]

Bonjour,

J'ai une plage ce cellules (Plage A) et une plage de cellules (plage B). Si la même valeur se trouve dans les 2 plages mettre la valeur trouvée en rouge. Est-ce possible en VB? Pouvez-vous me dire comment parce que moi VB c'est à peine si je sais que ça existe. Alors merci d'avance sinon tant pis.

 

[Ronan]

Bonsoir à tous,

Voici un petit programme :

Option Explicit
Sub valeur_identique()

Dim ligne As Long, ligne2 As Long
Dim valeur As Range, plage As Range
Dim valeur2 As Range, plage2 As Range
Dim trouve As Byte

With Sheets("feuil1")

ligne = .Cells(65536, 1).End(xlUp).Row
ligne2 = .Cells(65536, 2).End(xlUp).Row

Set plage = .Range("a1:a" & ligne)
Set plage2 = .Range("b1:b" & ligne2)

End With

For Each valeur In plage
For Each valeur2 In plage2
If valeur = valeur2 Then
valeur2.Interior.ColorIndex = 3
trouve = 1
End If
Next
If trouve = 1 Then valeur.Interior.ColorIndex = 3
trouve = 0
Next

End Sub

@+

Ronan

 

[LaurentTBT]

Bonsoir.

Avec la mise en forme conditionnelle, voici un moyen, mais qui ne fonctionne que si chaque plage n'est pas composée de cellules non adjacentes.

Par exemple, si la première plage est "B3:B6", et la deuxième "D2😀5", tu sélectionnes B3, puis Format puis Mise en forme conditionnelle.

Tu choisis ensuite "La formule est" puis tu tapes dans la deuxième zone:
=NB.SI($D$1:$D$5;B3)>0, et enfin, tu choisis ta mise en forme voulue au cas où la valeur de B3 existe aussi dans D1😀5

Ensuite, tu recopie la mise en forme sur chaque case de B4 à B6, et tu refais toute la manip réciproque sur D1 à D5. Bon, je ne suis pas sûr d'être très compréhensible à cette heure-ci, donc jette un coup d'oeil sur le fichier joint.

Bonne nuit