Supprimer la derniere ligne sur plusieurs feuilles [Résolu]

[goby45]

Bonjour,

Je débute en progammation VBA et j'essai de programmer une interface qui me permettrais de saisir des informations dans 5 pages excel différentes, ligne par ligne.

Pour saisir pas de probleme, mais je voudrais créer un bouton me permettant d'effacer la derniere ligne de chacune de mes pages.

J'ai déjà programmé ceci mais je ne vois pas comment faire la suite :

Code :

1
2
3
4
5
6
7
8
9
Private Sub CommandButton6_Click()
Dim DernierLigne As Long
 
   Range("A1").Select
     DernierLigne = Selection.End(xlDown).Row
 
   Call Range("A" & DernierLigne).EntireRow.Delete(xlUp)
 
End Sub

Merci d'avance

[Fvandermeulen]

Salut Goby45 et Bienvenue,

Tu n'es pas loin d'une solution, toutefois, évite les select qui ralentissent le code et qui sont la plupart du temps inutiles.

Ensuite, pour trouver la dernière ligne il vaut mieux commencer par le bas, au cas ou il y aurait une ligne vide dans ton tableau, même si ça ne devrait pas arriver chez toi.

Il te manque aussi la boucle qui va balayer toutes tes feuilles.

Et pour finir, une précision à apporter, tu veux supprimer la ligne ou l'effacer?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub SuppDerLigne()
 
Dim Ws As Worksheet
Dim derLig As Long
 
For Each Ws In ThisWorkbook.Worksheets 'Boucle sur toutes les feuilles
    derLig = Ws.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row 'Détermine la dernière cellule remplie de la colonne A
    Ws.Rows(derLig).Clear 'Efface les données de la dernière ligne, pour supprimer, remplace .clean par .delete
 
    'On peut aussi le faire en une ligne: Ws.Rows(Ws.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row).Clear
Next Ws
End Sub

A+

[Benjîle]

Dans ta procédure Command_Click

Code :

1
2
3
4
5
6
Dim tabl() As Variant, elt as Variant
tabl = Array("Feuil1", "Feuil2")
For Each elt In tabl
    Worksheets(elt).Cells(1).CurrentRegion.Rows( _
        Worksheets(elt).Cells(1).CurrentRegion.Rows.Count).Delete (xlUp)
Next elt

[goby45]

Je voulais effacer !
Merci beaucoup cela résout mon problème