Discussion :

[flomar]

Bonjour,
J’ai actuellement la macro ci-dessous qui me supprime les lignes d’un tableau dans lesquelles il y a les références « SAM…P0… ».
J’ai régulièrement besoin d’ajouter de nouvelles références et je souhaiterais ne plus à avoir à modifier la macro.
J’ai créé dans une feuille excel la liste de toutes les références que je dois supprimer mais je n’arrive pas à créer la macro qui me ferai exactement la même chose mais en allant chercher les « SAM…P0… » dans cette liste.
Merci de votre aide

sup = Range("B65000").End(xlUp).Row
For Each VALEUR In Range("A5:A" & sup)
B = VALEUR.Row
While Range("A" & B) = "SAM4221P07197" Or Range("A" & B) = "SAM4221P07198" Or Range("A" & B) = "SAM4221P09162" Or Range("A" & B) = "SAM4221P07292" Or Range("A" & B) = "SAM4221P07293" Or Range("A" & B) = "SAM4221P07291" Or Range("A" & B) = "SAM4200P00134" Or Range("A" & B) = "SAM4221P07259" Or Range("A" & B) = "SAM4221P07284" Or Range("A" & B) = "SAM4221P07155" Or Range("A" & B) = "SAM4221P07158" Or Range("A" & B) = "SAM4221P07281" Or Range("A" & B) = "SAM4221P07282" Or Range("A" & B) = "SAM4221P07069" Or Range("A" & B) = "SAM4221P07070" Or Range("A" & B) = "SAM4221P07262" Or Range("A" & B) = "SAM4221P07148" Or Range("A" & B) = "SAM4221P07247" Or Range("A" & B) = "SAM4221P07299" Or Range("A" & B) = "SAM4221P07309" Or Range("A" & B) = "SAM4221P07327" Or Range("A" & B) = "SAM4221P07326"
Rows(B).Delete
Wend

[joe.levrai]

Bonjour,

si toutes les références sont normalisées en "SAM....P0..." alors on peut faire 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
 
Sub Supp()
 
 
Dim Ws As Worksheet
Dim Cell As Range
 
Set Ws = ThisWorkbook.Worksheets("LaFeuille")
 
For Each Cell In Ws.Range(Cells(5, 1), Cells(Ws.UsedRange.Rows.Count, 1))
    If Cell Like "SAM*P0*" Then
        Cell.EntireRow.Delete
    End If
Next Cell
 
End Sub

juste indiquer dans la macro le nom de la feuille où sont tes lignes
Si la référence cherchée n'est pas normalisée comme écrit au dessus, il faut nous en dire plus.

[Patrick22]

Bonjour,

Si j'ai bien compris ton problème :

• Traitement d'une partie d'une feuille Excel, délimitée par la ligne 5 et la dernière ligne de données.
• En colonne "A" de chaque ligne, il y a une référence.
• La valeur de cette référence peut commencer par "SAM4221P0" ou avoir une autre valeur.
• Cas 1 - Lorsque la valeur de cette référence commence par "SAM4221P0", la ligne doit être supprimée.
• Cas 2 - Lorsque la valeur de cette référence commence par "SAM" et contient "P0", la ligne doit être supprimée.

Si oui, voici une proposition :

Code :

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

1
2
3
4
5
6
7
8
9
Sub EffacerSAM4221P0()
  sup = Range("B65000").End(xlUp).Row
  For i = sup To 5 Step -1
    ' Cas 1.
    If UBound(Split(Range("A" & i).Value, "SAM4221P0")) > 0 Then Rows(i).Delete
    ' Cas 2.
    If Range("A" & i).Value Like "SAM*P0*" Then Rows(i).Delete
  Next
End Sub

Testé dans les conditions décrites, cela fonctionne.

[flomar]

Merci pour vos réponses.

J'ai dans une feuille 1, dans la colonne A une liste avec uniquement des références en SAM4221P0... Certaines références ne doivent pas apparaître dans cette liste et je veux supprimer les lignes.

Dans vos 2 propositions, il me semble que cela va supprimer toutes mes lignes puisque elles commencent toutes par SAM4221P0... ?

Exemple:

Ma liste:
- SAM4221P07000
- SAM4221P07001
- SAM4221P07002
- SAM4221P07003



Je veux supprimer les lignes qui contiennes SAM4221P07001 et SAM4221P07002 car elles ne doivent pas apparaître dans mon tableau.

