supprimer des lignes avec du texte

veesti

XLDnaute Nouveau
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
 

Staple1600

XLDnaute Barbatruc
Re : supprimer des lignes avec du texte

Bonjour


Pour traiter le classeur actif


Code:
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]
 
Dernière édition:
G

Guest

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".

Code:
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

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
26
Affichages
1 K

Statistiques des forums

Discussions
312 905
Messages
2 093 469
Membres
105 740
dernier inscrit
Mln