Discussion :

[jenifer699]

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 :

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

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

[Godzestla]

Un truc de ce genre.....

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

[jenifer699]

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 :

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

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.

[Philippe Tulliez]

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

Code :

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

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

[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 :

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

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

incompatibilité de type

savez vous quel est le problème ?

merci d'avance.

[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 :

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

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

n'est pas équivalent à cela :

Code :

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

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

[jenifer699]

Quand je fais

Code :

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

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

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

Code :

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

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 :

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

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.

[Godzestla]

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 :

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

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

NB : tu n'as toujours pas enlevé le RESOLU !!!!!!!

[jenifer699]

oui effectivement j'ai des titres en haut des colonnes

cela fonctionne à merveille maintenant.

je vous remercie de votre patience

ps : sii j'avais enlevé le résolu mais là je le remet grâce à vous

[Godzestla]

[Philippe Tulliez]

Bonjour,
Evidemment dans mon exemple

Code :

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

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

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

Code :

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

=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