Sujet Précédent Sujet Suivant

Code VBA pour aller sur dernière cellule avec caractères

Fermé
gexelpa - 11 déc. 2013 à 07:27
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 11 déc. 2013 à 08:06
Bonjour,

Je souhaiterais mettre en place, un code VBA qui permettrait d'aller sur la dernière ligne dans laquelle se trouve des caractères (cellule avec chiffres et/ou lettres).

Une fois que le code a sélectionné cette dernière ligne, y'a t-il moyen de séléctionner par un autre code toutes les lignes qui suivent et de faire une suppression de ces lignes ?

(en effet, j'ai des formules sur toute la feuille et pour que le fichier ne soit pas trop lourd, je souhaite supprimer les lignes inutiles)

Merci d'avance !

A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 307
Modifié par michel_m le 11/12/2013 à 08:13
Bonjour

essaies 
Option Explicit

Sub supprimer_en_dessous()
Dim Constant As Range, Lig As Integer, Fin As Integer

'sélectionne la zone comportant des saisies (caractères ou chiffres)
Set Constant = Cells.SpecialCells(xlCellTypeConstants, 23)
     '1° ligne sous la zone
    Lig = Constant.Find("*", , , , , xlPrevious).Row + 1
    'Dernière ligne  occupée dans la feuille( non caractères ou chiffres)
    Fin = Cells.Find("*", , , , , xlPrevious).Row
    'desruction des lignes "Lig " à "Fin"
    Rows(Lig & ":" & Fin).Delete
End Sub

Michel
0

Discussions similaires

Codes bateaux et avion GTA vice city Stories
matt3610 -
Diglo -

30 réponses