Sup. de lignes en fonction de la valeur d'une cellule

Bonsoir à tous,

Avec la macro suivante je cherche à pouvoir supprimer un ensemble de lignes, suivant la valeur de "C9"

Sub sup_ligne_projet()
Dim Rg As Range
With Sheets("POP")
    Set Rg = .Range("C15:C" & .Range("C65536").End(xlUp).Row)
End With
For a = Rg.Rows.Count To 1 Step -1
    If Application.CountIf(Rg(a).EntireRow, "C9") > 0 Then
        Rg(a).EntireRow.Delete
    End If
Next
End Sub

j'arrive a faire tourné la macro, si je remplace "C9" par une valeur Fixe.

If Application.CountIf(Rg(a).EntireRow, "C9") > 0 Then

par

If Application.CountIf(Rg(a).EntireRow, "1111") > 0 Then

Mais, mon but est de profiter de la recherche, pour pouvoir suprimer toutes les lignes d'un même "projet" (projet fini par ex.)

Merci d'avance et bonne nuit à tous.

Salut Diablo,

pas bien compris si tu supprimes la ligne en fonction de l'addition de toutes les cellules de cette ligne ou en fonction d'une seule...

Pourquoi [C9] si ta plage commence en [C15]... ??

Voici un début de quelque chose avant d'autres éclaircissements.

A+

Bonjour Curulis57 et tout le forum

Merci pour ton aide.

Je vais essayé d'être plus clair

Cette base n'est pas moi, les personnes qui vont l'utilisés on besoins de choses facile!

Cet feuille sert à trois choses:

• encoder le matériel reçu pour un projet à faire de "C15 à P" ->ok
• faire une recherche sur un projet en cours de "C9 à I9" -> ok mais le code peut encore être amélioré, car avec plus de lignes encodées, le traitement risque d'être plus long
• supprimer les lignes correspondant au projet fini "C15 à P" -> en cours...

Pour ce dernier, je rentre le n° de projet en "C9", sans valider! pour ne pas afficher la liste lier à celui-ci.

Ensuite un bouton pour supprimer les lignes qui correspondes à la valeur "C9" et effacer ce qu'il y a dans "C9" pour réinitialiser la liste.

Donc la sup des lignes de la matrice "C15:P" en fonction de "C9" et effacer ce que contient "C9" pour réinitialiser.

heu.... j'espère que ce n'est pas trop chinois....