VBA excel 2003 comparaison de lignes multiples critères

Je ne t'ai pas parlé de with, cells()......????

si tu démarres tes copies ligne 2 de la feuille 2

m=1
For Each Cel In Plage

......


si tu démarrestes copies ligne 1de la feuille 2

tu implémentes avant

If CelTrouve.Address <> Cel.Address Then
              If CelTrouve.Offset(, 7).Value < Cel.Value And CelTrouve.Offset(, 4).Value = "VERIFIED" And CelTrouve.Offset(, 5).Value = "PENDING_MO" Then ' et si ma version est la plus récente
                     m=m+1
                    Sheets("Feuil1").Rows(ligne).Copy Sheets("Feuil2").Rows(m) 'Alors on copie la ligne dans la 2eme feuille
                   etc.

et peut-être (je ne connais ton contexte)

If CelTrouve.Address <> Cel.Address Then
       M=M+1
          If CelTrouve.Offset(, 7).Value < Cel.Value And CelTrouve.Offset(, 4).Value = "VERIFIED" And CelTrouve.Offset(, 5).Value = "PENDING_MO" Then   
         Sheets("Feuil1").Rows(ligne).Copy Sheets("Feuil2").Rows(m)

         ElseIf CelTrouve.Offset(, 7).Value < Cel.Value And CelTrouve.Offset(, 4).Value = "AFFIRMED_BO" And CelTrouve.Offset(, 5).Value = "PENDING_MO" Then
         Sheets("Feuil1").Rows(ligne).Copy Sheets("Feuil2").Rows(m)

        etc...

les with, cells() dont je parlais sont ceux dans le code que je proposais et que je ne maitrise pas...
Oui je vois pour l'initialisation du m, mais c'est la variable ligne qui me pose un souci :

Sheets("Feuil1").Rows(ligne).Copy Sheets("Feuil2").Rows(m)

(il m'affiche un message d'erreur sur cette ligne )
comme je l'ai fait remarquer je ne vois pas comment l'initialiser et récupérer la ligne de la cellule comparée dans <code>CelTrouve.Offset(, 5).Value<code>

Bonjour,
Ligne=celtrouve.row

au passage:
Evite au maximum
les systèmes
select puis copy puis select puis activesheet.paste !!!

c'est très lent et ca sent la copie bête de l'enregistreur de macro !

Je ne comprends donc pas pourquoi il ne prend pas les autres lignes qui 'correspondent '. 

Parce que ta macro, excuse le terme, c'est du charabia...

Décris nous exactement ce qu'elle est censée faire.

Alors, sans garantie car je l'ai codé "à la volée" ici même, test ce code [que je n'ai pas testé moi-même!!]. Je l'ai commenté...
En fait le code procède comme ceci :
Pour toutes les cellules de la plage E1:EdernièreLigne
1- si col I = VERIFIED et Col J = PENDING_MO alors
2- On cherche, dans la feuille 2 colonne E si la valeur contenue Feuil1E est présente
3- si elle est présente (en gros ça veut dire qu'on l'a déjà copiée) alors elle teste si la colonne L est supérieure.
4- si oui, elle remplace
5- si non, elle ne fait rien.
6- Si la valeur n'est pas présente en Feuil2, alors elle copie la ligne...

Sub BrutOpModif()
Dim Plage As Range
Dim Cel As Range
Dim CelTrouve As Range
Dim m As Long

m = 2
With Sheets("Feuil1")
    Set Plage = .Range(.Cells(1, 5), .Cells(.Rows.Count, 5).End(xlUp))
