Discussion :

[MAIL.DJERI]

Bonjour à tous,

Je travaille régulièrement avec des fichiers différents dont la taille est variable.

Les données dans ces fichiers sont organisées d’une façon qui me pose problème.

En effet, je dois supprimer de nombreuses lignes qui ne me servent à rien. Cette tâche est pénible à réaliser et vu la quantité de lignes à supprimer, je peux parfois effacer des lignes essentielles…

Je souhaite donc automatiser cette tâche avec une macro.

J’ai bien essayé quelques lignes de code, mais sans succès.

Le but serait d’effacer toutes les lignes qui ne me sont pas utiles, en sachant que les lignes à garder sont toujours « entre deux cellules » dont les valeurs sont par exemple « DEBUT et « FIN ».

Je joins un fichier pour plus de compréhension afin de représenter ce qui est attendu.

Je vous remercie.

[78chris]

Bonjour

Il y a une problème après la ligne 125

par exemple « DEBUT et « FIN » manque de précision : c'est ça ou autre chose ?

Faisable assez simplement par PowerQuery intégré à Excel à partir de 2016, en add on à partir de 2010

[MAIL.DJERI]

Bonjour,

Effectivement, après la ligne 125, un petit soucis...

J'ai corrigé.

J'ai même essayé via une formule en ajoutant une colonne, mais la ligne "FIN" n'est pas prise...

J'ai également regardé du coté des MFC, mais toutes mes tentatives échouent !

[78chris]

Bonjour

Tu n'as pas précisé ta version Excel...

Ci-joint une solution PowerQuery :attention les titres des colonnes est important : j'ai gardé les titres du premier fichier Discount Band et non Titre

Actualiser soit par clic droit sur le tableau résultat, soit par Données Actualiser tout si la source évolue

Tu peux aussi déconnecter le résultat et supprimer la source si plus utile

[MAIL.DJERI]

Je suis sur ... EXCEL 2007 !

[78chris]

RE

En matriciel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(D2="DEBUT";LIGNE();SI(OU(Sheet1!$D2="FIN";ET(Sheet1!$D2<>"DEBUT";NB.SI($D$2:D2;"DEBUT")>NB.SI($D$2:D2;"FIN")));MAX(SI($D$2:D2="DEBUT";LIGNE($D$2:D2);0);1);0))

Les 0 sont les lignes à éliminer

[Pierre Fauconnier]

Salut.

Sans macro, l'idée de Chris est très intéressante.

Par macro, tu pourrais utiliser ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub DeleteRows()
  Dim LastRow As Long, r As Long
  Dim KeepRow As Boolean
  Dim CalculationMode As XlCalculation
 
  CalculationMode = Application.Calculation
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
 
  LastRow = Range("d1048576").End(xlUp).Row
  For r = LastRow To 2 Step -1
    If Range("d" & r).Value = "FIN" Then KeepRow = True
    If Range("d" & r + 1).Value = "DEBUT" And Range("d" & r).Value <> "FIN" Then KeepRow = False
    If Not KeepRow Then Cells(r, 1).EntireRow.Delete
  Next
 
  Application.Calculation = CalculationMode
  Application.ScreenUpdating = True
End Sub