Rechercher et supprimer 1 ligne entière

Bonjour à tous,

Avant tout, je trouve ce forum d'une qualité remarquable, bravo.

J'ai une demande à vous faire sur Excel.

Est-il possible de chercher 1 mot en particulier et une fois trouvé supprimer toute la ligne.

J'ai plusieurs colonne avec :

code | Nom | PA HT | PV | Kg | Taxe | etc...

Avez vous une idée ?

Merci et bonne journée

Bonjour

C'est possible mais le mot n'existe qu'une seul fois et se trouve dans une ou plusieurs colonnes ?

Amicalement

Salut Dan,

Merci pour ta réponse déjà

Ensuite, le mot existe plusieurs fois dans la même colonne mais peut exister aussi dans d'autre colonne...

Au sssiiiicoouuuuuuurrrrr

bonsoir, salut Dan,

Où trouve-t-on le nom en question ?

Joins un fichier exemple avec explications

Claude

Ci-joint un fichier d'exemple

Merci bien à vous

re,

çà serait donc toujours la colonne "Taille" dans cet exemple ?

c'est pas ce que tu disais + haut !

confirme s.t.p

édit: combien de lignes sur le fichier réel ? (environ)

Claude

Re

Hum c'est pas un mot que tu veux supprimer là... chiffres et mot c'est différent.

Le choix de la taille est effectué comment ?? c'est toujours la même taille ?

Sinon avant de te faire un code, un double clique sur la ligne à supprimer conviendrait ??

Amicalement

Edit Dan : vois une proposition dans le fichier joint.

• Dans la colonne D, clique sur la flèche du filtre et sélectionne la taille à supprimer
• Double clique dans la cellule D1, pour supprimer les lignes filtrées

Si ok, n'oublie pas de cliquer sur le V vert pur cloturer le fil

Amicalement

Bonjour Dan et Dubois;

Merci pour nos réponses, je vais tester immédiatement sur mon fichier.

Pour répondre à Dubois :

Oui mon fichier fait environ 25000 lignes et oui ça serait toujours la colonne taille (dans cet exemple).

Il se peut que j'ai besoin aussi de faire la même manip sur d'autres colonnes dans l'avenir.

@Dan :

Dans cet exemple là, j'utilise un chiffre, mais je vais avoir besoin d'utiliser des mots aussi.

Sinon je vais test ton fichier et le répercuter sur mon fichier.

Affectueusement,

iKoola

re, iKoola, Dan

On peut éviter la boucle

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Macro Dan pour
Dim lig%, a As Integer
If Not Intersect(Target, Range("D1")) Is Nothing Then
    lig = ActiveSheet.Range("D" & Rows.Count).End(xlUp).Row
    a = MsgBox("voulez-vous supprimer les lignes affichées ?", vbYesNo + vbQuestion, "Suppression")
        On Error Resume Next
    If a = vbYes Then
        Range("a2:a" & lig).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End If
        ActiveSheet.ShowAllData
End If
End Sub

Je verrais plutôt, un filtre élaboré (permettrait le choix colonne)

édit: déplacé la ligne On Error Resume Next

Amicalement

Claude

Re,

Claude, effectivement on peut le penser comme cela aussi.

Ikoola,

Dans cet exemple là, j'utilise un chiffre, mais je vais avoir besoin d'utiliser des mots aussi.

Cela n'a pas d'importance puisque l'on filtre depuis la colonne D. Que ce soit sur un mot ou un chiffre, une fois le filtre fait, le double clique en D1 supprimera les lignes concernées

Amicalement