[fr-users] Re: filtrage et suppression de lignes

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 à users+unsubscribe@fr.libreoffice.org 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