extraction conversion de variable

[cibleo]

Bonjour à tous,

DebJournee1 est une variable de type string disposée sur plusieurs lignes.
Seule la 1ère ligne m'intéresse.

07:15 Poilly sur Marne
Mme Dubois
scanner
08:20 CH Boulogne

J'aimerais récupérer les 5 premiers caractères de la variable DebJournee1 et les convertir en format Horaire.
Que dois-je combiner avec Left à l'affectation ci-dessous : Timevalue Ou Cstr ?

HoraireDep = Left(DebJournee1, 5)

J'aimerais aussi affecter une autre variable (string) avec le lieu qui figure juste après l'horaire surligné en rouge.
Problème : je n'en connais ni la longueur de caractères, ni le nombre d'occurences : ici 3 ----> Poilly sur Marne
Précision : Le lieu marquera toujours la fin de la 1ère ligne après l'horaire de départ.

Il y aura donc toujours un retour à la ligne suivante.

07:15 Versailles
Mme Dubois
scanner
08:20 CH Boulogne

Dans le 1er cas, LieuDep = Poilly sur Marne
Dans le second cas, LieuDep = Versailles

Comment affecter la variable LieuDep à partir de la variable DebJournee1 ?
Faut-il utiliser split, pouvez vous m'aider ?

Cibleo

 

[Pierrot93]

Re : extraction conversion de variable

Bonjour Cibleo

peut être un début de piste comme ceci :

Dim DebJournee1 As String, HoraireDep As Date
DebJournee1 = "07:15 Poilly sur Marne"
HoraireDep = CDate(Left(DebJournee1, 5))

bon après midi
@+

 

[kjin]

Re : extraction conversion de variable

Bojour,
La fonction split ne convient que si le nom de la ville ne contient pas d'espace
Si le texte est en A1

HoraireDep = CDate(Left(Range("A1"), 5))
x = InStr(1, Range("A1"), Chr(10))
LieuDep = Mid(Range("A1"), 7, x - 7)

Edit : salut Pierrot !
A+
kjin

 

[cibleo]

Re : extraction conversion de variable

Bonjour Pierrot, Kjin

Ok, c'est tout bon.

Pour effectuer un calcul, il faut que je définisse la variable comme cela :

HoraireDep = CDate(Left(DebJournee1, 5))

Ci-dessous, la variable est de type string, donc ne convient pas dans mon cas.

HoraireDep = Format(CDate(Left(DebJournee1, 5)), "hh:mm")

Pour un horaire, le Cdate a semé un peu la confusion chez moi 🙄

Pour le reste c'est OK aussi.

Merci à tous les deux.

A bientôt Cibleo