Numero derniere ligne d'une feuille [Résolu/Fermé]

Signaler
Messages postés
9583
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
30 octobre 2020
-
Messages postés
9583
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
30 octobre 2020
-
Bonjour,
instruction VBA pour derniere ligne renseignée d'une feuille
merci



2 réponses

Messages postés
579
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
11 novembre 2018
289
Bonjour,

Avec ce code, tu as la dernière ligne, ainsi que la dernière colonne...

Dim DerCell As Range
Dim DerLig As Long, DerCol As Long
Set DerCell = Cells.Find("*", , , , xlByRows, xlPrevious)
DerLig = DerCell.Row
DerCol = DerCell.Column


Bonne journée (et la prochaine fois, sois un peu plus "causant", dans tes questions....)
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
9583
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
30 octobre 2020
1 929
merci pour rapidité de la réponse
ccm81
Messages postés
579
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
11 novembre 2018
289
Re-,

Une petite erreur dans le code....

Tu n'obtiens que la dernière ligne, par ce code...
pour la dernière colonne il faut rajouter :

Dim DerCell As Range
Dim DerLig As Long, DerCol As Long
Set DerCell = Cells.Find("*", , , , xlByRows, xlPrevious)
DerLig = DerCell.Row
Set DerCell = Cells.Find("*", , , , xlByColumns, xlPrevious)
DerCol = DerCell.Column


Désolé....
Messages postés
9583
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
30 octobre 2020
1 929
merci pour le SAV
j'avais tenté le problème de bc56 'repartir une liste de noms'

ccm81