se positionner sur la dernière valeur numérique ?

[soif77]

Bonjour le forum,

connaissez vous une macro me permettant de me positionner sur la derniere cellule numerique (en fait >0) de telle colonne, sur une feuille ?

j espere etre clair... merci beaucoup en tout cas !

francois

 

[Papou-net]

Re : se positionner sur la dernière valeur numérique ?

Bonjour soif77,

Voici une petite macro qui répond à ta demande.

Sub ValNum()
For lg = Sheets("Feuil1").Range("A65536").End(xlUp).Row To 1 Step -1
  If Val(Cells(lg, 1)) > 0 Then
    Cells(lg, 1).Select
    Exit Sub
  End If
Next
End Sub

La colonne analysée dans cet exemple est la colonne A.

Espérant avoir répondu.

Cordialement.

 

[soif77]

Re : se positionner sur la dernière valeur numérique ?

bonsoir,

merci papou-net ca marche super ! c est exactement ce que je voulais, encore merci !

 

[soif77]

Re : se positionner sur la dernière valeur numérique ?

bonsoir papou-net,

ca marche super merci beaucoup de ton aide !!!

 

[soif77]

Re : se positionner sur la dernière valeur numérique ?

un seul aurait suffit mais je pensais que cela n avait pas marché lol ! a+