Suppression de lignes à partir d'un point particulier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Suppression de lignes à partir d'un point particulier

coxi9

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:

Publicité

Arjuna

Aircraft Ident.: F-MBSD

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

coxi9

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:

jpcheck

Pioupiou

.value ca pourrait aider si tu lis "toto"

Paul Hood

C'est quoi CountA ?

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Suppression de lignes à partir d'un point particulier

Sujets relatifs
[Access] Mettre à jour une zone de liste à partir d'un menu déroulant	[résolu] lecture à partir d'un BufferedReader
Erreur dans la suppression d'un compte utilisateur	[Access] Recherche sur un champs à partir d'une liste
datagrid à partir d'une table dont on ne connait pas les champs	lire a partir d'un fichier conf
QT: création d'un affichage à partir d'un fichier binaire	Automatiser la création d'un script à partir d'une liste
requête sql sur fichiers dBase à partir d'excel	[pb]A partir d'un formulaire copie dans un txt
Plus de sujets relatifs à : Suppression de lignes à partir d'un point particulier

Page générée en 0.030 secondes