Dernière cellule <>0 dans une colonne.

[Claudy]

Bonjour,
Comment trouver la valeur de la dernière cellule <> 0 dans une colonne en sachant que cette colonne est composée de formules, donc Range("A:A").end(xldown).value ne convient pas.
Merci d'avance, Claudy

 

[Tibo]

Re : Dernière cellule <>0 dans une colonne.

Bonjour,

En attendant le passage des Vbaïstes, une solution formule :

=INDEX($A$1:$A$100;MAX(($A$1:$A$100<>0)*LIGNE($A$1:$A$100)))

Formule matricielle à valider par CTRL + MAJ + ENTREE

Plage de cellules à adapter

Bon WE

@+

 

[Raja]

Re : Dernière cellule <>0 dans une colonne.

Bonjour, Salut Tibo,

A essayer aussi :

=RECHERCHE(9^9;A:A)

 

[Tibo]

Re : Dernière cellule <>0 dans une colonne.

Salut Raja,

J'avais bien pensé à cette formule, mais le souci, c'est qu'elle renvoie 0 si la dernière valeur numérique est 0, ce que ne souhaite pas notre ami.

Bon WE

@+

 

[Claudy]

Re : Dernière cellule <>0 dans une colonne.

=INDEX($A$1:$A$100;MAX(($A$1:$A$100<>0)*LIGNE($A$1:$A$100)))

Formule matricielle à valider par CTRL + MAJ + ENTREE

Ok merci , je ne ferai pas le difficille, cette formule me convient parfaitement ,,
Bon WE,
Claudy

 

[Raja]

Re : Dernière cellule <>0 dans une colonne.

Re Tibo,

C'est vrai. Alors la solution est qu'il suffit de ramener "" au lieu de 0 dans la colonne de recherche, si on veux utiliser cette formule bien sûr.

 

[Staple1600]

Re : Dernière cellule <>0 dans une colonne.

Bonjour à tous


Une proposition VBA

Sub test()
Dim C As Range
Dim Plg As Range
Dim Lgn As Long
Set Plg = ActiveSheet.Range("A1:A" & [A65536].End(xlUp).Row)
For Each C In Plg
       If IsNumeric(C) Then
           If C <> 0 Then
               Lgn = C.Row
           End If
       End If
   Next
   MsgBox "Valeur:" & Cells(Lgn, 1) _
   & Chr(13) & "Adresse: " & Cells(Lgn, 1).Address(0, 0)
End Sub

 

[job75]

Re : Dernière cellule <>0 dans une colonne.

Bonjour à tous,

Salut Staple, si des valeurs non numériques sont aussi recherchées, plutôt que If IsNumeric(C) Then, écrire If Not IsError(C) Then

A+

 

[Staple1600]

Re : Dernière cellule <>0 dans une colonne.

Bonjour job75


Merci pour la rectification


Mais comme Claudy a finalement opté pour la formule

J'en resterai là.

Bonne journée.

 

[Monique]

Re : Dernière cellule <>0 dans une colonne.

Bonjour,

Avec Recherche() et un critère A1:A100<>0
Formule matricielle, à valider par ctrl, maj et entrée

=RECHERCHE(9^9;SI(A1:A100<>0;A1:A100))