Supprimer plusieur lignes
Bonjour à tous,
J'aimerai votre aide svp.
J'ai un tableau avec plusieurs ligne de données, certaines me sont utiles d'autres non. Ce qui est facile c'est que celles qui ne me sont pas utiles sont toujours les 12 lignes qui suivent le mot "page" dans la colonne N.
exemple : dans la ligne 1 et la colonne N il y a le mot "page", je souhaite supprimer cette ligne ainsi que les 12 suivantes.
Grace au forum j'ai reussi a construire un bout de code qui efface toutes les lignes contenant le mot "page" mais je bloque totalement pour supprimer les 12 suivantes. Voici le code :
Sub SuppBIO()
Dim I As Integer
For I = [N65000].End(xlUp).Row To 1 Step -1
If Not Cells(I, 14).Find("PAGE") Is Nothing Then Rows(I).Delete
Next I
End SubMerci d'avance pour votre aide
Bonjour,
regarde peut être ceci, attention sensible à la casse :
Option Explicit
Sub SuppBIO()
Dim I As Integer
For I = [N65000].End(xlUp).Row To 1 Step -1
If Cells(I, 14) = "PAGE" Then Rows(I).Resize(13).Delete
Next I
End Subbon après midi
@+
Bonjour Pierrot93
Merci beaucoup pour ton aide, ca marche vraiment bien. J'ai réutilisé mon code en rajoutant un bout du tiens, du coup ce n'est plus sensible a la casse et fonctionne meme pour "PAGE 1" ou "page 1".
Exactement ce qu'il me faut.
Sub SuppBIO()
Dim I As Integer
For I = [N65000].End(xlUp).Row To 1 Step -1
If Not Cells(I, 14).Find("PAGE") Is Nothing Then Rows(I).Resize(11).Delete
Next I
End SubCiao