Macro pour supprimer lignes toutes les 52 ligne
Bonjour,
J'ai besoin d'une macro qui me permet de supprimer des lignes.
Elle commence de la cellule A2 jusqu'a la cellule A7250.
Les lignes a supprimer sont de la ligne (A54:A58) toutes les 52 lignes.
Soit supprimer les lignes (A54:A58) puis les lignes (A110:A115) etc.. jusqu'à la cellule A7250.
Merci par avance
Emmanuel
Bonsoir
1 - mettre 1 en face de ce que tu veux effacer :
Tu insères une colonne.
Dans cette colonne, tu saisis lenombre 1 dans les lignes que tu veux supprimer, et rien dans les autres lignes.
tu le fais pour les 58 premières lignes.
Tu copies ces 58 lignes (uniquement cette colonne) et tu colles dans les lignes suivantes, et tu colles dans les lignes suivantes et tu colles dans les lignes suivantes
soit tu le fais 70 fois, soit au bout de disons 10 fois, tu copies sur 570 lignes (à toi de bien viser) et tu colles 7 fois (ou je sais pas combien de fois.
2 - tu crée une "liste" (ou un tableau si tu as Excel 2007) et tu filtres sur cette colonne sur la valeur 1
3 - tu sélectionne toutes les lignes qui restent visibles
4- tu enlèves le filtre et tu supprime la colonne qui contenait les 1
Pas de macro, et si tu ne fais pas d'erreur en copier/coller : 3 minutes de travail.
Je viens d'essayer.
Merci de ta réponse mais le nombre evoluera toutes les semaines donc je prefererai une macro.
Bye bye
Emmanuel
Bonsoir
Attendons la réponse sur
Amadéus
Bonjour
Encore plus rapide, sans macro ni copier/coller
Reste à mettre des 1 ou des zéros (ou rien) dans les 52 (ou autres) premières bonnes lignes, puis à sélectionner ces lignes et à "tirer" au bas de tes 8000 lignes. Magique.
Filtre et supprime comme ci-dessus.
Temps total : moins de 1 min.
Fiabilité : 100%
A faire chaque semaine si je comprends bien.
A toi de voir si tu préfères vraiment une macro que tu devras modifier un poil chaque semaine !
Merci de ta réponse,
Un user d'un autre forum m'a donné la soluction.
bye
Salut le forum
La solution donné par Gorfael sur un autre forum, je vous la fait connaitre.
Sub test()
'Déclaration ===============
Dim X As Long
Dim Y As Integer
Dim Cel As Range
'MEI =======================
Y = UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1
'y=dernière colonne utilisée +1
For X = 54 To UsedRange.SpecialCells(xlCellTypeLastCell).Row Step 56
'pour x=54 jusqu'à dernière ligne utilisée par pas de 56
Range(Cells(X, Y), Cells(X + 4, Y)) = "X"
'mettre x dans les 4 cellules de la colonne Y à partir de x
Next X
'suppression ===============
Do 'début de boucle ---------------------
Set Cel = Columns(Y).Find("X", LookIn:=xlValues)
'cel=celuule de la colonne Y contenant X
If Cel Is Nothing Then
'si cel n'existe pas
Exit Do
'sortir de la boucle
Else ' sinon
Rows(Cel.Row).Delete
'supprimer la ligne de cel
Set Cel = Nothing
'supprimer cel(la variable)
End If
Set Cel = Nothing
Loop 'fin de boucle --------------------
End Sub Mytå