Supprimer 3 lignes Via VBA

gerard55 · 12 Janvier 2014

Bonjour à tous,
J'ai un fichier sj'extrais d'un logiciel de planning. Je le modifie avec plusieurs macro ensuite pour arrivier à ce que je veux.
Mais, dans ce planning, il y a 3 lignes (39, 40, 41) que je veux supprimer. A noter que ces lignes ne sont pas toujours à la mëme position. Elles peuvent être plus bas s'il y a plus de personnes. Mais, elles sont toujours contigues et séparée par une ligne du reste du planning.

Je ne parviens pas à écrire cette macro.
Merci d'avance pour votre aide
Gérard

goldenboy · 12 Janvier 2014

Re : Supprimer 3 lignes Via VBA

Bonjour,

Si les lignes à supprimer sont toujours les dernières de la feuille et si la première colonne du tableau est bien en colonne A, ce code devrait convenir :

VB:

Dim DLigne, PLigne As Integer

DLigne = Sheets(1).Range("A1048576").End(xlUp).Row
PLigne = DLigne - 2

Sheets(1).Rows(PLigne & ":" & DLigne).Delete

Cordialement,

kjin · 12 Janvier 2014

Re : Supprimer 3 lignes Via VBA

Bonjour,

Code:

Cells(Application.Rows.Count, 1).End(xlUp)(-1).Resize(3, 1).EntireRow.Delete

kjin

gerard55 · 12 Janvier 2014

Re : Supprimer 3 lignes Via VBA

goldenboy à dit:
Bonjour,

Si les lignes à supprimer sont toujours les dernières de la feuille et si la première colonne du tableau est bien en colonne A, ce code devrait convenir :

VB:

Dim DLigne, PLigne As Integer DLigne = Sheets(1).Range("A1048576").End(xlUp).Row PLigne = DLigne - 2 Sheets(1).Rows(PLigne & ":" & DLigne).Delete

Cordialement,

Merci pour vos réponses. ça correspond à ce que j'attends et ça fonctionne bien
Gérard
a+

Supprimer 3 lignes Via VBA

gerard55

XLDnaute Occasionnel

Pièces jointes

goldenboy

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

gerard55

XLDnaute Occasionnel

Discussions similaires

Supprimer 3 lignes Via VBA

gerard55

XLDnaute Occasionnel

Pièces jointes

goldenboy

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

gerard55

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency