Discussion :

[derouteu]

Bonjour,

Je cherche à créer une macro qui supprime toutes les ligne qui comportent au moins une cellule qui contient la mention "DEBUT".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub supprimer_ligne()
 
Dim i As Long
Dim j As Long
 
If Cells(i, j) = "DEBUT" Then
Rows(i & ":" & i).Delete xlUp
Selection.Delete Shift:=xlUp
 
 
End If
 
 
 
End Sub

J'obtiens le message Application-defined or object-defined error

Qu'est ce qui cloche?

[rvtoulon]

Bjr, derouteu

Avec si peu d'éléments difficile de t'aider.
D'apres ce que je peux comprendre avec un peu d'imagination tu aimerais faire une boucle qui chercherais dans les cellules le mot début. Si il le trouve il efface la ligne correspondantes. j'ai compris?

Pour commencer:
Dans quel feuille se trouve la zone de recherche?
Quel est la zone de recherche, Ex: De la colonne A à D ?

Dis-nous en plus sur ce que tu veux, nous voulons des détails.

Pour ton message d'erreur, tu définis des variables i et j, mais tu ne leur donne pas de valeur d'ou le message.

Fait quelques recherches sur la faq ou simplement sur ce forum tu trouveras de nombreux exemples de ce que tu veux faire.

A+

EDIT: Voici une discussion qui ressemble à la tienne
http://www.developpez.net/forums/d83...orrespondante/

[derouteu]

Bonjour rvtoulon,

Oui, tu as compris, je désire faire une boucle qui chercherait dans les cellules le mot "DEBUT". Si il le trouve, alors il efface la ligne correspondante.

La zone de recherche va s'appliquer à plusieurs feuilles qui portent différents noms.
La zone de recherche peut se limiter aux colonnes A:H mais dans un soucis d'apprentissage je désirai connaitre le script qui définit toutes les colonnes de la feuille.

[derouteu]

Bonjour laetitia,

merci, c'est ce que je cherchais

Maintenant j'ai ajouté un second mot clé à la liste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub es()
  Dim i As Long, j As Long
  Application.ScreenUpdating = False
  For j = 1 To 8
  For i = 1 To Cells.Find("*", , , , , xlPrevious).Row
    If Cells(i, j) = "DEBUT" Then Rows(i).Delete
  Next i: Next j
 
 
  For j = 1 To 8
  For i = 1 To Cells.Find("*", , , , , xlPrevious).Row
  If Cells(i, j) = "lala" Then Rows(i).Delete
  Next i: Next j
 
 
 End Sub

le code fonctionne mais j'aurai aimé savoir s'il existe un moyen plus rapide (en écriture) que de ré-ecrire pour chaque mot clé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For j = 1 To 8
  For i = 1 To Cells.Find("*", , , , , xlPrevious).Row
  If Cells(i, j) = "lala" Then Rows(i).Delete
  Next i: Next j

Avec 2 mots clés ça va mais ça risque de faire beaucoup de code si j'ai 500 mots clés. I existe certainement un manière de lister les mots clé...

Merci,

rvtoulon,

C'est une bonne idée que de définir les feuilles dans lesquelles le code doit s'exécuter.
Je vais considérer que j'ai 3 feuilles qui se nomment "Bleu", "Blanc", "Rouge".

Je ne vois pas du tout comment je peux énoncer que la macro ne doit que s'exécuter sur ces 3 feuilles....

[laetitia]

re, une solution pour boucler sur tes 3 feuilles. on l'ecrire autrement si tu as pas trop de feuilles dans ton classeur je suppose que tu as beaucoup de feuilles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub es()
 Dim i As Long, j As Long, Ws As Worksheet
  Application.ScreenUpdating = False
For Each Ws In ThisWorkbook.Worksheets(Array("Bleu", "Blanc", "Rouge"))
Ws.Activate
For j = 1 To 8
  For i = 1 To Cells.Find("*", , , , , xlPrevious).Row
    If Cells(i, j) = "DEBUT" Or Cells(i, j) = "lala" Then Rows(i).Delete
  Next i: Next j: Next Ws
End Sub

par coNtre si tu as 500criteres as tu la possiblitees de les mettre sur une plage de cellules par exemple dans une autre feuille de a1:a500 ??

la on pourrait faire quelque chose de simple.

[rvtoulon]

re,
J'ai encore appris beaucoup de choses notamment sur l'utilisation du .find
et les next à la file, Bien vu.

j'adore ce forum.

merci

[laetitia]

bonjour derouteu rvtoulon le forum "brut" comme cela sans plus d'infos

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub es()
  Dim i As Long, j As Long
  Application.ScreenUpdating = False
  For j = 1 To 256
  For i = 1 To Cells.Find("*", , , , , xlPrevious).Row
    If Cells(i, j) = "DEBUT" Then Rows(i).Delete
  Next i: Next j
 End Sub

[rvtoulon]

Bjr, Laetitia re, Derouteu

Encore une question, le mot "DEBUT" ce trouve dans une colonne en particulier?

par exemple voici un code qui permet de chercher le mot début dans la colonne B de la feuil1. Si il le trouve il efface la ligne entière:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub effacer()
Dim plage as range
 
set plage = Sheets("feuil1").Range("B1:B" & Range("B65356").End(xlUp).Row)
 
For Each c in plage
If c = "DEBUT" Then c.EntireRow.Delete
Next c
End Sub

A+