recherche de la dernière date

Question

Bonjour,


s.v.p il y a qlq qui peux m'aider!


J'explique mon problème :

j'ai plusieurs tableaux excel que j'ai fait, et je veux que ce programme cherche uniquement la dernière date saisie dans la colonne par exemple ".X."


sans prendre les valeur qu'il peut trouver dans sont chemin de
recherche, je veux dire:
 "que les valeurs qui on la forme d'une date 
j/m/a".

voilà le code sous excel " mais sont problème il me prend la 1er valeur qu'il rencontre sur son chemin de recherche même si ce n'est pas une date !!!??:"
**********************************************************
Private Sub CommandButton1_Click()

Dim date_p As Range
Set date_p = Range("B65536").End(xlUp)
If IsDate(date_p.Value) Then
MsgBox "Adresse de la cellule: " & _
date_p.Address(0, 0) & _
Chr(13) & "Valeur :" & date_p
End If
End Sub
*************************************************************

merci de votre aide

svp
Amicalement

Renfield · Answer

comment cela pourrait-il continuer au delà de la premiere cellule rencontrée: tu n'a pas codé de boucle...


Sub test()
Dim oRange As Range
    Set oRange = Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, 2)
    Do Until IsDate(oRange.Value) Or oRange.Row = 1
        Set oRange = oRange.Offset(-1)
    Loop
    If IsDate(oRange.Value) Then
        MsgBox oRange.Value
    End If
End Sub

on récupère la dernière cellule de la deuxième colonne.
et on prend celle qui se trouve au dessus, encore et encore jusqu'a trouver une date.

douaa2004 · Answer

Merci infiniment [auteur/RENFIELD/2359.aspx Renfield ] peux-tu m'explique s.t.p ces instructions, et me donnée un site ou je peux trouver les instructions avec leur explication, Je te serais reconnaissante.

Cells(Cells.peLastCell)

Do Until IsDate(oRange.Value) Or oRange.Row = 1 Set oRange = oRange.Offset(-1) Loop

Amicalement

douaa2004 · Answer

Bonjour, 

s.v.p la modification  que m'a donnée [auteur/RENFIELD/2359.aspx Renfield],  marche bien mais quand je lui demande de me chercher la date dans une autre feuille et dans la colonne "h" il ce plante?!

Private Sub CommandButton2_Click()
Dim oRange As Range
Dim v As Integer

Sheets("feuil3").Select

    Set oRange =  Cells(Cells.SpecialCells(xlCellTypeLastCell).Row,  8 
)
    Do Until IsDate(oRange.Value) Or oRange.Row  = 1
        Set oRange = oRange.Offset(-1)
    Loop
    If IsDate(oRange.Value) Then
        
        v = oRange.Row
        MsgBox oRange.Row
        
    End If

End Sub

merci de votre aide

Amicalement

Renfield · Answer

j'aime pas cette impression qu'on les VBA-istes qu'il faut forcément faire des .Activate et .Select pour avancer.

ca ralentit tout, point barre.


Set oRange = Sheets("feuil3").Cells( Sheets("feuil3").Cells.SpecialCells(xlCellTypeLastCell).Row, 8 )

douaa2004 · Answer

Je ne suis pas encos une vrais VBA-iste, enfin c'est mon grand souhait, j'apprend petit à petit 

Grand merci pour la réponse si rapide !

Amicalement

Recherche de la dernière date

5 réponses

Votre réponse

Discussions similaires