suppression dernière ligne non vide

[Ophé]

Bonjour le forum,

beaucoup de discussions sont déjà ouvertes à ce sujet, mais étant débutantes malgré les tests, je ne trouve pas de réponses.

Je voudrais arrivée à la dernière ligne non vide de mon tableau et la supprimer.

Merci d'avance de votre aide.

Ophé

 

[Dull]

Re : suppression dernière ligne non vide

Salut le Fil

Un peu radical, Dull !

Arfff... il était midi... j'avais faim... Brefjerecommenceraisplus...promis 😱

Bonne Journée

 

[bpol]

Re : suppression dernière ligne non vide

bonsoir le forum,
je me suis permis de reprendre la solution de hellowa
mais comment puis ajouter une 2e feuille à sélectionner pour effacer également la dernière ligne

Dim Lastlig As Long
Lastlig = 1
For i = 1 To 256
If Sheets("récap").Cells(65500, i).End(xlUp).Row > Lastlig Then
Lastlig = Sheets("récap").Cells(6500, i).End(xlUp).Row
End If
Next i

Sheets("récap").Rows(Lastlig & ":" & Lastlig).EntireRow.Delete Shift:=xlUp

et ajouter un MsgBox pour confirmation
MsgBox ("Voulez-vous vraiment effacer les données ?", vbYesNo)

Merci
BPOL

PAS BESOIN DE ME REPONDRE
avec un peu de patience suis parvenu à trouver la solution.

 

[13GIBE59]

Re : suppression dernière ligne non vide

Bonjour tout le monde.

Ophee, au lieu de :

Range("S6").Select
Selection.AutoFill Destination:=Range("S6:S1785")

Essaie plutôt :

Range("S6").Select
Selection.AutoFill Destination:=Range([S6], [COLOR=black][S65536].End(xlUp))[/COLOR]

 

[bpol]

Re : suppression dernière ligne non vide

re le forum,
pour le MsgBox

j'ai réussi à le faire cela fonctionne il me reste qu'à pouvoir ajouter une é2e feuille pour la même opération


Merci

bpol