Les Allergies
Alimentaires
Posez votre question Signaler

Macro excel rechercher texte et suppression [Résolu]

Morbonnat 18Messages postés 26 avril 2008Date d'inscription - Dernière réponse le 25 août 2008 à 09:17
Bonjour,
Je viens vous demander de l'aide car cela fait 2 jours que je suis dessus et je suis sur le point d'exploser !!!
Sous Excel, je voudrais faire une macro pour supprimer les lignes qui contienne un certain texte. Il me faut donc recherche ce texte dans la colonne A, et s'il est présent supprimé la ligne entière. Cela pour 2 mots différent.
J'ai créer cette macro : (Dans ce cas, il faut supprimer les ligne dont la cellule A contient le mot "president" ou le mont "directeur". Si la cellule contient "président d'honneur" ou "directeur général" je veux que les lignes soient supprimée aussi...)
Do
If Cells.Find(What:="president").Activate Then
selection.EntireRow.Delete
Else: Do
Cells.Find(What:="directeur").Activate
selection.EntireRow.Delete
Loop
End If
Loop
End Sub
Le probleme est que une fois que le mot "president" n'est plus trouvé, il ne cherche pas s'il il reste des cellules avec "directeur". Il m'affiche "erreur d'execution '91'...
HELP !!!
Lire la suite 

Macro excel rechercher texte et suppression »

5 réponses
Réponse
+2
moins plus
amigo 27 avril 2008 à 14:12
bonjour,

Voici comment il faut coder ta macro 
Sub select_supr()

Do
    If Cells.Find(What:="directeur") Is Nothing Then
       Exit Do
    Else
       Cells.Find(What:="directeur").Activate
       Selection.EntireRow.Delete
    End If
Loop

Do
    If Cells.Find(What:="président") Is Nothing Then
       Exit Do
    Else
       Cells.Find(What:="président").Activate
       Selection.EntireRow.Delete
    End If
Loop

'et ainsi de suite

End Sub

Salut.

 Ajouter un commentaire
Morbonnat- 27 avril 2008 à 16:43
Merci Amigo !!
colorboss - 22 août 2008 à 11:45
Bonjour
je me permets de te contacter suite à la solution en VB que tu as soumise.
Je ne connais pas grand chose en programmation au contraire de toi.
j'ai un fichier excel de 2000 lignes et j'aimerais détecter du texte (qui est le même sur chaque fin de ligne) pour insérer une nouvelle ligne de texte ( ce serait une commande tempo pour un fichier de spool).
merci d'avance si tu veux bien me répondre.
Ajouter un commentaire
Réponse
+0
moins plus
Morbonnat 18Messages postés 26 avril 2008Date d'inscription 27 avril 2008 à 01:49
J'ai avancé depuis le dernier message. Le code suivant me permet de supprimé les lignes que je veux cependant la macro se termine par un message d'erreur ?!? Ceci m'enpéche d'ajouter un troisième mot a cherche.

Je ne comprend pas l'érreur étant donné que les 2 lignes sont identique !!!

Je vous laisse ici mon code pour que vous puissiez le critquer...:


Sub select_supr()

Do
On Error GoTo A1

Cells.Find(What:="directeur").Activate

selection.EntireRow.Delete

Loop
A1:

Do
On Error GoTo B1

Cells.Find(What:="président").Activate

selection.EntireRow.Delete

Loop

B1:
End Sub

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
Morbonnat 18Messages postés 26 avril 2008Date d'inscription 25 août 2008 à 09:17
Bonjour,

Je ne m'y connais pas beaucoup en macro, c'est d'ailleurs pour cela que je suis sur ce site... :S

En ce qui concerne ta macro, tu peux utiliser le même code que mois pour rechercher les cellule qui contienne le texte que tu cherches:

Cells.Find(What:="CE-QUE-TU-CHERCHES")

Ensuite, pour insérer un ligne de texte en dessous je n'ai aucune idée du code, désolé...

Bonne chance dans ta recherches

Salut

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « Macro excel rechercher texte et suppression » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?