supprimer des lignes avec du texte

[veesti]

Bonjour,
Je suis un débutant en excel et VBA (vraiment débutant), et je souhaiterais supprimer des lignes contenant du texte à l'aide d'une macro. Je regarde depuis un moment les discussions mais ne trouve pas mon bonheur...
Par exemple si des cellules contiennent "prix d'achat", j'aimerais supprimer toutes ces lignes dans tout le sheet.
Ce serait encore mieux si vous pouviez me dire comment faire cette même procédure sur un autre sheet du classeur (à partir du sheet 1 travailler sur le 2...)
Merci beaucoup à vous, connaisseurs d'excel!

Steve

 

[tototiti2008]

Re : supprimer des lignes avec du texte

Bonjour veesti,

Un des nombreux fils sur le sujet :

https://www.excel-downloads.com/threads/macro-pour-supprimer-lignes-selon-texte-en-colonne-c.73285/

Pense à regarder en bas de la page la section "Discussions similaires"

 

[Staple1600]

Re : supprimer des lignes avec du texte

Bonjour


Pour traiter le classeur actif

Sub supprime_lignes()
[COLOR=SeaGreen]'Déclarations[/COLOR]
Dim ws As Worksheet
Dim c As Range
[COLOR=SeaGreen]'traite toutes les feuilles du classeur[/COLOR]
For Each ws In Worksheets
[COLOR=SeaGreen]'dans la zone active de chaque feuille[/COLOR]
For Each c In ws.UsedRange
[COLOR=SeaGreen]'si la cellule contient prix d'achat, supprime la ligne entière[/COLOR]
If c Like "prix d'achat" Then c.EntireRow.Delete
Next c
Next ws
End Sub

Mise en place du code
Dans Excel, faire ALT+F11
1) Insertion/Module
2) Copier/coller la macro ci-dessus
3)Outils/Macros
Sélectionner la macro à exécuter
Et cliquer sur [Exécuter]

 

[Guest]

Re : supprimer des lignes avec du texte

Bonjour Veesti,

voici une macro qui supprime les ligne de la feuill1 qui contiennent "prix d'achat".

Sub SupprimerLignes()
Dim Sh As Worksheet
Dim plage As Range
Dim cpt As Long, i As Long
Set Sh = Sheets("Feuil1")
Set plage = Sh.UsedRange
cpt = plage.Rows.Count
For i = cpt To 1 Step -1
    If Application.CountIf(plage.Rows(i), "prix d'achat") > 0 Then
        r.Delete xlShiftUp
    End If
Next i
End Sub

Bien sur c'est à adapter à ton cas.
Remplacer la référence à Feuil1 par le nom de la feuille concernée.
Remplacer "prix d'achat" par le texte idoine.

Ces deux constantes peuvent être remplacer par des variables mais il faut nous dire sur quel critère sélectionner et le nom de la feuille et le texte.

A bientôt

 

[veesti]

Re : supprimer des lignes avec du texte

merci à tous pour vos réponses rapides et très efficace! (ton programme marche très bien finalement staple). Hasco j'essaierai le tien quand j'aurait un peu avancer dans mon projet, mais sans aucun doute je peux l'utiliser...
Merci encore!

Steve