Derniere valeur non nulle dans une colonne

Bonjour a tous,

Je suis a la recherche d'une formule vba permettant de renvoyer a la dernière valeur non nulle d'une colonne. Je précise que je recherche une expression dynamique qui pourra fonctionner quelque soit le nombre de lignes dans la colonne.

Merci d'avance.Bonne journée.

Bonjour à tous !

Une proposition :

Merci pour ta réactivité.

Malheureusement la fonction ne me satisfait pas, je souhaiterais que la cellule c1 renvoi la valeur 8 contenue dans la cellulle a8 soit la derniere valeur non nulle de la colonne (différente de 0).

Bonjour Nils,JFL, le forum,

@JFL: ne serait-ce pas plutôt

=INDEX(A:A;MAX(SI(A:A<>0;LIGNE(A:A))))

Sub Macro1()
 With Sheets("Feuil1")
    .Range("C1").FormulaArray = "=INDEX(C[-2],MAX(IF(C[-2]<>0,ROW(C[-2]))))"
    MsgBox "Valeur dernière ligne non nulle :  " & Chr(10) & .Range("C1").Value
 End With
End Sub

Cordialement,

Bonjour,
Une autre formule.
Cdlt

=RECHERCHE(2;1/(A:A<>0);A:A)

Bonjour de nouveau !

J'allais proposer un correctif :

=INDEX(A:A;MAX(SI((A:A<>0)*(A:A<>"");LIGNE(A:A))))

Mais vos propositions me semblent plus optimales.

Bonjour a tous,

Tout d'abord je vous remercie de votre aide, la formulation "Range("C1").FormulaArray = "=INDEX(C[-1],MAX(IF(C[-1]<>0,ROW(C[-1]))))" fonctionne a merveille.

Maintenant serait il possible de récupérer les coordonnées de la cellule désignée par la fonction précédente?

Merci d'avance.

Cordialement.

up