> Tous les forums > Forum Bureautique
 Macro Supprimer des lignesSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
jemamuse
  Posté le 19/08/2018 @ 09:58 
Aller en bas de la page 
Astucien

Bonjour à tous , j'ai un tableau en excell 2007 ( w10 1803) comprenant 750 lignes de données sur 8 colonnes . Chaque item est repris deux fois , …...ligne 1 item A - ligne 2 Item A , ligne 3 item B - ligne 4 item B etc.…. Les colonnes des lignes 2 4 6 etc , different légèrement dans les textes. Y a t-il possibilité de faire une macro qui supprimerait chaque fois la deuxième ligne ( ligne 2, ligne 4, ligne 6 etc) . Si c'est possible , me donner ici cette macro ,( à recopier dans un dossier perso-Macro ),et de plus, la procédure pour faire cette opération. Un grand merci ,c e qui m'éviterait une opération manuelle fastidieuse.

Publicité
Albatros63
 Posté le 19/08/2018 à 11:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Bonjour

Est-ce que "Supprimer les doublons" qui se trouve dans l'onglet "Données" existe dans Excel 2007. Si oui pas besoin de macro

Cdt

poussebois
 Posté le 19/08/2018 à 11:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Bonjour ,

Macro toute simple : supprime toutes les lignes paires :

Sub Suppression_lignes_paires()
For i = 2 To 376 'Tu commences à la ligne 2 et tu en as 375 à faire
Rows(i).Select
Selection.Delete Shift:=xlUp
Next i
End Sub

@ +

jemamuse
 Posté le 19/08/2018 à 11:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Merci Albatros pour cette indication . oui en excell 2007 il y a la suppression des doublons .Il faut bien cocher ou décocher les colonnes concernées. C'est ce que j'ai appliqué.

Merci à poussebois pour cette macro , je vais la recopier dans mon dossier MACRO , et je vais m'en servir aussitôt dans un autre fichier Dans cette macro , il faut changer le "376" de l'exemple et l'adapter au nombre de ligne que l'on a , si supérieur à " 376" . Est ce bien cela ??

poussebois
 Posté le 19/08/2018 à 11:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

,

Ben oui, tu adaptes à tes besoins.

Là, j'ai mis 376 car tu avais un nombre de lignes précis, mais on peut s'en affranchir par un simple test : on supprime une ligne sur 2 jusqu'à ce qu'on rencontre une ligne vide.

La macro s'écrit alors différemment : il y a un test de plus.

Bonne journée

ferrand
 Posté le 19/08/2018 à 13:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour à tous !

Attention ! Pour viser les lignes paires, il mettre un pas de 2 à la boucle.

Mais dès lors que l'on fait des suppressions en cours de boucle, on modifie les numéros de lignes qui suivent : en supprimant la ligne 2, la 3 devient 2, la 4 devient 3 et la 5 devient 4... Donc au tour suivant on va supprimer la ligne 5 et laisser la 4, ce qui n'était pas l'objectif. On fait toujours des suppressions en partant de la dernière ligne avec un pas de -1 ou -2 (ici -2, et en partant de la dernière ligne paire).

Autre méthode pour gagner du temps :

Sub SupprimerLignesPaires()
Dim i&
Application.ScreenUpdating = False
With ActiveSheet.Range("A1").CurrentRegion
For i = 2 To .Rows.Count Step 2
.Range("A" & i).ClearContents
Next i
.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub

