Menu

Suppression d'une ligne sur deux/excel 2007 [Résolu/Fermé]

- - Dernière réponse :  Nat - 28 mars 2017 à 11:11
Bonjour,
je souhaiterais savoir comment, sous excel 2007, faire pour supprimer une ligne sur deux (grosse quantité de données) sans utiliser de macros, car je n'y connais rien dans ce dommaine.
Je sais que c'est possible pour les versions antérieurs, mais je suis passé de la 1997 (c'était alors impossible, je pense) à 2007.
Merci pour votre aide.
7085pf
Afficher la suite 

9 réponses

Meilleure réponse
Messages postés
439
Date d'inscription
jeudi 7 février 2008
Statut
Membre
Dernière intervention
4 juin 2010
196
75
Merci
Sans utiliser de macro j'aurai fait comme suit:

ajout de colonne a A
mettre 1 en A1
mettre 2 en A2
sélection de ces 2 cellules
poignée de recopie en appuyant sur Ctrl (pour forcer la recopie non incrémantée 1,2,1,2,,,,)
trier colonne A (croissant ou décroissant suivant si c'est les 1 ou les 2 à supprimer)
suppression des lignes (qui sont maintenant regroupées en tête)
suppression de la colonne A qui avait été rajoutée

peut être utilisé pour un nombre de lignes que l'on veut.
exemples:

1 ligne sur 4
4 lignes sur 10
etc..


Denis

Dire « Merci » 75

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 45495 internautes nous ont dit merci ce mois-ci

Merci à toi!
MErci pour cette idée lumineuse !
Miura564
Messages postés
16385
Date d'inscription
dimanche 18 novembre 2012
Statut
Membre
Dernière intervention
2 février 2015
1124 -
une autre version sur le même principe. Dans une nouvelle colonne, saisir la formule :

=MOD(LIGNE(A1);2)

recopier cette cellule jusqu'à la dernière ligne du tableau, cela va afficher alternativement 0 ou 1

selectionner le tableau, créer un filtre automatique. Filtre sur le numéro de ligne 0 ou 1 puis supprimer toutes ces lignes
Bonjour,
Super! J'avais essayer avec du VBa ou autre formule, mais comme souvent le plus simple est le plus efficace. Bravo - Nickel.
Merci, tip top!!!!
4
Merci
Bonjour,
Sub supprimelignesur2()

Application.ScreenUpdating = False

For Each l In [a1:a500] 'ta plage
l.Select
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Delete
Next

Application.ScreenUpdating = True
Range("a1").Select
End Sub

ROBERT René
http://utilsfr.new.fr
Merci pour ta macro qui fonctionne très bien...
Cordialement.
Sébastien.
Bonjour,
tu m'as l'ai bien calé en code VBA pourrais tu me donner la "trame" pour une macro excel permettant de créer un formulaire pour ne remplir que certaines cases d'un gros tableau excel...on m'a demandé de créer un formulaire de remplissage pour faciliter la saisie de données dans un tableau excel et il me semble que c'est la seul solution possible...
Je te remercie d'avance pour le temps que tu voudras bien me consacrer...

Cordialement,

Lisa
2
Merci
Bonjour,
désolé René, mais je ne vois pas comment cela m'aide.
Mais merci quand même.
7085pf.
0
Merci
Bonjour,
désolé, par manque de volonté, je n'ai pas cherché à comprendre.
Vous venez donc là de m'apporter la solution à mon problème, merci.
7085pf.
0
Merci
Bonjour,
c'est bon, je vous remercie, j'ai trouvé chez microsoft une macro qui marche. C'st génial dans mon cas, quand je pense que je l'ai déja supprimé plus de 1 500 fois un eligne à la main...
Merci encore pour votre aide,
7085pf.
0
Merci
Bonjour,

j'essaye d'appliquer le code ci dessus.

En executant la macro il me supprime bien les doublons jusqu'à la 260 lignes..j'ai encore des doublons après.

Pourquoi ne va t'il pas plus loin?

auriez vous une idée?
0
Merci
Finalement j'ai utilisé la fonction filtre élaboré avec la fonction sans doublon.( je ne connaissais pas)

Mon but était de supprimer les doublons, cette fonction le fait très bien et sans macro.

Merci.
-1
Merci
Bonjour

Tu es obliger de prendre une macro pour faire cela sinon il faut tout te taper à la main

enoie ton fichier ici , si tu veux

utilsfr@fr.fm
Messages postés
439
Date d'inscription
jeudi 7 février 2008
Statut
Membre
Dernière intervention
4 juin 2010
196
-1
Merci
Bonjour,

apparemment cela vient de la ligne:
"For Each l In [a1:a500] 'ta plage"
il faut mettre plus que 500

denis