Suppression d'une ligne sur deux/excel 2007 [Résolu/Fermé]
A voir également:
- Excel supprimer une ligne sur deux
- Supprimer une ligne sur deux excel - Meilleures réponses
- Supprimer une ligne sur 2 excel - Meilleures réponses
- Suppression d'une ligne sur deux/excel 2007 ✓ - Forum - Excel
- Supprimer des lignes en masse automatiquement (Excel) ✓ - Forum - Excel
- Supprimer des lignes en doublons dans excel ✓ - Forum - Excel
- Supprimer une ligne sur deux feuilles - Forum - VB / VBA
- Supprimer la 2ème ligne DANS une cellule - Forum - Excel
9 réponses
Denis.L
- Messages postés
- 434
- Date d'inscription
- jeudi 7 février 2008
- Statut
- Membre
- Dernière intervention
- 4 juin 2010
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
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
néné
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
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
lili
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
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
7085pf
Bonjour,
désolé René, mais je ne vois pas comment cela m'aide.
Mais merci quand même.
7085pf.
désolé René, mais je ne vois pas comment cela m'aide.
Mais merci quand même.
7085pf.
7085pf
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.
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.
7085pf
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.
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.
littlefing
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?
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?
littlefing
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.
Mon but était de supprimer les doublons, cette fonction le fait très bien et sans macro.
Merci.
=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
Super! J'avais essayer avec du VBa ou autre formule, mais comme souvent le plus simple est le plus efficace. Bravo - Nickel.