Macro supprime ligne qui contient...

[manulemalin13000]

Bonjour,

Comment ecrire une macro qui supprime une ligne excel qui comporte dans une de ses colonnes le mot "toto" ?

Merci d'avance


Manu

 

[tototiti2008]

Re : Macro supprime ligne qui contient...

Bonjour Manu,

un petit fichier exemple ?
le "toto" doit se trouver seul dans sa cellule ou bien il peut se trouver au millieu d'un texte dans la cellule ?

 

[manulemalin13000]

Re : Macro supprime ligne qui contient...

Re,
voila un exemple

je veux supprimer les lignes qui contiennent le mot "gcfluidics.exe" par exemple.


Merci de ton aide

Manu

 

[mromain]

Re : Macro supprime ligne qui contient...

bonjour manulemalin13000, tototiti2008,


voici un essai :

Sub test()
Dim cellRecherche As Range
Set cellRecherche = ThisWorkbook.Sheets("Fluidics 1-13oct").Cells.Find("gcfluidics.exe", , , xlPart)
While Not cellRecherche Is Nothing
    cellRecherche.EntireRow.Delete
    Set cellRecherche = ThisWorkbook.Sheets("Fluidics 1-13oct").Cells.Find("gcfluidics.exe", , , xlPart)
Wend
End Sub

a+

 

[manulemalin13000]

Re : Macro supprime ligne qui contient...

merci de ton aide

A +

 

[manulemalin13000]

Re : Macro supprime ligne qui contient...

Re,

Je souhaiterai completer la macro avec la demande suivante...

Si dans la colonne A il y a le mot Error alors effacer toute cette ligne et les 8 lignes qui sont au dessus.

Quelqu'un peut m'aider à ecrire ca ?

Merci d'avance
Manu

 

[mromain]

Re : Macro supprime ligne qui contient...

re bonjour,


à tester :

Sub test()
Dim cellRecherche As Range
[B]Set cellRecherche = ThisWorkbook.Sheets("Fluidics 1-13oct").Range("A:A").Find("error", , , xlPart)
While Not cellRecherche Is Nothing
    cellRecherche.Resize(8, 1).Offset(-7, 0).EntireRow.Delete
    Set cellRecherche = ThisWorkbook.Sheets("Fluidics 1-13oct").Range("A:A").Find("error", , , xlPart)
Wend[/B]
Set cellRecherche = ThisWorkbook.Sheets("Fluidics 1-13oct").Cells.Find("gcfluidics.exe", , , xlPart)
While Not cellRecherche Is Nothing
    cellRecherche.EntireRow.Delete
    Set cellRecherche = ThisWorkbook.Sheets("Fluidics 1-13oct").Cells.Find("gcfluidics.exe", , , xlPart)
Wend
End Sub

a+

 

[manulemalin13000]

Re : Macro supprime ligne qui contient...

Ca marche super bien

merci bonne soirée