Discussion :

[microb76]

Bonjour à tous ,

j'aurais besoin de vos lumières, car je dois bien avouer que sur ce coup là je ne sais pas du tout comment m'y prendre ....


Je dispose d'une feuille dans laquelle j'extrais tout un tas de données de facon automatique.

Seulement il me faudrait une macro permettant de nettoyer cette feuille , une fois mon extraction terminée.

J'aimerais supprimer les lignes qui ne comporte pas certains filtres dans la colonne C ( par exemple TS , EMN , TP , laisseraient passer TS/ATS/EMN/EMN+1/TP/ATP etc ... ).

Il me faut donc définir des masques que je tolérerai , pour supprimer tout le reste.

Et il me faudrait également supprimer les lignes qui sont en doublon ( en doublon sur tous les champs ).

Voilà. C'est sans doute pas si compliqué que ca , mais pour ma part , ca me semble bien compliqué.

Par avance , merci

[microb76]

Début de piste , j'ai trouvé comment filtrer grâce à des masques :

Code :

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

1
2
For Each Cellule In Range("I2:O" & h)
    If Cellule.Value Like "EMN" & "*" Or Cellule.Value Like "*" & "TS" & "*" Or Cellule.Value Like "EC" ...... Then

Certes c'est ptet pas optimisé , car au bout de 15 masques ca fait une ligne de code sans fin , mais au moins ca fonctionne ^^

Me reste encore à trouver comment virer les doublons , et ptet à optimiser ma ligne ci dessus ...

[nchal]

salut,

dans l'inputbox, tu mets les différents filtres séparé par une virgule.
J'ai fais des tests apparemment sa marche pour tous les cas mais dis moi au cas l'algo est chier.

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
20
21
22
23
24
25
26
27
28
Sub microb76()
 
Dim rep As String
Dim filtre() As String
Dim trouve As Boolean
 
 
rep = InputBox("Quels filtres voulez-vous utilsez ?", "Filtres", "Séparer les différents filtres par une virgule")
 
filtre = Split(rep, ",")
 
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
 
    For j = 0 To UBound(filtre)
 
        trouve = False
        If InStr(Cells(i, "C").Value, filtre(j)) <> 0 Then
            trouve = True
            Exit For
        End If
 
    Next
 
    If trouve = False Then Cells(i, "C").EntireRow.Delete
 
Next
 
End Sub

[microb76]

Salut Nchal ,

et merci d'avoir pris le temps de me répondre.

Le problème, c'est que je ne souhaite pas utiliser une inputbox , car j'aimerais tout automatiser. Je définis les filtres une bonne fois , et ensuite tout se fait tout seul.

Le second problème , est la gestion des doublons ... Je ne sais pas trop comment m'y prendre

[gFZT82]

Bonjour,

Tu devrais regarder du coté des Filtres élaborés. Ils te permettront d'obtenir ta liste filtrée suivant tes critères et sans doublon.

Cordialement.

[nchal]

Salut,

Voilà le même code avec les filtres en dur.
MAis j'ai pas compris ton histoire de doublon. Il ne peut pas y avoir 2 lignes avec les valeurs ? pour ton xls, les lignes 6 et 7 sont à supprimer ou on en laisse une ?

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub microb76()
 
Dim rep As String
 
Dim trouve As Boolean
 
 
'rep = InputBox("Quels filtres voulez-vous utilsez ?", "Filtres", "Séparer les différents filtres par une virgule")
 
'filtre = Split(rep, ",")
 
Dim filtre(2) As String
 
filtre(0) = "TS"
filtre(1) = "EMN"
filtre(2) = "TP"
 
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
 
    For j = 0 To UBound(filtre)
 
        trouve = False
        If InStr(Cells(i, "C").Value, filtre(j)) <> 0 Then
            trouve = True
            Exit For
        End If
 
    Next
 
    If trouve = False Then Cells(i, "C").EntireRow.Delete
 
Next
 
End Sub

[microb76]

MAis j'ai pas compris ton histoire de doublon. Il ne peut pas y avoir 2 lignes avec les valeurs ? pour ton xls, les lignes 6 et 7 sont à supprimer ou on en laisse une ?

[/code]

Et bien en fait , je ne veux en laisser qu'une. Car en automatisant mon extraction , je me retrouve parfois avec plusieurs lignes identiques ( jusqu'à 6 ... ). Il me faudrait donc épurer mon extraction , pour ne laisser qu'une seule ligne à chaque fois que j'ai un doublon ( doublon sur toutes les colonnes tel que que les lignes 6 & 7 ). donc une macro que je pourrais lancer une fois mon extraction terminée afin d'épurer tout ca

[nchal]

Salut,

Avec l'enregistreur de macro, j'ai réussi à trouver le code pour utiliser un filtre avancé.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub microb76()
 
Dim rep As String
 
Dim trouve As Boolean
 
 
'rep = InputBox("Quels filtres voulez-vous utilsez ?", "Filtres", "Séparer les différents filtres par une virgule")
 
'filtre = Split(rep, ",")
 
Dim filtre(2) As String
 
filtre(0) = "TS"
filtre(1) = "EMN"
filtre(2) = "TP"
 
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
 
    For j = 0 To UBound(filtre)
 
        trouve = False
        If InStr(Cells(i, "C").Value, filtre(j)) <> 0 Then
            trouve = True
            Exit For
        End If
 
    Next
 
    If trouve = False Then Cells(i, "C").EntireRow.Delete
 
Next

UsedRange.AdvancedFilter Action:=xlFilterInPlace, Unique:=True

End Sub

Mais comme le dit gFTZ82, tu n'as pas vraiment besoin d'une macro, il te suffit de faire un filtre avancé (Onglet Données)
Quoique, tu pourrais avoir des problèmes car tu veux que si le filtre soit EMN, il garde %EMN%.

[gFZT82]

Bonjour,

Quoique, tu pourrais avoir des problèmes car tu veux que si le filtre soit EMN, il garde %EMN%.

Pas de problème avec un critère ="=*EMN*" ou plusieurs critères ="=*TP*",="=*TS*",="=*EMN*", etc..

Cordialement.

EDIT : je joints un fichier exemple, ça peut aider ...

[nchal]

Salut,

Merci de la précision gFZT82.

Donc pour conclure, soit tu utilises ma macro, soit tu utilises un filtre avancé.

[microb76]

Hello ,

J'ai testé vos solutions , et finalement je préfère le système de filtre élaboré , plus souple et plus facile à faire évoluer.

Merci à vous deux