Macro comparaison de 2 colonnes Résolu/Fermé

Question

Bonjour,
je cherche a ecrire une macro qui de la ligne 500 a 0, me comparera les valeurs des colonnes m et  s.
Si les valeurs sont differentes copier, coller la ligne entiere vers une autre feuille, et supprimer cette ligne dans la feuille d'origine.

Je suis arrive a la faire pour une cellule specifique mais pas pour toutes les lignes de 500 a 0.
Sub limitSAPdiffCofanet()


        If Cells(13, "m") = Cells(13, "s") Then
        Cells(13, "m").EntireRow.Copy
        Cells(13, "m").Select
        Sheets("extraction").Cells(13, "m").Rows(2).EntireRow.PasteSpecial
        Cells(13, "m").EntireRow.Delete

End If

End Sub

merci de repondre les pros du BVA ^^

zavenger · Accepted Answer

Bonjour

qque chose comme cela devrait resoudre ton pb

Sub limitSAPdiffCofanet()

LigDeb = 1
LigFin = 500
ii = LigDeb
jj = LigDeb
Do

If Cells(ii, "m") = Cells(ii, "s") Then
    Cells(ii, "m").EntireRow.Copy
    Sheets("extraction").Rows(jj & ":" & jj).PasteSpecial
    Cells(ii, "m").EntireRow.Delete
    jj = jj + 1
    LigFin = LigFin - 1
Else
    ii = ii + 1
End If

Loop While ii < LigFin

End Sub

Macro comparaison de 2 colonnes

1 réponse

Discussions similaires