End With
With Sheets("Feuil2")
    For Each Cel In Plage 'pour toutes les cellules Feuil1 Col E
        'Si on a VERIFIED col I et PENDING_MO Col J alors
        If Cel.Offset(0, 4).Value = "VERIFIED" And Cel.Offset(0, 5).Value = "PENDING_MO" Then
            'on cherche, Feuil2 Col E si la valeur existe déjà (ligne déjà copiée)
            Set CelTrouve = .Columns(5).Cells.Find(Cel.Value, lookin:=xlvalues, lookat:=xlwhole)
            'Si la valeur existe (ligne préalablement copiée) 
            If Not CelTrouve Is Nothing Then
                'on compare les valeurs Col L Feuil2 et Feuil1
                If CelTrouve.Offset(0, 7).Value < Cel.Offset(0, 7).Value Then
                    'On copie Feuil1 en Feuil2 si L est plus grand
                    Sheets("Feuil1").Rows(Cel.Row).Copy .Rows(CelTrouve.Row)
                End If
            Else 'Si par contre la valeur n'existe pas Feuil2
                'alors on la copie colle
                Sheets("Feuil1").Rows(Cel.Row).Copy .Rows(m)
                m = m + 1
            End If
        End If
    Next Cel
End With

Bonjour Pijaku, ton code marche très bien , je te remercie, j'ai les lignes correspondantes qui sortent. Pourrait on rajouter 4 critères je te prie ?
Il faudrait faire ressortir les lignes les plus anciennes pour chaque 'id' dont les colonnes contiennent les valeurs suivantes :

VERIFIED_MO col I et PENDING_MO Col J
AFFIRMED_BO col I et PENDING_MO Col J
CANCELLED col I
CANCEL col J

Du coup j'ai rajouté ces conditions à la ligne :

(Cel.Offset(0, 4).Value = "VERIFIED" And Cel.Offset(0, 5).Value = "PENDING_MO") Or (Cel.Offset(0, 4).Value = "VERIFIED_MO" And Cel.Offset(0, 5).Value = "PENDING_MO") Or (Cel.Offset(0, 4).Value = "AFFIRMED_MO" And Cel.Offset(0, 5).Value = "PENDING_MO") Or (Cel.Offset(0, 4).Value = "CANCELED") Or (Cel.Offset(0, 5).Value = "CANCEL")

Mais il me manque quelques lignes. Les critères sont bons comme je les ais écrit ?

Salut,

D'où l'inconvénient de ne pas exposer clairement son problème dès le départ...

D'autres auraient abandonné (à juste titre) à ce moment.

Je vais tenter de continuer.

Par contre, je ne comprends rien de rien à ce que tu souhaites maintenant. Faut que tu ré-explique tout depuis le début.

Je ne vois pas comment exposer le problème plus clairement mais je vais tenter une nouvelle fois. Le résultat est bon, c'est cela que je veux . Mais il y a un cas particulier qui m'embête et qui doit être à l'origine de "l'oubli " de quelques lignes. Imaginons une ligne au début dont la version est 1 ( la plus vieille possible) mais dont les critères ne sont pas respectés ( ni verified col I ni pending_mo col J ) etc, la ligne va quand même être sélectionnée étant donnée qu'elle a le numéro de version le plus vieux ( 1 ) .

Voila je pense avoir résumé le plus clairement possible, si tu n'y vois toujours pas plus clair c'est que je ne résoudrai pas ce problème donc tu peux abandonner ;)

Merci pour ton aide en tout cas.

A titre indicatif voici le code que j'avais crée au tout début, qu'on m'a reproché d'être scolaire, sale etc, mais il fonctionnait de la même façon que le tien. Seul hic, comme énoncé précédemment, si une version antérieure était détectée au début, elle était conservée alors qu'elle n'était pas "valable" ( critères non respectés ).

Sub BrutOpModif()
Dim m As Integer
Dim Min As Integer
'Dim minn As Integer
Dim Maligne As Integer

m = 2

nbcolonne1 = Sheets("Feuil1").UsedRange.Columns.Count 'compte le nombre de colonnes non vides sur la feuille 1
nbligne1 = Sheets("Feuil1").UsedRange.Rows.Count 'compte le nombre de lignes non vides sur la feuille 1

For ligne = 2 To nbligne1
    If ligne = 2 Then 'Je ne comprends pas cette condition. Ca veut dire qu'elle n'est valable que la 1ere fois ?
        Min = Cells(ligne, 12) ' ?
        Maligne = ligne
    Else
    If Cells(ligne, 5) = Cells(ligne - 1, 5) Then 'Si l'id est égal à l'id d'avant
        If Cells(ligne, 12) < Min And Cells(ligne, 9) = "VERIFIED" And Cells(ligne, 10) = "PENDING_MO" Then ' et si ma version est la plus récente
            Min = Cells(ligne, 12).Value 'alors on incrémente le min
            Maligne = ligne             ' et on prend le numéro de ligne
        ElseIf Cells(ligne, 12) < Min And Cells(ligne, 9) = "AFFIRMED_BO" And Cells(ligne, 10) = "PENDING_MO" Then ' et si ma version est la plus récente
            Min = Cells(ligne, 12).Value 'alors on incrémente le min
            Maligne = ligne             ' et on prend le numéro de ligne
        ElseIf Cells(ligne, 12) < Min And Cells(ligne, 9) = "VERIFIED_MO" And Cells(ligne, 10) = "PENDING_MO" Then ' et si ma version est la plus récente
            Min = Cells(ligne, 12).Value 'alors on incrémente le min
            Maligne = ligne             ' et on prend le numéro de ligne
        ElseIf Cells(ligne, 12) < Min And Cells(ligne, 9) = "CANCELED" Then  ' et si ma version est la plus récente
            Min = Cells(ligne, 12).Value 'alors on incrémente le min
            Maligne = ligne             ' et on prend le numéro de ligne
        End If
    Else
        Rows(Maligne).Font.Bold = True 'On met ensuite la ligne en gras. Mais ici,cela va mettre en gras chaque ligne dont la version est inférieure. S'il y a 6,5,4,3,2 par exemple dans la colonne 12 , dans cet ordre, les 5 lignes vont être en gras
        Min = Cells(ligne, 12).Value
        Maligne = ligne
    End If
    End If
Next

For ligne = 2 To nbligne1

    

        If Cells(ligne, 9) = "VERIFIED" And Cells(ligne, 10) = "PENDING_MO" And Rows(ligne).Font.Bold = True Then ' si ces 2 critères sont validés
        Sheets("Feuil1").Rows(ligne).Copy Sheets("Feuil2").Rows(m) 'Alors on copie la ligne dans la 2eme feuille
        m = m + 1
        ElseIf Cells(ligne, 9) = "AFFIRMED_BO" And Cells(ligne, 10) = "PENDING_MO" And Rows(ligne).Font.Bold = True Then  ' si ces 2 critères sont validés
        Sheets("Feuil1").Rows(ligne).Copy Sheets("Feuil2").Rows(m) 'Alors on copie la ligne dans la 2eme feuille
        m = m + 1
        ElseIf Cells(ligne, 9) = "VERIFIED_MO" And Cells(ligne, 10) = "PENDING_MO" And Rows(ligne).Font.Bold = True Then   ' si ces 2 critères sont validés
        Sheets("Feuil1").Rows(ligne).Copy Sheets("Feuil2").Rows(m) 'Alors on copie la ligne dans la 2eme feuille
        m = m + 1
        ElseIf Cells(ligne, 9) = "CANCELED" And Rows(ligne).Font.Bold = True Then   ' si ces 2 critères sont validés
        Sheets("Feuil1").Rows(ligne).Copy Sheets("Feuil2").Rows(m) 'Alors on copie la ligne dans la 2eme feuille
        m = m + 1
        ElseIf Cells(ligne, 10) = "CANCEL" And Rows(ligne).Font.Bold = True Then   ' si ces 2 critères sont validés
        Sheets("Feuil1").Rows(ligne).Copy Sheets("Feuil2").Rows(m) 'Alors on copie la ligne dans la 2eme feuille
        m = m + 1
        End If
        
   


Next

End Sub

C'est ça que je ne peux pas comprendre :
Imaginons une ligne au début dont la version est 1 ( la plus vieille possible) mais dont les critères ne sont pas respectés ( ni verified col I ni pending_mo col J ) etc, la ligne va quand même être sélectionnée étant donnée qu'elle a le numéro de version le plus vieux ( 1 ) .
Dans mon code, cette ligne (si ni verified col I ni pending_mo col J) n'est pas copiée...
Si tu veux qu'elle le soit, faut ajouter un test. Tu dis...