Discussion :

[Hexa82]

Bonjour,

Je cherche le meilleur moyen de réduire ce morceau de code, surtout pour que cela soit rapide pour ajouter des termes afin de supprimer les lignes supplémentaires en évitant d'avoir 200 lignes de codes...

Code :

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

1
2
3
4
5
6
For i = 500 To 3 Step -1
            If (Worksheets("Feuil3").Cells(i, 3)) Like "*Agent*" Then Worksheets("Feuil3").Rows(i).Delete
            If (Worksheets("Feuil3").Cells(i, 3)) Like "*Infirmier*" Then Worksheets("Feuil3").Rows(i).Delete
            If (Worksheets("Feuil3").Cells(i, 3)) Like "*Policier*" Then Worksheets("Feuil3").Rows(i).Delete
            If (Worksheets("Feuil3").Cells(i, 3)) Like "*Technicien*" Then Worksheets("Feuil3").Rows(i).Delete
Next i

Merci d'avance.

[Marc-L]

Bonjour,

entraîne-toi manuellement par filtre … Une fois les données affichées correspondant uniquement aux lignes à supprimer,
repartir du début en activant l'Enregistreur de macros : une base de code est livrée sur un plateau !

Une variante de ton code (mais moins bonne que le filtre) toujours avec le BA-BA d'Excel,
cette fois au lieu d'un filtre la fonction de feuille de calculs EQUIV (Match en VBA) :

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
    VA = [{"*Agent*","*Infirmier*","*Policier*","*Technicien*"}]
    Application.ScreenUpdating = False
 
    With Worksheets("Feuil3")
        With Range(.[C1], .Cells(.Rows.Count, 3).End(xlUp))
            For Each V In VA
                Do
                    VR = Application.Match(V, .Cells, 0)
                    D% = IsNumeric(VR)
                    If D Then .Parent.Rows(VR).Delete
                Loop While D
            Next
        End With
    End With
 
    Application.ScreenUpdating = True

Mais au lieu de modifier le code, il est plus judicieux de dédier une feuille de paramétrage pour la liste à supprimer …

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Hexa82]

Merci bien pour ce retour Marc.

Je crois que je vais me tourner vers ta solution n°1, celle de l'enregistreur.

Car le code que tu m'a donné ne pourra pas convenir dans mon cas. En effet, il n'accepte pas plus de 17 ou 18 identificateurs. Or, j'en ai besoin de bien plus.
Quant au fait de passer par

dédier une feuille de paramétrage pour la liste à supprimer...

Je ne pense pas que je saurai faire ça pour l'instant ^^

[Marc-L]

Car le code que tu m'a donné ne pourra pas convenir dans mon cas. En effet, il n'accepte pas plus de 17 ou 18 identificateurs. Or, j'en ai besoin de bien plus.

Aucun souci pour en coder bien plus ! Il suffit de les placer dans une variable puis d'y appliquer la méthode Evaluate …

Quant au fait de passer par dédier une feuille de paramétrage pour la liste à supprimer...
Je ne pense pas que je saurai faire ça pour l'instant

C'est pourtant la solution évidente, la plus simple tant côté utilisateur que du côté programmation !

Créer une plage nommée ou une table (ListObject) dans Excel est de niveau grand débutant !

Et même sans juste en réservant une colonne … Peu importe l'évolution de la liste, il n'y aura pas besoin de modifier le code !