Recherche de l'heure dans une cellule (12:12:12)

Bonjour bonjour,

Avant tout, bonnes fêtes à tous !

Je voulais vous demander un petit coup de pouce, voila, je cherche à retirer les heures dans des cellules de texte, elle se présente toujours de la même façon, c'est-à-dire : HH:MM:SS, mais l'heure peut apparaître plusieurs fois dans la cellule, le problème, c'est que, parfois, j'ai un ":" qui, hélas, ne fait pas bien fonctionner mon code :

Je tente de dire : Si ma cellule est du type "HH:MM:SS", mais ca ne fonctionne pas... Voila un exemple et encore merci d'avance pour votre aide.

If TextBox1 Like "*:*:*" Then ' <- le fameux ? pour une seul caractere ne marche pas, idealement je voulais dire "??:??:??"

For I = 1 To 3 '(3 au as ou) je peux avoir jusqu'a trois fois l'heure

X = InStr(TextBox1, ":")

Y = InStr(Right(TextBox1, Len(TextBox1) - X), ":")

If X <> 0 And Y <> 0 And Y = 3 Then

Heure1 = X - 2

Heure2 = X + Y + 2

MonHeure = Mid(TextBox1, Heure1, Heure2 - Heure1 + 1)

TextBox1 = Replace(TextBox1, MonHeure, "")

TextBox1 = Trim(TextBox1)

X = 0

Y = 0

End If

Next I

End If

Ne vous embetez pas je viens de trouver une solution !

Je vous mets le code si ca peut aider...

If TextBox1 Like "*:*:*" Then

For I = 1 To 3 '(3 au as ou)

X = InStr(TextBox1, ":")

MyHTest = IsNumeric(Mid(TextBox1, X - 1, 1))

If MyHTest = False Then

X = InStr(X + 1, TextBox1, ":")

End If

Y = InStr(Right(TextBox1, Len(TextBox1) - X), ":")

If X <> 0 And Y <> 0 And Y = 3 Then

'TextBox01 = Right(TextBox01, Len(TextBox01) - 8)

Heure1 = X - 2

Heure2 = X + Y + 2

MonHeure = Mid(TextBox1, Heure1, Heure2 - Heure1 + 1)

TextBox1 = Replace(TextBox1, MonHeure, "")

TextBox1 = Trim(TextBox1)

'!!! On recupere cette Heure du Chat, a faire apparaitre en colonne B (Heure Chat)

X = 0

Y = 0

End If

Next I

End If