Rechercher où se situe la dernière cellule renseignée

Bonjour le forum,

J'aurais une nouvelle fois besoin de vos lumières, voici mon petit problème :

J'ai dans une colonne (la A par exemple) des nombres, et je veux savoir où se trouve la dernière cellule renseignée par exemple A10.

La réponse devra être A10 et non le nombre à l'intérieur de celle-ci

Est-ce possible ?

D'avance merci pour vos réponses

Salut

MsgBox Range("A65536").End(xlUp).Address '=> Affiche la deniere ligne utilisé dans la colonne A : $A$10

Ca te vas ?

damien

Bonjour Bigdams,

Merci beaucoup pour ta réponse, mais peut-on mettre le résultat dans une cellule au lieu d'un msgbox ?

Re,

Oui ,

Si tu veux la mettre dans la cellule B12 (au hazard)

Cela te fait en VBA

range("B12).value = Range("A65536").End(xlUp).Address

A moins que tu souhaites avoir une fonction personnalisé ?

Damien

Re,

Je te remercie beaucoup pour ton aide. Une fonction personnalisée oui pourquoi pas mais il ne faut pas que cela te dérange... tu m'as déjà super bien dépanné.

Re,

A copier dans un module:

Function retournedernierevaleur(colonne As Range) As String
Dim c As Range
Application.Volatile True
If colonne.Columns.Count > 1 Then
    retournedernierevaleur = "ERREUR"
End If
Set c = Intersect(Rows("65536:65536"), colonne)
retournedernierevaleur = c.End(xlUp).Address
End Function

Appel la fonction comme suit depuis une cellule

=retournedernierevaleur(C:C) =Selectionne une colonne.

Damien

Bonjour Bigdams,

Un grand grand merci pour la fonction c'est vraiment sympa.

Bonne journée