Tester deux feuilles

Bonjour,

Je sèche sur une boucle depuis quelques heures...

Je souhaites comparées les données présentes dans deux feuilles et sur plusieurs colonnes.

Si les données sont identiques, on mets simplement à jour la date de la col B.

Si les données n' existent pas, on les ajoutes à la suite des autres.

J'arrive à faire soit l'un, soit l'autre, soit les deux en même temps.....

La feuil1 est en fait un rapport de contrôle mensuel et la feuil2 un recueil

Merci pour votre aide,

Jeremy

Bonjour,

Un essai ...

Sub Bouton1_Cliquer()

   For l = 6 To Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
      If Sheets(1).Range("C" & l) = "R" Then

         With Sheets(2)
            Ln = .Range("A" & Rows.Count).End(xlUp).Row
            For t = 2 To Ln + 1
               If .Range("E" & t) = Sheets(1).Range("B" & l) Then
                  If .Range("F" & t) = Sheets(1).Range("D" & l) And .Range("G" & t) = Sheets(1).Range("E" & l) Then
                     .Range("B" & t) = Date
                     Exit For
                  End If
               End If

               If t > Ln Then
                  x = .Range("A" & Rows.Count).End(xlUp).Row + 1
                  .Cells(x, "D") = Sheets(1).Cells(l, "A").Value
                  .Cells(x, "E") = Sheets(1).Cells(l, "B").Value
                  .Cells(x, "F") = Sheets(1).Cells(l, "D").Value
                  .Cells(x, "G") = Sheets(1).Cells(l, "E").Value
                  .Cells(x, "C") = Sheets(1).Cells(2, "B").Value
                  .Cells(x, "A") = Date
               End If
            Next t
         End With

      End If
   Next l
End Sub

ric

Bonjour Ric et merci.

C'est exactement ce que je souhaitais faire, même si j'avoue ne pas vraiment comprendre le

If t > Ln Then

Bonne journée,

Jeremy

Bonjour Jeremy, ric,

Ln = .Range("A" & Rows.Count).End(xlUp).Row

Ln est le n° de la dernière ligne utilisé, selon colonne A

For t = 2 To Ln + 1

t est l'indice de la boucle : de 2 à Ln + 1

If t > Ln Then

si t est supérieur à Ln alors...

dhany