effacer les deux dernière lignes d'une feuille excelRésolu

Question

Bonjour, sur une feuille excel, j'enregistre des données ligne par ligne, et j'aimerais créer une fonction qui efaace les deux dernière ligne du tableau (attention les deux dernière lignes ne sont pas les mêmes, ca peut être 7-8 ou 102-103 etc...)
Faire un truc du genre rèpère l'indice de la première ligne vide et efface les deux précédente ou repère l'indice de la  dernière ligne non vide et efface celle-ci et celle avant.

Voilà si quelqu'un a une idée et peut m'aider 

Merci d'avance
@+
Je viens de découvrir le bonheur de programmer et le VB me le rend bien

jrivet · Accepted Answer

Salut,
Regarde ceci.

Dim DernierLigne As Long
   'Selectionne A1
   Range("A1").Select
   'Utilise Selection.End pour trouver la derniere ligne écrite
   DernierLigne = Selection.End(xlDown).Row
   'Efface les deux lignes souhaitées
   Call Range("A" & DernierLigne - 1 & ":A" & DernierLigne).EntireRow.Delete(xlUp), ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

taj88 · Answer

Merci beaucoup, c'est exactement se que je voulais

Je viens de découvrir le bonheur de programmer et le VB me le rend bien

Effacer les deux dernière lignes d'une feuille excel

2 réponses

Votre réponse

Discussions similaires