Extraire un horaire d'un commentaire

[ascal44]

Bonjour , je voudrais pouvoir extraire la dernière heure de rentrée inscrite dans un commentaire et la coller dans une cellule. Est ce possible ?

Ci joint un classeur exemple


Merci pour votre aide

 

[Dranreb]

Re : Extraire un horaire d'un commentaire

Bonjour.
Avec une fonction un peu dans le style de vos autres, après avoir rectifié le " à " en ": " dans le commentaire (soyons sérieux, que ce soit écrit partout pareil).

Function DernRentre(sVal As String) As Date
  Dim Rng As Range, CelF As Range, Spl() As String
  Set Rng = Range("C:C,H:H,M:M,R:R")
  Application.Volatile
  Set CelF = Rng.Find(What:=sVal, LookIn:=xlValues, LookAt:=xlWhole, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
  ' si une valeur est trouvée
  If Not CelF Is Nothing Then
    Spl = Split(CelF.Offset(0, -1).Comment.Text, "Rentre: ")
    DernRentre = CVDate(Left$(Spl(UBound(Spl)), 5))
  End If
End Function

Le Application.Volatile pourrait avoir son utilité dans ce cas, parce que la fonction ne serait pas évaluée si le commentaire changeait.

P.S. Une astuce en prime: si un nom de fonction perso a été tapée dans une formule avec une mauvaise casse, créez un nom identique dans le classeur à la bonne casse près, puis supprimez le aussitôt !
À +

 

[ascal44]

Re : Extraire un horaire d'un commentaire

Merci Dranreb , je n'avais pas fait attention à " à " à mettre en ": ".
Pourriez vous commenter le code afin que je puisse comprendre un peu ?

 

[Dranreb]

Re : Extraire un horaire d'un commentaire

     Spl = Split(CelF.Offset(0, -1).Comment.Text, "Rentre: ") ' Eclate en tableau de String le texte du commentaire en prenant "Rentre: " comme chaine séparatrice
    DernRentre = CVDate(Left$(Spl(UBound(Spl)), 5)) ' Renvoie la conversion en un temps des 5 1ers caractères du dernier élément du tableau

Le reste a été pompé d'une de vos autres fonction et fonctionne pareil.
À +