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

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.

Merci infiniment Renfield   ça marche ...!!

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.SpecialCells(xlCellTypeLastCell)

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

Amicalement

Bonjour,

s.v.p la modification  que m'a donnée 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

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 )

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