Discussion :

[lio62]

Bonjour

je reviens encore avec mon mot "observation", qui se trouvera toujours dans la colonne A
je voudrai faire une recherche de ce mot et un fois ce mot trouvé il me sélectionne la ligne ainsi que 6 lignes en dessous et qu'il me les supprimes

merci a+

[illight]

Un truc de ce genre la devrait fonctionner :

Code :

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

1
2
3
4
5
6
7
Sub test()
i = 1
While Cells(i, 1).Value <> "observations"
    i = i + 1
Wend
Rows(i & ":" & i + 6).Delete
End Sub

]

[helios77]

Essaie çà
Si ta feuille de travail n'est pas "Feuil1", pense à remplacer par le nm de ta feuille sinon tu vas avoir des surprises.....

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
17
Sub a()
Dim i As Integer
Dim maFeuille As String
maFeuille = "Feuil1"
i = 1
 
Sheets(maFeuille).Select
 
While (Cells(i, 1).Value <> "observation")
    i = i + 1
Wend
 
Rows(i + 1 & ":" & i + 6).Select
Selection.Delete Shift:=xlUp
Cells(1, 1).Select
 
End Sub

[lio62]

bonsoir

pour hellios 77 et illight j'ai les 2 memes erreurs ( erreur 6 dépassement de capacité)
en passant le curseur sur la ligne j'ai I=32767

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 a()
Dim i As Integer
Dim maFeuille As String
maFeuille = "dotation2"
i = 1
 
 
While (cells(i, 1).Value <> "observations")
    i = i + 1--------> depassement de capacité
Wend
 
Rows(i + 1 & ":" & i + 6).Select
Selection.Delete Shift:=xlUp
cells(1, 1).Select
 
End Sub

merci a+

[Invité]

Bonjour

Observations avec un s ou sans, car à mon avis tu es arrivé au bout de la feuille, il n'a pas trouvé le mot.

Starec

[ouskel'n'or]

+1
mais ça peut également être "Observations" ou "observations "
A la place de

While (cells(i, 1).Value <> "observations")

Je mettrais

Code :

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

While (trim(lcase(cells(i, 1).Value)) <> "observations")

A+

[illight]

+1
mais ça peut également être "Observations" ou "observations "
A la place de
Je mettrais

Code :

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

While (trim(lcase(cells(i, 1).Value)) <> "observations")

A+

Bah moi je mettrai :

Code :

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

While (instr(1,(cells(i, 1).Value),"observation",vbtextcompare) = 0

et Toc

[lio62]

merci illight merci ouskel

merci illight merci ouskel

les 2 solutions sont bonnes

merci a+