j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je souhaite
supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523), puis
508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes.
Evidemment, je ne connais jamais la taille finale de mon tableau, mais il
n'y pas de ligne vide entre les tableaux.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie (non testé, sauvegarde bien ton classeur avant de lancer la macro) :
Sub test() Dim Ligne As Long Ligne = 517 Do While Cells(Ligne, 1) <> "" Cells(Ligne, 1).Resize(7, 1).EntireRow.Delete Ligne = Ligne + 508 Loop End Sub
Cordialement. Daniel "Sofien Djelassi" a écrit dans le message de news:
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je souhaite supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523), puis 508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes. Evidemment, je ne connais jamais la taille finale de mon tableau, mais il n'y pas de ligne vide entre les tableaux.
Merce de votre aide -- Sofien
Bonjour.
Essaie (non testé, sauvegarde bien ton classeur avant de lancer la macro) :
Sub test()
Dim Ligne As Long
Ligne = 517
Do While Cells(Ligne, 1) <> ""
Cells(Ligne, 1).Resize(7, 1).EntireRow.Delete
Ligne = Ligne + 508
Loop
End Sub
Cordialement.
Daniel
"Sofien Djelassi" <sofiendb@hotmail.com> a écrit dans le message de news:
DC3CD3A7-FD7A-4D04-A06C-857C1B0A9202@microsoft.com...
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je
souhaite
supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523),
puis
508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes.
Evidemment, je ne connais jamais la taille finale de mon tableau, mais il
n'y pas de ligne vide entre les tableaux.
Bonjour. Essaie (non testé, sauvegarde bien ton classeur avant de lancer la macro) :
Sub test() Dim Ligne As Long Ligne = 517 Do While Cells(Ligne, 1) <> "" Cells(Ligne, 1).Resize(7, 1).EntireRow.Delete Ligne = Ligne + 508 Loop End Sub
Cordialement. Daniel "Sofien Djelassi" a écrit dans le message de news:
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je souhaite supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523), puis 508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes. Evidemment, je ne connais jamais la taille finale de mon tableau, mais il n'y pas de ligne vide entre les tableaux.
Merce de votre aide -- Sofien
FFO
Re bonjours Sofien Je te propose :
Rows("517:523").Delete Range("A517").Select n = 0 For I = 1 To Range("A65535").End(xlUp).Row - 517 ActiveCell.Offset(1, 0).Select n = n + 1 If n = 508 Then Ligne = ActiveCell.Row Rows(Ligne & ":" & Ligne + 6).Delete n = 0 End If Next
Celà devrait faire
Dis moi !!!
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je souhaite supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523), puis 508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes. Evidemment, je ne connais jamais la taille finale de mon tableau, mais il n'y pas de ligne vide entre les tableaux.
Merce de votre aide -- Sofien
Re bonjours Sofien
Je te propose :
Rows("517:523").Delete
Range("A517").Select
n = 0
For I = 1 To Range("A65535").End(xlUp).Row - 517
ActiveCell.Offset(1, 0).Select
n = n + 1
If n = 508 Then
Ligne = ActiveCell.Row
Rows(Ligne & ":" & Ligne + 6).Delete
n = 0
End If
Next
Celà devrait faire
Dis moi !!!
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je souhaite
supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523), puis
508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes.
Evidemment, je ne connais jamais la taille finale de mon tableau, mais il
n'y pas de ligne vide entre les tableaux.
Rows("517:523").Delete Range("A517").Select n = 0 For I = 1 To Range("A65535").End(xlUp).Row - 517 ActiveCell.Offset(1, 0).Select n = n + 1 If n = 508 Then Ligne = ActiveCell.Row Rows(Ligne & ":" & Ligne + 6).Delete n = 0 End If Next
Celà devrait faire
Dis moi !!!
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je souhaite supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523), puis 508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes. Evidemment, je ne connais jamais la taille finale de mon tableau, mais il n'y pas de ligne vide entre les tableaux.
Merce de votre aide -- Sofien
ru-th
euh, juste une question ?
une fois que tu as supprimé les 7 1eres lignes, tes prochaines lignes à supprimer sont lignes 508 ou lignes 508-7P1 ? (les conséquences pourraient être non négligeables...tout comme certains décomptes de votes) a+ rural thierry "Sofien Djelassi" a écrit dans le message de news:
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je souhaite
supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523), puis
508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes. Evidemment, je ne connais jamais la taille finale de mon tableau, mais il n'y pas de ligne vide entre les tableaux.
Merce de votre aide -- Sofien
euh, juste une question ?
une fois que tu as supprimé les 7 1eres lignes, tes prochaines lignes à
supprimer sont lignes 508 ou lignes 508-7P1 ?
(les conséquences pourraient être non négligeables...tout comme certains
décomptes de votes)
a+
rural thierry
"Sofien Djelassi" <sofiendb@hotmail.com> a écrit dans le message de
news:DC3CD3A7-FD7A-4D04-A06C-857C1B0A9202@microsoft.com...
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je
souhaite
supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523),
puis
508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes.
Evidemment, je ne connais jamais la taille finale de mon tableau, mais il
n'y pas de ligne vide entre les tableaux.
une fois que tu as supprimé les 7 1eres lignes, tes prochaines lignes à supprimer sont lignes 508 ou lignes 508-7P1 ? (les conséquences pourraient être non négligeables...tout comme certains décomptes de votes) a+ rural thierry "Sofien Djelassi" a écrit dans le message de news:
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je souhaite
supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523), puis
508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes. Evidemment, je ne connais jamais la taille finale de mon tableau, mais il n'y pas de ligne vide entre les tableaux.
Merce de votre aide -- Sofien
Sofien Djelassi
Bonjour, c'est 508 une fois les 7 lignes supprimées -- Sofien
euh, juste une question ?
une fois que tu as supprimé les 7 1eres lignes, tes prochaines lignes à supprimer sont lignes 508 ou lignes 508-7P1 ? (les conséquences pourraient être non négligeables...tout comme certains décomptes de votes) a+ rural thierry "Sofien Djelassi" a écrit dans le message de news:
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je souhaite
supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523), puis
508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes. Evidemment, je ne connais jamais la taille finale de mon tableau, mais il n'y pas de ligne vide entre les tableaux.
Merce de votre aide -- Sofien
Bonjour,
c'est 508 une fois les 7 lignes supprimées
--
Sofien
euh, juste une question ?
une fois que tu as supprimé les 7 1eres lignes, tes prochaines lignes à
supprimer sont lignes 508 ou lignes 508-7P1 ?
(les conséquences pourraient être non négligeables...tout comme certains
décomptes de votes)
a+
rural thierry
"Sofien Djelassi" <sofiendb@hotmail.com> a écrit dans le message de
news:DC3CD3A7-FD7A-4D04-A06C-857C1B0A9202@microsoft.com...
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je
souhaite
supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523),
puis
508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes.
Evidemment, je ne connais jamais la taille finale de mon tableau, mais il
n'y pas de ligne vide entre les tableaux.
Bonjour, c'est 508 une fois les 7 lignes supprimées -- Sofien
euh, juste une question ?
une fois que tu as supprimé les 7 1eres lignes, tes prochaines lignes à supprimer sont lignes 508 ou lignes 508-7P1 ? (les conséquences pourraient être non négligeables...tout comme certains décomptes de votes) a+ rural thierry "Sofien Djelassi" a écrit dans le message de news:
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je souhaite
supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523), puis
508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes. Evidemment, je ne connais jamais la taille finale de mon tableau, mais il n'y pas de ligne vide entre les tableaux.
Merce de votre aide -- Sofien
Sofien Djelassi
Ca marche nickel merci
-- Sofien
Bonjour. Essaie (non testé, sauvegarde bien ton classeur avant de lancer la macro) :
Sub test() Dim Ligne As Long Ligne = 517 Do While Cells(Ligne, 1) <> "" Cells(Ligne, 1).Resize(7, 1).EntireRow.Delete Ligne = Ligne + 508 Loop End Sub
Cordialement. Daniel "Sofien Djelassi" a écrit dans le message de news:
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je souhaite supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523), puis 508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes. Evidemment, je ne connais jamais la taille finale de mon tableau, mais il n'y pas de ligne vide entre les tableaux.
Merce de votre aide -- Sofien
Ca marche nickel merci
--
Sofien
Bonjour.
Essaie (non testé, sauvegarde bien ton classeur avant de lancer la macro) :
Sub test()
Dim Ligne As Long
Ligne = 517
Do While Cells(Ligne, 1) <> ""
Cells(Ligne, 1).Resize(7, 1).EntireRow.Delete
Ligne = Ligne + 508
Loop
End Sub
Cordialement.
Daniel
"Sofien Djelassi" <sofiendb@hotmail.com> a écrit dans le message de news:
DC3CD3A7-FD7A-4D04-A06C-857C1B0A9202@microsoft.com...
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je
souhaite
supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523),
puis
508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes.
Evidemment, je ne connais jamais la taille finale de mon tableau, mais il
n'y pas de ligne vide entre les tableaux.
Bonjour. Essaie (non testé, sauvegarde bien ton classeur avant de lancer la macro) :
Sub test() Dim Ligne As Long Ligne = 517 Do While Cells(Ligne, 1) <> "" Cells(Ligne, 1).Resize(7, 1).EntireRow.Delete Ligne = Ligne + 508 Loop End Sub
Cordialement. Daniel "Sofien Djelassi" a écrit dans le message de news:
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je souhaite supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523), puis 508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes. Evidemment, je ne connais jamais la taille finale de mon tableau, mais il n'y pas de ligne vide entre les tableaux.
Merce de votre aide -- Sofien
Sofien Djelassi
Ca marche nickel aussi!!! Merci -- Sofien
Re bonjours Sofien Je te propose :
Rows("517:523").Delete Range("A517").Select n = 0 For I = 1 To Range("A65535").End(xlUp).Row - 517 ActiveCell.Offset(1, 0).Select n = n + 1 If n = 508 Then Ligne = ActiveCell.Row Rows(Ligne & ":" & Ligne + 6).Delete n = 0 End If Next
Celà devrait faire
Dis moi !!!
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je souhaite supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523), puis 508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes. Evidemment, je ne connais jamais la taille finale de mon tableau, mais il n'y pas de ligne vide entre les tableaux.
Merce de votre aide -- Sofien
Ca marche nickel aussi!!!
Merci
--
Sofien
Re bonjours Sofien
Je te propose :
Rows("517:523").Delete
Range("A517").Select
n = 0
For I = 1 To Range("A65535").End(xlUp).Row - 517
ActiveCell.Offset(1, 0).Select
n = n + 1
If n = 508 Then
Ligne = ActiveCell.Row
Rows(Ligne & ":" & Ligne + 6).Delete
n = 0
End If
Next
Celà devrait faire
Dis moi !!!
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je souhaite
supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523), puis
508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes.
Evidemment, je ne connais jamais la taille finale de mon tableau, mais il
n'y pas de ligne vide entre les tableaux.
Rows("517:523").Delete Range("A517").Select n = 0 For I = 1 To Range("A65535").End(xlUp).Row - 517 ActiveCell.Offset(1, 0).Select n = n + 1 If n = 508 Then Ligne = ActiveCell.Row Rows(Ligne & ":" & Ligne + 6).Delete n = 0 End If Next
Celà devrait faire
Dis moi !!!
Bonjour,
j'ai un fichier dans lequel j'ai plusieurs tableaux à la suite. je souhaite supprimer à partir de la ligne 517 les 7 lignes qui suivent (517 à 523), puis 508 lignes àprès, les 7 lignes qui suivent etc... toutes les 508 lignes. Evidemment, je ne connais jamais la taille finale de mon tableau, mais il n'y pas de ligne vide entre les tableaux.