Discussion :

[coxi77]

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 :

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

Des idées...

Merci d'avance !

[illight]

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 :

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

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

où a est la ligne ou toto apparait

[coxi77]

Voila ce que je viens de faire :

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 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 au niveau du if et je sais pas pourquoi

Suggestions/idées ?

Merci d'avance

[illight]

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

C'est quoi ça

Pourquoi tu fais pas tout simplement un :

Code :

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

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 :

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

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

[coxi77]

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