Je voudrais que ma macro aille chercher la liste des réf à supprimer dans une autre feuille excel car cette liste peux s'agrandir.

Suite de l'exemple:
Il y aura:
- SAM4221P07001
- SAM4221P07002

Puis un jour j'ajouterai le SAM4221P07008


Merci de votre aide
En attendant vos réponses je vais essayer de travailler sur la solution de joe.levrai qui me parait plus proche.

[joe.levrai]

Dans ce cas :

1) tu crée une plage nommée "ListeASupprimer" dynamique (recherche rapide sur internet va te donner réponse ==> fonction décaler dans la définition de la plage nommée)

2) teste cette macro modifiée (je l'ai juste écrite dans cette discussion, donc non testée) :

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
 
Sub Supp()
 
 
Dim Ws As Worksheet
Dim Cell As Range
Dim Liste() As Variant
Dim i As Integer
 
Liste() = Range("ListeASupprimer")
Set Ws = ThisWorkbook.Worksheets("LaFeuille")
 
For Each Cell In Ws.Range(Cells(5, 1), Cells(Ws.UsedRange.Rows.Count, 1))
    For i = LBound(Liste, 1) To UBound(Liste, 1)
        If Cell Like "*" & Liste(i, 1) & "*" Then
            Cell.EntireRow.Delete
        End If
    Next i
Next Cell
 
End Sub

[flomar]

Merci
je viens d'essayer mais j'ai le message d'erreur "la méthode ranch a échouée" au moment de réaliser

Liste() = Range("ListeASupprimer")

[joe.levrai]

Le message d'erreur t'indique qu'il ne trouve aucune plage portant ce nom

Tu as bien crée ta plage nommée (portée : classeur entier) comme indiqué dans le point 1 ?

[flomar]

Ok merci.
C'est pas loin!

J'ai ajouté "Worksheets("Feuil1").Activate" car sinon methode ranch à échouée au moment ci-dessous:
For Each Cell In Ws.Range(Cells(5, 1), Cells(Ws.UsedRange.Rows.Count, 1))


Je n'ai plus de message d'erreur mais il supprime des lignes de ma plage nommée "ListeASupprimer".

Tandis que moi j'ai besoin de supprimer les lignes dans la feuille "BLABLA" et de toujours avoir ma plage "ListeASupprimer" dans la page "feuil1"







Sub Supp()


Dim Ws As Worksheet
Dim Cell As Range
Dim Liste() As Variant
Dim i As Integer

Liste() = Range("ListeASupprimer")
Set Ws = ThisWorkbook.Worksheets("LaFeuille")

"Worksheets("Feuil1").Activate"

For Each Cell In Ws.Range(Cells(5, 1), Cells(Ws.UsedRange.Rows.Count, 1))
For i = LBound(Liste, 1) To UBound(Liste, 1)
If Cell Like "*" & Liste(i, 1) & "*" Then
Cell.EntireRow.Delete
End If
Next i
Next Cell

[joe.levrai]

Rectification des erreurs de débutant
Je pars du principe que ton nombre de lignes est inférieur à 65536

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
 
Sub Supp()
 
 
Dim Ws As Worksheet
Dim Cell As Range
Dim Liste() As Variant
Dim i As Integer
Dim DerLig As Integer
 
Liste() = Range("ListeASupprimer")
Set Ws = ThisWorkbook.Worksheets("LaFeuille")
DerLig = Ws.Range("A65535").End(xlUp).Row
 
For Each Cell In Ws.Range("A5", "A" & DerLig).Cells
    For i = LBound(Liste, 1) To UBound(Liste, 1)
        If Cell Like "*" & Liste(i, 1) & "*" Then
            Cell.EntireRow.Delete
        End If
    Next i
Next Cell
 
End Sub

Il te reste à renommer "LaFeuille" avec le nom de ta feuille BLABLA

[flomar]

Ah oui ok merci

J'ai testé avec 2 références.
Dès qu'il trouve la 1ère correspondance il me supprime bien la ligne mais ensuite il bloque.

Il me met objet requis au moment ci-dessous:
If Cell Like "*" & Liste(i, 1) & "*" Then

Désolé pour toutes ces questions mais je suis plutôt débutant dans l'écriture de macro et je ne connais pas bien le fonctionnement de la fonction LBound.

[Marc-L]

Bonjour, bonjour,

sinon en utilisant un filtre ce serait peut-être encore plus simple et rapide …