Bonjours Forum comment allez-vous
J'aurait une petite question auquelle je ne trouve pas de réponse...
Jai une parti de code
Sa me sert a faire une comparaison de tableau exemple si un numéro apparait dans les 2 feuilles bien il est de couleur verte sinon il est jaune
Mais voila comment faire pour qu'il prennent toute mes doublons de ma feuille1 en considération...
merci d'avance
J'aurait une petite question auquelle je ne trouve pas de réponse...
Jai une parti de code
Code:
f1 = 3 'no feuille
f2 = 5
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Sheets("temp").Delete
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "temp"
Sheets(f1).Activate
Set Execut = CreateObject("Scripting.Dictionary")
Set ListeFu = CreateObject("Scripting.Dictionary")
For Each c In Sheets(f1).Range("B:B").SpecialCells(xlCellTypeConstants, 23)
If Not Execut.Exists(c.Value) Then Execut.Add c.Value, c.Address
Next
'---
Sheets(f2).Activate
For Each c In Sheets(f2).Range("A:A").SpecialCells(xlCellTypeConstants, 23)
If Not ListeFu.Exists(c.Value) Then ListeFu.Add c.Value, c.Address
Next
'---
I = 1
Sheets(f1).Activate
For Each e In Execut
If ListeFu.Exists(e) Then
Range(Execut.Item(e)).Interior.ColorIndex = 4
Else
Range(Execut.Item(e)).Interior.ColorIndex = 6
I = I + 1
Sheets("temp").Cells(I, 2) = e
Sheets("temp").Cells(I, 1) = Execut.Item(e)
End If
Next
Sa me sert a faire une comparaison de tableau exemple si un numéro apparait dans les 2 feuilles bien il est de couleur verte sinon il est jaune
Mais voila comment faire pour qu'il prennent toute mes doublons de ma feuille1 en considération...
merci d'avance