Bonjour
LibreStefan wrote > j'ai un résultat (une zone de cellule) de A à P avec bien sûr x Lignes > > Mais dans ce résultat, je dois filtrer et supprimer s'il y a des lignes > (Notamment vérifier que les colonnes A, E, F, G, H, J, I, K, L ) > identiques. Quelqu'un aurait-il déjà eu à traiter le problème ? > ... > j'ai ce code que j'ai créé mais il ne s'arrete pas quand la ligne est vide > !!! Tout d'abord un conseil général : quand tu supprimes des éléments d'une collection il est prudent de commencer par la fin. Ensuite ta méthode de concaténation des colonnes puis comparaison est aléatoire : A1 = "2", B1 = "3", C1 = "10" leur concaténation = 2310 A1 = "23", B1 = "", C1 = "10" leur concaténation = 2310 Ces conseils ne s'appliquent peut-être pas à ton cas (ce que je ne peux deviner puisque tu ne joins pas de classeur) mais au cas où... Dans l'exemple joint je ne teste que sur l'égalité des colonnes C, D et F Il suffit d'étendre le principe... *On suppose que le document est trié* Je travaille sur les tableaux de valeur afin d'optimiser le traitement. Le lockControllers est aussi là pour çà... Dans le classeur exemple j'ai mis en couleur les colonnes testées et j'ai ajouté une colonne "Test" (inutilisée dans le programme) pour pouvoir visualiser ce qui est en double (colorié en bleu). SupprimerDoublons.ods <http://nabble.documentfoundation.org/file/n4105439/SupprimerDoublons.ods> sub pysDelDoublon dim oFeuille as object dim oPlage as object dim oLig as object, oLigPrec as object dim i as long ThisComponent.lockControllers oFeuille = thiscomponent.sheets.getByName("Feuille1") oPlage = oFeuille.getCellRangeByName("A2:F25") for i = 23 to 1 step - 1 oLig = oPlage.DataArray(i) oLigprec = oPlage.DataArray(i - 1) if oLig(2) = oLigPrec(2) and oLig(3) = oLigPrec(3) and oLig(5) = oLigPrec(5) then oPlage.rows.RemoveByIndex(i, 1) end if next i ThisComponent.unlockControllers print "terminé" end sub Cordialement Pierre-Yves -- View this message in context: http://nabble.documentfoundation.org/filtrage-et-suppression-de-lignes-tp4105397p4105439.html Sent from the Users mailing list archive at Nabble.com. -- Envoyez un mail à [email protected] pour savoir comment vous désinscrire Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés
