comparer 2 Feuilles

[sonskriverez]

Bonjour le forum,

Je dois comparer la colonne A de le feuille 1 et la colonne A de la feuille 2.
Si les données de la feuille A sont égales à la feuille B, les donnés de la feuille B seront en bleues sinon en rouges.

Le fichier d'origine contient 5345 lignes


une petite macro serait la bienvenue, merci de votre aide. [file name=comparer.zip size=1527]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/comparer.zip[/file]

 

[ZELTRON]

Bonjour Sonskriverez et à tout le forum,

Regarde le fichier joint, feuil2, regarde dans format/mise en forme conditionnelle. Tous se passe grâce a la colonne b masquée de la feuil2

Est ce que c'est cela que tu voulais?

Cordialement

Zeltron [file name=testMFC.zip size=2825]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testMFC.zip[/file]

 

[JC de Lorient]

bonjour a vous deux, au forum

une petite appli en VBA à mettre dans un module

Sub MDF()
Dim a, x
a = Sheets(2).Range('a65536').End(xlUp).Row
For x = 2 To a
If Worksheets(2).Range('A' & x) = Worksheets(1).Range('A' & x) Then
Worksheets(2).Range('A' & x).Font.ColorIndex = 5
End If
Next
End Sub

JC

 

[sonskriverez]

Merci de l'astuce Zeltron mais c'est du VBA qui m'interesse car sela retre un dans un processus existant déjà.

Par contre JC le code ne fonctionne pas il met en bleu qu'une seul cellule alors qu'il il y en n'a d'autres

 

[JC de Lorient]

re

surprenant car chez moi ça roule impec !

JC

 

[Sonskriverez]

Voici le code que j'utilise mais il y a des erreurs par ex: le même chose dans les 2 colonnes et le code ne le detecte pas.

Sub trouve_Ver2()

Dim sht1 As Worksheet, sht2 As Worksheet
Dim cellule1 As Range, cellule2 As Range

Set sht1 = Worksheets('A')
Set sht2 = Worksheets('B')

'Application.ScreenUpdating = False

For Each cellule1 In sht1.Range('A2:A' & sht1.Range('K65536').End(xlUp).Row)
For Each cellule2 In sht2.Range('A2:A' & sht2.Range('B65536').End(xlUp).Row)

If cellule1.Value = cellule2.Value Then
cellule1.Font.Color = vbBlue ' si trouvé bleu
Else
cellule2.Font.Color = vbRed ' si pas rouge
End If
Next cellule2
Next cellule1

Application.ScreenUpdating = True
End Sub

 

[Sonskriverez]

Voici le code que j'utilise mais il y a des erreurs par ex: le même chose dans les 2 colonnes et le code ne le detecte pas.

Sub trouve_Ver2()

Dim sht1 As Worksheet, sht2 As Worksheet
Dim cellule1 As Range, cellule2 As Range

Set sht1 = Worksheets('A')
Set sht2 = Worksheets('B')

'Application.ScreenUpdating = False

For Each cellule1 In sht1.Range('A2:A' & sht1.Range('K65536').End(xlUp).Row)
For Each cellule2 In sht2.Range('A2:A' & sht2.Range('B65536').End(xlUp).Row)

If cellule1.Value = cellule2.Value Then
cellule1.Font.Color = vbBlue ' si trouvé bleu
Else
cellule2.Font.Color = vbRed ' si pas rouge
End If
Next cellule2
Next cellule1

Application.ScreenUpdating = True
End Sub

 

[Sonskriverez]

Voici le code que j'utilise mais il y a des erreurs par ex: le même chose dans les 2 colonnes et le code ne le detecte pas.

Sub trouve_Ver2()

Dim sht1 As Worksheet, sht2 As Worksheet
Dim cellule1 As Range, cellule2 As Range

Set sht1 = Worksheets('A')
Set sht2 = Worksheets('B')

'Application.ScreenUpdating = False

For Each cellule1 In sht1.Range('A2:A' & sht1.Range('K65536').End(xlUp).Row)
For Each cellule2 In sht2.Range('A2:A' & sht2.Range('B65536').End(xlUp).Row)

If cellule1.Value = cellule2.Value Then
cellule1.Font.Color = vbBlue ' si trouvé bleu
Else
cellule2.Font.Color = vbRed ' si pas rouge
End If
Next cellule2
Next cellule1

Application.ScreenUpdating = True
End Sub

 

[jp14]

Bonjour

Ci joint un fichier qui devrait répondre au problème posé. [file name=comparer_20060117153914.zip size=10621]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/comparer_20060117153914.zip[/file]

Message édité par: jp14, à: 17/01/2006 16:08