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

2 réponses

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 14396 Date d'inscription Statut Membre Dernière intervention 2 759
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
0
1. Papou
  
  Bonjour,
  Merci pour vos infos. Mais pouvez-vous m'indiquer la démarche à suivre pour supprimer plusieurs départements simultanément.
  Cordialement
  
  0
  1. via55 Messages postés 14396 Date d'inscription Statut Membre Dernière intervention 2 759 > 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
    
    0
  2. Papou > via55 Messages postés 14396 Date d'inscription Statut Membre Dernière intervention
    
    Merci, Merci, ça fonctionne ! et quel gain de temps !
    Cdt
    Papou
    
    0
  3. michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320 > Papou
    
    Bonjour,
    Qu'appelles tu "simultanément" ?
    
    0
2. 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
  
  0

Supprimer des lignes en masse automatiquement (Excel)

2 réponses

Discussions similaires

Newsletters