Mettre a jour les date

Bonsoir à tous,

J'espère que vous allez bien !

Je souhaite solliciter votre aide sur un sujet

voici mon problème :

Je souhaite mettre à jour les date Date de dernière intervention (ancienne valeur) de la colonne P de la Feuil2 des préventifs terminés ("T" dans la colonne D de la Feuil1)

sauf que les préventifs sont répétitifs, donc il faut prendre la dernière date de réalisation

Est-il possible ?

Mon classeur en pièce jointe

Merci d'avance

Salut Imad SIO,

par formule, je ne sais pas mais avec une fonction personnalisée...

=fctDate($L2)

Le code de la fonction se trouve dans le 'Module 1', à charge pour toi de rectifier le nom de 'Feuil1' dans le code.

Public Function fctDate(ByVal rCel As Range) As String
'
Dim iRow%
'
Application.Volatile
'
With Worksheets("Feuil1")
    On Error Resume Next
    iRow = .Columns("P").Find(what:=rCel.Value, lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlPrevious).Row
    fctDate = IIf(iRow > 0, .Range("Q" & iRow).Value, "")
    On Error GoTo 0
End With
'
End Function

A+

Salut Curulis,

ça fonctionne très bien,

mais je souhaite mettre à jour la date des préventifs terminés, c'est à dire les préventifs dont l'état dans la colonne D est 'T' dans la feuil1

et surtout prendre la dernière date de réalisation

Merci d'avance

Salut Imad,

pas de double post, stp, Imad !!

Public Function fctDate(ByVal rCel As Range) As String
'
Dim iRow%, iOK%
'
Application.Volatile
Application.ScreenUpdating = False
'
With Worksheets("Feuil1")
    For iRow = .Range("P" & Rows.Count).End(xlUp).Row To 2 Step -1
        If .Range("P" & iRow).Value = rCel.Value And .Range("D" & iRow).Value = "T" And .Range("Q" & iRow) <> "" Then _
            iOK = 1: _
            Exit For
    Next
    fctDate = IIf(iOK = 1, .Range("Q" & iRow).Value, "")
End With
'
Application.ScreenUpdating = True
'
End Function

A+

curulis 57,

je t'ai répondu dans l'autre poste

ça marche très bien

je te remercie *

passes une excellente journée

A+

encore merci

Re-bonjour Curulis57,

Une petite modification stp,

Je souhaite que cette macro s'exécute avec un bouton et pas après un changement.

est-il possible de m'ajuster cela ?