Macro comparaison de 2 colonnes
Résolu
fabh
-
fabh -
fabh -
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 ^^
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 ^^
A voir également:
- Macro comparaison de 2 colonnes
- Faire 2 colonnes sur word - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Inverser 2 colonnes excel - Guide
1 réponse
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
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
ta proposition est vraiment bien, je pense que je vais demande a ma macro qu'elle ne mette pas a jour les donnees tout de suite, pour accelerer un peu la macro.
encore merci