obtenir référence dernière cellule d'une liste

  • Auteur de la discussion Stick
  • Date de début
S

Stick

Guest
Bonjour le Forum

question en apparence simple mais que je n'arrive pas à résoudre...

j'ai une base de données dans une feuille excel. la taille de cette base est variable. quelles est la formule / ou le code vba pour obtenir d'excel le numéro de ligne de la dernière ligne remplie? (par exemple en testant sur la première cellule vide de la colonne A)

ce dans le but d'alimenter automatiquement ma base en connaissant la 1ere ligne vide disponible

merci d'avance pour vos lumières

et bonne fête du travail!!!
 
T

Tintin

Guest
Salut Stick,

je pense que ceci devrait pouvoir t'aider :

Sub Chercheptetitchien()

Dim a As Integer
Dim Msg As String


Recommence:

If Not IsEmpty(Range('A1').Offset(a, 0)) Then

a = a + 1

GoTo Recommence

Else

a = a + 1

MsgBox ('La cellule A ' & a & ' est vide')

End If

End Sub

Bonne soirée
 
T

Tintin

Guest
Irf Irf Irf

Je suis un programmateur du dimanche moi, je m'incline :)

Y a rien a faire, y a personne a part moi qui aime les Goto

C'est vrai que ca brouillionne grave les prog mais bon pour des si pti programme :) sinon ils se sentent mal aimé

@+
 

Brigitte

XLDnaute Barbatruc
Bonsoir,


Tout plein de formules par MONIQUE, imbattable, et aussi TIBO qui les a complétées par une de sa composition.

Ca c'est Tibo

=MAX(SI(ESTNA(EQUIV(9^9;A:A));'';EQUIV(9^9;A:A));SI(ESTNA(EQUIV('zz';A:A));'';EQUIV('zz';A:A)))

Ca c'est Monique

=MAX(SI(NON(ESTVIDE(A3:A100));LIGNE(A3:A100)))

Toutes deux MATRICIELLES, à valider par Ctrl/Maj/Entrée. [file name=stick.zip size=9215]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/stick.zip[/file]
 

Fichiers joints

S

stick

Guest
merci à vous tous, c'est très aimable!!!!
bonne soirée

Stick :)
 

Haut Bas