code a peufiner juste un petit bug....macro qui compare 2 classeurs - VB/VBA/VBS - Programmation
Marsh Posté le 12-07-2006 à 10:24:59
bonjour,
Bah, j'ai pas fouillé plus que ça mais...
If Cellule1 <> f2.Range(Cellule1.Address).Value Then
f1.Cellule1.Interior .ColorIndex = 3
ça devrait suffire. non ? Pas sur...
A+
Marsh Posté le 12-07-2006 à 10:16:05
Maintenant ça marche bien pour les 2 premieres feuilles mais apres ça marche plus?!Il met un message d'erreur:
"la methode select de la classe range a echoué"
voila le code que j'ai testé:
Sub Comparaison1()
Dim Cellule1 As Range
Dim f1 As Worksheet
Dim f2 As Worksheet
Const WK1 = "cas1.xls"
Const WK2 = "cas2.xls"
For Each f1 In Workbooks(WK1).Sheets
MsgBox "Traitement " & f1.Parent.Name & "!" & f1.Name
On Error Resume Next 'Au cas ou feuille inexitante dans classeur2
Set f2 = Nothing
Set f2 = Workbooks(WK2).Sheets(f1.Name)
On Error GoTo 0
If f2 Is Nothing Then
MsgBox "Erreur feuille " & f1.Name & " Inacessible dans " & WK2
Else
For Each Cellule1 In f1.Range("a1:h13" )
If Cellule1 <> f2.Range(Cellule1.Address).Value Then
Cellule1.Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Else
Cellule1.Font.Color = vbBlack
Cellule1.Font.FontStyle = "normal"
End If
Next
End If
Next
End Sub