récuperer l'heure de Départ à partir d'une cellule

[dindin]

Bonjour à tous
j'ai récupéré une fuction il y a quelques mois du site . elle fonctionne trés bien .
Par contre je reviens vers vous aujourd'hui pour ameliorer encore mon tableau.
la fucntion qui récuoere le N° de BOn est la suivante:

Function BON(t As String) As Variant
Dim p As Integer
t = Application.Trim(LCase(Replace(t, ":", ""))) 'SUPPRESPACE
p = InStr(t, "bon n°")
If p = 0 Then BON = "": Exit Function
BON = Val(Mid(t, p + 7))
End Function
je voulu faire une autre fuction pour récupérer l'heure de départ d'une cellule :
dans une cellule on trouve un texte et depuis ce texte il faut que je récupère l'heure de départ :

A 19h18, Appel de l'intervenant : HA 19h16 ; HD 19h20 ; Bon N° 4642 . Ronde Int / Ext, Contrôle des accés, aucune anomalie constatée.
j'arrive à récuperer le n° de Bon mais pas le HA .
pouvez vous m'aider SVP.
Merci d'avance .

 

[job75]

Re : récuperer l'heure de Départ à partir d'une cellule

Bonjour dindin,

Function HA(t As String) As Variant
Dim p As Integer, x As String
HA = ""
t = Application.Trim(LCase(Replace(t, ":", ""))) 'SUPPRESPACE
p = InStr(t, "ha")
If p = 0 Then Exit Function
For p = p + 2 To Len(t)
  x = Mid(t, p, 1)
  If Not IsNumeric(x) And x <> "h" And x <> " " Then Exit Function
  HA = HA & Trim(x)
Next
End Function

On peut faire une fonction HD sur le même modèle.

A+

 

[dindin]

Re : récuperer l'heure de Départ à partir d'une cellule

Un tres grand mervi a toi job75