Recherche un mot puis supprimme la ligne

[Bill]

Bonjour à tous,

Je n'y connais vraiment rien en macro, si ce n'est les utiliser. Je souhaiterais rechercher un mot dans chaque cellule d'une colonne et si le mot s'y trouve, supprimer la ligne.

Ex: monsieur artisan boulanger
madame artisan boucher
madame etudiant lettre

Je souhaiterais par exemple reperer sur la colonne 2 chaque fois que j'ai le mot artisan puis supprimer la ligne afin d'obtenir:

madame etudiant lettre

De meme pour un tableau à environ 1000 lignes.

Merci de votre aide.

Bill

 

[julien]

moi aussi j ai le meme probleme que toi... ca serait bien qu'on ait des reponses

 

[Hady]

Sub Macro1()
Dim Lg As String, i As Integer

For i = Range('A65536').End(xlUp).Row To 1 Step -1
Test = InStr(1, Cells(i, 1), 'Artisan')
If (Test <> '0') Then
Lg = i & ':' & i
Rows(Lg).Delete
End If
Next
End Sub

J'espère que ça va vous aider
Cette macro trie sur la colonne A et supprime toutes les lignes contenant le mot 'Artisan' dans la colonne A

 

[Gérard DEZAMIS]

Bonjour Bill, Julien et .... Hady que je n'avais pas vu arriver !

Le boulot est fait alors je vous le livre quand même


@+ GD [file name=BillJulien.zip size=10447]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/BillJulien.zip[/file]

 

[Gérard DEZAMIS]

Avec un bouton qui est actif c'est plus pratique ! Mille excuses !

@+ GD [file name=BillJulien_20050704171141.zip size=10449]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/BillJulien_20050704171141.zip[/file]

 

[Robert]

Bonjour Bill, Julien, le froum,

Par rapport à l'exemple de Bill, je vous propose ça :

Sub Macro1()
Dim x As Long
For x = Range('B65536').End(xlUp).Row To 1 Step -1
If UCase(Cells(x, 2).Value) = 'ARTISAN' Then Cells(x, 2).EntireRow.Delete
Next x
End Sub

Édition

Hou la ! Pas frais. Mais alors pas frais du tout... Bonjour Hady, bonjour Gérard.

Message édité par: Robert, à: 04/07/2005 17:19

 

[bill]

1000 merci à tous ca marche nikel!!!
B)

 

[Julien]

Merci à vous Robert et gérard!
Par contre comment faire lorsque le mot est contenu dans une phrase.
Parceque ces macros ne permettent pas d'éliminer les lignes qui contiennent un mot en particulier.

@+ Juju

 

[Julien]

Autant pour moi... il faut utiliser la macro de Hady.
Merci Hady et merci à tous!!

 

[albert]

ca marche bien!!

 

[albert]

ca marche bien!!

 

[albert]

ca marche bien!!

 

[albert]

ca marche bien!!