Suppression de lignes à partir d'un point particulier

Suppression de lignes à partir d'un point particulier - VB/VBA/VBS - Programmation

Marsh Posté le 25-07-2006 à 10:52:26    

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 :
 
Ligne 11 "culcul"
Ligne 12 "tata"
 
etc...
 
Ligne 16 "toto"
 
*Suppression des 10 lignes suivantes*
 
Je verrais bien un "If cellule="toto" Delete" dans la boucle que j'ai crée mais je sèche au niveau de la synthaxe :??:
 
Des idées...
 
Merci d'avance  :hello:

Reply

Marsh Posté le 25-07-2006 à 10:52:26   

Reply

Marsh Posté le 25-07-2006 à 10:56:28    

tu fais une première boucle qui incrémente un offset jusqu'à ce que tu trouve "toto"
ensuite, tu lances ta boucle de suppression avec cet offset

Reply

Marsh Posté le 26-07-2006 à 11:12:59    

Voila ce que j'ai réussit à faire :
 

Citation :

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 WorksheetFunction.CountA(Rows(i)) = "toto" Then
 
MsgBox "Toto trouvé"
 
End If
 
Next
 
End Sub


 
Seulement j'ai une incompatibilité de type au niveau du if. Il n'aime pas le toto à mon avis...
 
Help  :cry:

Reply

Marsh Posté le 26-07-2006 à 11:14:24    

.value ca pourrait aider si tu lis "toto"

Reply

Marsh Posté le 26-07-2006 à 11:41:34    

C'est quoi CountA ?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed