Supprimer des lignes en masse automatiquement (Excel)

Résolu

Excel

papou -
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

Afficher la suite

A voir également:

Supprimer une ligne sur deux excel
Supprimer rond bleu whatsapp - Guide
Comment supprimer une page sur word - Guide
Liste déroulante excel - Guide
Nombre de jours entre deux dates excel - Guide
Supprimer une conversation messenger pour les deux personnes ✓ - Forum Facebook

2 réponses

Réponse 1 / 2

Maurice

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 14730 Statut Membre 2 749

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

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 14730 Statut Membre 2 749 > Papou

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 14730 Statut Membre

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

michel_m Messages postés 18903 Statut Contributeur 3 317 > Papou

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

Serce

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

Faire apparaître l'adresse d'une cellule

Recopier une cellule avec lien hypertext

extraire une partie de cellule dans excel

Conversion Excel-PDF et lien hypertexte

Afficher tous les onglets

Votre réponse

Discussions similaires