Macro suppression ligne avec condition

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

j'aimerais de nouveau faire une macro pour supprimer des lignes de mon fichier excel.

Je vous explique ma requête.

Je dois supprimer toutes les lignes contenant "MAGASIN DE PARIS" en colonne B sauf celles qui ont pour entreprise VEOL ou REC en colonne C que je dois garder malgré qu'elles appartiennent à MAGASIN DE PARIS.

Je vois comment supprimer les lignes MAGASIN de PARIS (grâce à votre aide d'ailleurs !) mais je bloque sur le fait de créer 2 conditions pour ne pas supprimer VEOL ou REC.

Je vous joins mon tableau.
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Test() Dim Derlig As Long, b As Long With ActiveWorkbook.Worksheets("Feuil1") Derlig = .Range("B2").End(xlDown).Row For b = Derlig To 2 Step -1 If .Range("B" & b).Value = "MAGASIN DE PARIS" Then .Range("B" & b).EntireRow.Delete End If Next b End With End Sub
Cette macro supprime bien magasin de paris, mais je pense que l'on peut rajouter une petite condition pour VEOL ET REC.

merci d'avance de vos éclairements.

Jenifer

Un truc de ce genre.....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Test()
Dim Derlig As Long, b As Long
With ActiveWorkbook.Worksheets("Feuil1")
Derlig = .Range("B2").End(xlDown).Row
For b = Derlig To 2 Step -1
If .Range("B" & b).Value = "MAGASIN DE PARIS" Then
Select Case Trim(.Range("C" & b).Value)
       Case "VEOL", "REC"  'ne rien faire'
       Case Else           'supprimer
            .Range("B" & b).EntireRow.Delete
End Select
End If
Next b
End With
End Sub

Bonjour,

merci beaucoup, cela marche parfaitement, mais je bloque sur un dernier petit détail.

En effet, je voudrais que ma macro supprime toute l'année 2011 de mon fichier de base de donnée et me garde que 2012. (j'ai seulement ces 2 années sur ce fichier)

peut-on faire un code du genre :
Code:

1 2 3 4 5 6 7 8 9 10 Dim E As Long Dim Plage As Range Set Plage = Range("E2:E" & Range("E2").End(xlDown).Row) For E = Plage.Cells.Count To 1 Step -1 If Plage.Cells(E).Value < 31/12/11 Then Plage.Cells(E).EntireRow.Delete End If Next End Sub
ça ne fonctionne pas mais suis je sur la bonne piste ?

merci d'avance de vos éclairements.

21/08/2012, 11h00
Philippe Tulliez

Bonjour,
Si tu veux tester l'année d'une date

Code:

=IF YEAR(RANGE("E2")) = 2011 then .....
21/08/2012, 11h06
jenifer699

Bonjour

merci de votre réponse. Cela marche bien.

Mais malheureusement quand j'éxécute la macro j'ai une

erreur "13" en fin d'éxécution :

Code:

If Year(Range("E" & i).Value) = "2011" Then

incompatibilité de type

savez vous quel est le problème ?

merci d'avance.
21/08/2012, 11h18
Godzestla

Jenifer,

2 choses :

1) Si ton problème n'est plus résolu, il faut enlever le résolu !!
2) Tu dois lire les réponses et les appliquer correctement :

Ceci

Code:

=IF YEAR(RANGE("E2")) = 2011 then .....

n'est pas équivalent à cela :

Code:

If Year(Range("E" & i).Value) = "2011" Then
21/08/2012, 11h38
jenifer699
Quand je fais

Code:

=IF YEAR(RANGE("E2")) = 2011 then .....

cela ne fait rien du tout. Mon fichier reste pareil.
Code:

1 2 3 4 5 6 7 8 Sub test() Dim i For i = Range("E65536").End(xlUp).Row To 1 Step -1 If Year(Range("E2")) = 2011 Then Rows(i).Delete End If Next i End Sub
quand je fais celle que j'ai dite avant avec :

Code:

If Year(Range("E" & i).Value) = "2011" Then

cela fonctionne, mes 2011 disparaissent. Mais j'ai une erreur.

Dans un premier temps j'avais appliqué votre réponse mais comme elle ne fonctionnait pas je l'ai remanié. Pour tester.
21/08/2012, 11h42
Godzestla

Citation:

quand je fais celle que j'ai dite avant avec :

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

If Year(Range("E" & i).Value) = "2011" Then

parce que probablement tu as des titres de colonnes en ligne 1, donc en E1 et que ta boucle remonte jusqu'en ligne 1 par pas de -1 depuis la fin de la colonne E.

La ligne à adapter est probablement

Code:

For i = Range("E65536").End(xlUp).Row To 2 Step -1

NB : tu n'as toujours pas enlevé le RESOLU !!!!!!!
21/08/2012, 11h45
jenifer699

oui effectivement j'ai des titres en haut des colonnes :)

cela fonctionne à merveille maintenant.

je vous remercie de votre patience :ccool:

ps : sii j'avais enlevé le résolu mais là je le remet :mouarf: grâce à vous ;)
21/08/2012, 11h51
Godzestla

:ccool:
21/08/2012, 12h43
Philippe Tulliez

Bonjour,
Evidemment dans mon exemple

Code:

=IF YEAR(RANGE("E2")) = 2011 then .....

Je pensais que c'était évident qu'il fallait l'adapter.

Code:

=IF YEAR(RANGE("E" & I)) = 2011 then .....

A condition naturellement que la cellule de la colonne E soit bien une date et comme l'a précisé Godzestla que la boucle s'arrête à I=2