On efface la première cellule des lignes paires (dans ce cas pas besoin d'inverser la boucle), plus rapide que la suppression. Et à la fin, on cible l'ensemble des cellules de la colonne A qui sont vides pour supprimer en une seule fois toutes les lignes.

La désactivation de la mise à jour de l'affichage est aussi destinée à accélérer puisqu'on travaille sur la feuille active.

Cela implique que la colonne A soit toujours servie, sinon il faut choisir une autre colonne qui le soit.

Cordialement.

jemamuse
 Posté le 19/08/2018 à 16:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Merci poussebois pour cette remarque C'est parfait . Merci ferrand pour la macro , cela fonctionne particulièrement bien ,et à quelle vitesse …

ferrand
 Posté le 19/08/2018 à 17:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Merci pour ton retour !

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
79,99 €Ensemble Microsoft Sculpt Ergonomic Desktop sans fil à 79,99 €
Valable jusqu'au 05 Décembre

Amazon fait une promotion sur le pack complet Microsoft Sculpt Ergonomic Desktop sans fil qui passe à 79,99 € alors qu'on le trouve ailleurs à plus de 110 €. Ce pack comporte un clavier et une souris ergonomique ainsi qu'un pavé numérique externe.

Le clavier sans fil intègre de nombreux raccourcis Windows 10/11 couramment utilisés (fonction rechercher, partager, démarrer, périphériques, paramètres, etc.), mais également un design incurvé en forme de dôme qui se veut ergonomique, rendant la position du poignet plus naturelle. Le repose poignet amovible est également là pour vous apporter tout le confort dont vous avez besoin ! 

Elégante, performante et ergonomique, la souris sans fil vous offre la liberté dont vous avez besoin pour le travail et/ou le divertissement. Le ruban tactile latéral vous permettra d'accéder rapidement à vos fonctionnalités préférées de Windows (8,10 et 11). 

Enfin vous pourrez utiliser à votre guise le pavé numérique externe.


> Voir l'offre
GratuitUn livre audio offert sur Amazon.fr
Valable jusqu'au 04 Janvier

En vous inscrivant à l'offre d'essai gratuite du service de livres audio Audible (qui appartient à Amazon) vous pourrez télécharger gratuitement un livre audio. L'abonnement passe ensuite à 9,95 € / mois après ce mois d'essai. Notez que l'offre est résiliable à tout moment et facilement et ce, même avant la fin de l'essai gratuit. Les membres Amazon Prime bénéficient de 2 mois gratuits (2 livres audio offerts).

Vous pouvez prendre n'importe quel livre audio parmi une large sélection de 500 000 titres, peu importe sa durée ou son prix. Vous pourrez télécharger et d'écouter (même hors connexion) vos livres via l'application Audible ou directivement via le site.

Vous n'avez pas le temps de lire ? Avec Audible, écoutez vos livres en voiture, en marchant, en faisant du sport, ...


> Voir l'offre
179,99 €Kit de démarrrage Thermostat connecté Tado V3+ (Pont Internet + 2 têtes thermostatiques) à 179,99 €
Valable jusqu'au 05 Décembre

RueDuCommerce fait une belle promotion sur le kit de démarrage Tado V3+ qui passe à 179,99 € livrée gratuitement alors qu'on le trouve ailleurs à partir de 299 €. Ce kit comporte un thermostat connecté, un pont Internet et 2 têtes thermostatiques. Remplacez le robinet thermostatique d'un radiateur pour le transformer en radiateur connecté et contrôlez votre chauffage depuis le thermostat connecté ou bien depuis n'importe où avec l'application Tado pour iPhone et Android. Créez facilement vos planning de chauffre, créez des zones avec plusieurs têtes thermostatiques et faites des économies d'énergie. Les têtes tado V3+ peuvent être intégrées dans un système domotique (Jeedom, Domoticz) et peuvent être contrôlées à la voix avec Alexa, HomeKit, Assistant Google et IFTTT.


> Voir l'offre

Sujets relatifs
macro supprimer des lignes ne contenant pas un critère
macro pour supprimer lignes inutiles
Comment supprimer des mots ou lignes dans ce document.
Macro Masquez et Affichez Lignes-Excel
Supprimer des lignes vides sur excel
Supprimer des lignes à l'impression ?
Supprimer lignes par défaut de Tableau
Supprimer lignes d'un Tableau à l'impression
macro afficher masquer lignes tableau dans word 2010
macro pour trier un tableau et effacer les lignes sans saisie
Plus de sujets relatifs à Macro Supprimer des lignes
 > Tous les forums > Forum Bureautique