Reprise du message précédent :
Et non marche pas ...  
 
J ai essayé cela aussi :  
 If Not Y Then WsN.Range("A" & j).Interior.ColorIndex = 3  
 
 
marche pas non plus . je peux eventuellement te passer les fichiers resultats ?

bon j ai reussi a bidouiller ce que je voulais :  
 
Sub galopin()
Dim iLRA%, iLRN%, i%, j%, k%
Dim Y As Boolean, Ys As Boolean
Dim TabloA(), TabloN()
Dim WbA As Workbook, WbN As Workbook
Dim WsA As Worksheet, WsN As Worksheet
'Détermination du nombre de ligne de Classeur "Ancien" et "Nouveau"
Set WbA = Workbooks("Ancien.xls" )
Set WbN = Workbooks("Nouveau.xls" )
Set WsA = WbA.Worksheets(1)
Set WsN = WbN.Worksheets(1)
iLRA = WsA.Cells(65535, 1).End(xlUp).Row
iLRB = WsN.Cells(65535, 1).End(xlUp).Row
TabloA() = WsA.Range("A1:A" & iLRA)
TabloN() = WsN.Range("A1:A" & iLRB)
 
'Détermination des absents
For i = 1 To UBound(TabloA)
  For j = 1 To UBound(TabloN)
    'Si égalité alors on pose un drapeau
    If TabloN(j, 1) = TabloA(i, 1) Then
      Y = True
      'et on vérifie la ligne si c'est une égalité stricte
        For k = 1 To 70 'nombre de colonne a tester
          'si différence on pose un drapeau
          If WsA.Cells(i, k) <> WsN.Cells(j, k) Then
            Ys = True
            'et on colore en orange
            WsN.Cells(j, k).Interior.ColorIndex = 45
            WsN.Cells(j, 1).Interior.ColorIndex = 45
          End If
        Next
          'sinon 1ere cellule en vert
          If Not Ys Then WsN.Cells(j, 1).Interior.ColorIndex = 4
        Ys = False
      Exit For
    End If
  Next
  'Si pas trouvé alors on colorie en rouge
  If Not Y Then WsN.Range("A" & j).Interior.ColorIndex = 3
  Y = False
   
   
Next
Set WbA = Nothing
Set WbN = Nothing
Set WsA = Nothing
Set WsN = Nothing
 
Call galopin2
 
End Sub
 
 
 
Sub galopin2()
Dim iLRA%, iLRN%, i%, j%, k%
Dim Y As Boolean, Ys As Boolean
Dim TabloA(), TabloN()
Dim WbA As Workbook, WbN As Workbook
Dim WsA As Worksheet, WsN As Worksheet
'Détermination du nombre de ligne de Classeur "Ancien" et "Nouveau"
Set WbA = Workbooks("Ancien.xls" )
Set WbN = Workbooks("Nouveau.xls" )
Set WsA = WbA.Worksheets(1)
Set WsN = WbN.Worksheets(1)
iLRA = WsA.Cells(65535, 1).End(xlUp).Row
iLRB = WsN.Cells(65535, 1).End(xlUp).Row
TabloA() = WsA.Range("A1:A" & iLRA)
TabloN() = WsN.Range("A1:A" & iLRB)
 
Y = False
 
'Détermination des absents
For j = 1 To UBound(TabloN)
 
  For i = 1 To UBound(TabloA)
    'Si égalité alors on pose un drapeau
    If TabloA(i, 1) = TabloN(j, 1) Then
      Y = True
      Exit For
    End If
  Next
  'Si pas trouvé alors on colorie en rouge
  If Not Y Then WsN.Range("A" & j).Interior.ColorIndex = 3
  Y = False
   
   
Next
 
Set WbA = Nothing
Set WbN = Nothing
Set WsA = Nothing
Set WsN = Nothing
 
End Sub

Bonjour,  
 
Je suis un peu perdu sur ma macro, j'ai 2 fichiers excel "Rev A" et "Rev B", dans le premier j ai une liste d'ustensiles avec les parametres correspondants pour chacun et ces derniers sont deja (grace a une macro crée) repertorié suivant differents onglets  (ex: onglet cuisine--> liste de produit cuisine avec la description associée, onglet chambre...). Dans mon second fichier, j'ai exactement la meme lsite que mon fichier Rev A a ceci pres que dans ce dernier j'y ai ajoute des elements manuellement avec la description adequate.  
Je voudrais avoir une macro qui puisse comparer suivant le nom de mes ustensiles entre mes 2 fichiers Rev A et Rev B et ajouter dans RevB ( tout en balayant tous mes onglets) les ustensiles manquants...  
J espere avoir ete assez clair.  
Si qqun pouvais m aider plzzzz