Comparer 2 colonnes dans 2 onglets avec 2 conditions successives

[beoper]

Bonjour à tous,

Je suis bloqué. J'ai essayé de modifier des exemples présents sur ce forum, mais je n'arrive pas à me dépatouiller !

cf. fichier joint.

Résultat souhaité :
Tester si 1) les cellules des colonnes A sont identiques. Si oui, tester si leur colonne F a changé. Si oui mettre la valeur en feuil3 colonne D.

Sub newtest()
    Dim Plage As Range, c As Range
    Sheets(3).Select
    Sheets(3).Range("A1").Select
    Set Plage = Sheets(1).Range("A1", Sheets(1).Range("A65536").End(xlUp))
 
    i = 0
    For Each c In Plage
    i = i + 1
        
        If WorksheetFunction.CountIf(Plage, Sheets(2).Cells(i, 1)) <> 0 Then
            '=NB.SI(Feuil1!1:1048576;Feuil3!A1)
            ' = 1 qd la ligne i existe
            
            
      
        
            If (Sheets(1).Cells(i, 6)) <> (Sheets(2).Cells(i, 6)) Then
            'Erreur de ma part dans la 2eme partie pas i mais un j ??
            
            
            Sheets(3).Cells(i, 2) = i
            'Erreur de ma part : manque encore une !
            
            
            ActiveCell.Value = Sheets(2).Cells(i, 1).Value
            
            'se decale à droite de 3
            ActiveCell.Offset(0, 3).Select 'row, col
            ActiveCell.Value = Sheets(2).Cells(i, 6).Value
            
            
            
            'se decale à gauche de 3 cellule
            ActiveCell.Offset(0, -3).Select 'row, col
            
            'se decale d'une ligne en bas
            ActiveCell.Offset(1, 0).Select
            End If
            
        End If
    Next c

End Sub

Merci d'avance

 

[sousou]

Re : Comparer 2 colonnes dans 2 onglets avec 2 conditions successives

Bonjour beoper

Ci joint un essai à compléter si besoin.

 

[beoper]

Re : Comparer 2 colonnes dans 2 onglets avec 2 conditions successives

Bonsoir Sousou,

Désolé pour le retard. Je rentre à peine. Merci pour votre aide très précieuse. C'est fantastique !

Merci mille fois.