Supprimer des lignes en masse automatiquement (Excel)

Résolu/Fermé

Excel

papou - 19 févr. 2015 à 15:08
Serce - 5 sept. 2015 à 02:48

Bonjour,
Je veux supprimer dans la col C toutes les les lignes commençant par exemple par 43 (soit env 2000 lignes) à supprimer automatiquement.

Code (col a) Tache (col b) Département (col c)
1087638PE001 0608801EI020 06
1087647PE001 8305701EI003 83
1087654PE001 FE0034387 43
1087654PE001 FE0216977 43
1087654PE001 FE0216982 43

Pouvez-vous m'indiquer le process à suivre ?
D'avance merci

A voir également:

Supprimer une ligne sur deux excel
Supprimer une page word - Guide
Aller à la ligne excel - Guide
Supprimer compte instagram - Guide
Liste déroulante excel - Guide
Supprimer une conversation messenger pour les deux personnes ✓ - Forum Facebook

2 réponses

Réponse 1 / 2

Maurice
19 févr. 2015 à 15:34

Bonjour

avec une petite maco

Sub test()
Nlig = Range("A" & Rows.Count).End(xlUp).Row
   For L = Nlig To 2 Step -1
      If Cells(L, 3).Value = 43 Then
          Rows(L).Delete
      End If
   Next
End Sub

si tes chifre sont numerique

A+
Maurice

Réponse 2 / 2

via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
Modifié par via55 le 19/02/2015 à 15:37

Bonjour

Macro à mettre dans un module de l'Editeur VBA (Alt F11 pour l'ouvrir puis Insertion et Module )

Sub suppression()
Dim Ligne As Long
Ligne = Columns(3).Find("*", , , , xlByColumns, xlPrevious).Row
For n = Ligne To 1 Step -1
If Left(Range("C" & n), 2) = "43" Then
Rows(n & ":" & n).Select
    Selection.Delete Shift:=xlUp
    End If
    Next
End Sub

Cdlmnt

"L'imagination est plus importante que le savoir." A. Einstein

Papou
24 févr. 2015 à 15:15

Bonjour,
Merci pour vos infos. Mais pouvez-vous m'indiquer la démarche à suivre pour supprimer plusieurs départements simultanément.
Cordialement

via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703 > Papou
24 févr. 2015 à 15:32

Bonjour

Tu peux rajouter des conditions dans la ligne de ma macro qui récupère la partie gauche de la chaîne, en les séparant par des Or
exemple pour supprimer les départements 43,50 et 75 :
If Left(Range("C" & n), 2) = "43" Or Left(Range("C" & n), 2) = "50" Or Left(Range("C" & n), 2) = "75" Then
Par contre si tu as beaucoup de départements à supprimer cela risque d'être fastidieux, en ce cas si tru ne veut garder que quelques départements et supprimer tous les autres il vaut mieux adapter la ligne de macro en indiquant les n°s à conserver et en faisant supprimer les lignes ne contenant pas ce n°
Pour garder ainsi les départements 01, 07 et 69 par exemple la ligne devra être écrite ainsi
If Left(Range("C" & n), 2) <> "01" And Left(Range("C" & n), 2) <> "07" And Left(Range("C" & n), 2) <> "69" Then

Cdlmnt

Papou > via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024
2 mars 2015 à 16:51

Merci, Merci, ça fonctionne ! et quel gain de temps !
Cdt
Papou

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303 > Papou
24 févr. 2015 à 15:34

Bonjour,
Qu'appelles tu "simultanément" ?

Serce
5 sept. 2015 à 02:48

Bonsoir,

J'ai une question j'ai rassemblé mes contacts dont fichier *.vcf et ouvert avec Excel 2007. J'ai +/- 300000 lignes mais parmi ces lignes j'ai des données vides genres

BEGIN:VCARD
VERSION:3.0
END:VCARD

BEGIN:VCARD
VERSION:3.0
END:VCARD

BEGIN:VCARD
VERSION:3.0
END:VCARD

BEGIN:VCARD
VERSION:3.0
END:VCARD

BEGIN:VCARD
VERSION:3.0
END:VCARD
normalement qui aurait du être genre

BEGIN:VCARD
VERSION:3.0
FN:Jean Luc Shomal
N:Jean Luc,Shomal;;;
TEL;TYPE=WORK:+32475****
TEL;TYPE=CELL:+32485*****
END:VCARD

Ma question ces données vide se répètent dans certaine ligne comment supprimer ces données.

Merci d'avance.

Serce

Discussions similaires

Macro Masquer Afficher ligne si cellule=0 EXCEL

Création document pour Méthode des J

Supprimer ligne contenant un mot précis - Excel 2010

Taille de cellules en cm

Comparaison de 2 fichiers excel et résultat dans un 3ème

mise en forme conditionnelle sur une ligne entière

Discussions similaires

Newsletters