Bonjour,
Je suis assez novice en VBA ... bon disons que j'utilisais uniquement l'enregistreur de macro Donc, ce que j'essaie de faire c'est de supprimer la ligne avec la valeur de la cellule active dans la colonne A = ********* puis ensuite supprimer les 7 lignes qui suivent la 1ere cellule dans la colonne A avec la valeur = *********
Exemple :
A B C D E
1 **
2 **
3 **
4
5
6
7
8 **
9
Donc dans ce cas la il faut supprimer la ligne 1,2,3,4,5,6,7 et 8 . Des fois les "**" se répètent aussi dans les autres lignes à savoir de 2 à 8 mais pas plus. En somme il faut supprimer les 8 lignes qui se suivent à partir de la 1ere apparition de la valeur ********* dans une des cellules de la colonne A.
(j'ai essayé d'insérer un tableau mais je n'ai pas su comment faire ...)
J'ai essayer ce code que voici (je ne suis pas du tout fort en VBA c'est la 2ème macro que je réalise moi-même):
Sub SelectAndErase()
Dim L As Integer
Const LigneDebut = 1
Const LigneFin = 8153
For L = LigneDebut To LigneFin Step 1
If Cells(L, 1) = "~*********" Then
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next
End sub
Voila en vous remerciant d'avance.
Je suis assez novice en VBA ... bon disons que j'utilisais uniquement l'enregistreur de macro Donc, ce que j'essaie de faire c'est de supprimer la ligne avec la valeur de la cellule active dans la colonne A = ********* puis ensuite supprimer les 7 lignes qui suivent la 1ere cellule dans la colonne A avec la valeur = *********
Exemple :
A B C D E
1 **
2 **
3 **
4
5
6
7
8 **
9
Donc dans ce cas la il faut supprimer la ligne 1,2,3,4,5,6,7 et 8 . Des fois les "**" se répètent aussi dans les autres lignes à savoir de 2 à 8 mais pas plus. En somme il faut supprimer les 8 lignes qui se suivent à partir de la 1ere apparition de la valeur ********* dans une des cellules de la colonne A.
(j'ai essayé d'insérer un tableau mais je n'ai pas su comment faire ...)
J'ai essayer ce code que voici (je ne suis pas du tout fort en VBA c'est la 2ème macro que je réalise moi-même):
Sub SelectAndErase()
Dim L As Integer
Const LigneDebut = 1
Const LigneFin = 8153
For L = LigneDebut To LigneFin Step 1
If Cells(L, 1) = "~*********" Then
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next
End sub
Voila en vous remerciant d'avance.