enfait j'ai un tableau avec 4000 lignes et je dois supprimer une ligne sur 2 , y a t-il un moyen plus rapide que ligne par ligne?? merci...
gbinforme
Contributeur
bonjour
on peut bien sûr supprimer toutes les lignes impaires
c'est un travail sans fin car si tu supprime la ligne 3
c'est la 4 qui devient 3 et ainsi de suite...
blueoystercult
mais par contre tu peux cacher les lignes impaires
random
tu inseres une colonne
tu mets comme formule sur ces 4000 lignes dans cette colonne
=IsOdd(LIGNE())
tu copies ta zone
tu la colles collage special valeur au meme emplacement
tu demandes le tri
tu as séparé les lignes paires des impaires
cqfd
bibia-306
tu inseres une colonne ---- > ok
tu mets comme formule sur ces 4000 lignes dans cette colonne
=IsOdd(LIGNE()) -----> ok, mais si je mets (1;4600) ca me marque une erreur non valide.
tu copies ta zone ----> je suppose que c'est les 4000 lignes ?!
collage spécial n'est pas en gras.
Merci de ton aide
bibia-306
pour les lignes j'ai mis mis (A;A) c ok par contre je comprends pas copier la zone ?!
bibia-306
magnifique ca marche !!!!! merci !! super !!
Maurice
Bonjour
par macro selectioner les ligne impair
Sub DelLigne()
Derlig = Range("A" & Rows.Count).End(xlUp).Row
For L = Derlig To 2 Step -1
If L Mod 2 <> 0 Then 'si Impair
Rows(L).Delete
End If
Next
End Sub
A+
Maurice
gbinforme
Contributeur
Bonjour Maurice,
après bientôt 10 ans, j'espère qu'il a trouvé sa solution ;-)
Il faudrait supprimer ta macro en fin d'exécution car la relance est catastrophique !
