Bonjour,
depuis un changement de version (voir titre), le code suivant ne fonctionne plus correctement (RemoveDuplicates) et au lieu de ne retirer que les lignes contenant des cellules avec du contenu en doublons retire les lignes par paquets ( ces "paquets" correspondent aux lignes collées sur des pages temporaires extraites de la BDD puis recollées sur une feuille "RECAP" desquelles je souhaitais retirer es lignes avec doublons) et finalement, à la fin de l boucle, le code ne laisse apparaître que la première ligne (avec excel mac 2011, il retirait uniquement les lignes contenant une cellule doublon puis supprimait les lignes vides).
'effacer les doublons du RECAP
Worksheets("RECAP").Activate
[A7].Activate
ActiveCell.CurrentRegion.Select
Set rngData = Selection
LastCol = Cells(7, Cells.Columns.Count).End(xlToLeft).Column
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For J = 3 To LastCol
Selection.RemoveDuplicates Columns:=J, Header:=xlNo
Next J
depuis un changement de version (voir titre), le code suivant ne fonctionne plus correctement (RemoveDuplicates) et au lieu de ne retirer que les lignes contenant des cellules avec du contenu en doublons retire les lignes par paquets ( ces "paquets" correspondent aux lignes collées sur des pages temporaires extraites de la BDD puis recollées sur une feuille "RECAP" desquelles je souhaitais retirer es lignes avec doublons) et finalement, à la fin de l boucle, le code ne laisse apparaître que la première ligne (avec excel mac 2011, il retirait uniquement les lignes contenant une cellule doublon puis supprimait les lignes vides).
'effacer les doublons du RECAP
Worksheets("RECAP").Activate
[A7].Activate
ActiveCell.CurrentRegion.Select
Set rngData = Selection
LastCol = Cells(7, Cells.Columns.Count).End(xlToLeft).Column
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For J = 3 To LastCol
Selection.RemoveDuplicates Columns:=J, Header:=xlNo
Next J
Dernière édition: