[VBA-E] Suppression de lignes à partir d'un point particulier

Salut a tous !

J'ai besoin de vos lumières ! Je vous explique mon problème :

J'ai réalisé une petite macro me permettant de supprimer les 10 premières lignes d'un tableau, la voici :

Citation:

---

Sub Supp()

For i = 1 To 10

Set r = Range("A1: P10" )
r.Rows(1).Delete shift:=xlUp

Next i

End Sub

---

En plus de ca, j'aimerai effectuer la suppression de 10 lignes supplémentaires à partir de la cellule contenant le mot "toto".

En gros voila comment ca se présente à travers un exemple :

Ligne 11 "culcul"
Ligne 12 "tata"

etc...

Ligne 16 "toto"

*Suppression des 10 lignes suivantes*

On m'a conseillé de faire une première boucle chargée de trouver le mot "toto" dans le tableau puis d'effectuer une autre boucle de suppression des 10 lignes. Mais je ne sais pas comment m'y prendre :cry:

Des idées...

Merci d'avance !

Une fois que tu as trouvé le numéro de la ligne ou il y a écrit toto (effectivement en faisant une boucle) pour supprimer 10 lignes il suffit que tu fasse un :

Code:

---

1 2 3

Rows(a+1 & ":" & a+10).Select   Selection.Delete Shift:=xlUp

---

où a est la ligne ou toto apparait :)

Voila ce que je viens de faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Test()   Dim Finclasseur As Long   Dim i As Long   Finclasseur = Worksheets("Feuil1").UsedRange.Row - 1 Finclasseur = Finclasseur + Worksheets("Feuil1").UsedRange.Rows.Count   For i = 1 To Finclasseur   If Application.WorksheetFunction.CountA(Rows.Value(i)) = "toto" Then MsgBox "toto trouvé"   Next i   End Sub

---

Pour l'instant je veux simplement voir s'il trouve le mot "toto" mais ca plante :aie: au niveau du if et je sais pas pourquoi :roll:

Suggestions/idées ?

Merci d'avance

Citation:

---

If Application.WorksheetFunction.CountA(Rows.Value(i)) = "toto" Then MsgBox "toto trouvé"

---

C'est quoi ça 8O

Pourquoi tu fais pas tout simplement un :

Code:

---

1 2 3 4

For i = 1 To Finclasseur If cells(i,1).value = "toto" Then MsgBox "toto trouvé" Next i

---

Attention ce code est valable si le "toto" il est dans la première colonne, a toi de le mettre en fonction de ce que ut fais ;)

Par exemple si tu veux le faire sur une plage de cellules et aussi sur les colonnes, tu rajoute une boucle avec un j qui te prendra les colonnes :)

Et si tu veux utiliser une plage en faisant un "dim r as range" tu écrit :

Code:

---

r.cells(i,j).value = "toto"

---

J'ai l'art de compliquer les choses moi :D Merci ca marche maintenant :aie: