extraction conversion de variable

cibleo · 23 Avril 2010

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 · 23 Avril 2010

Re : extraction conversion de variable

Bonjour Cibleo

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

Code:

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

bon après midi
@+

kjin · 23 Avril 2010

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

Code:

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 · 23 Avril 2010

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

extraction conversion de variable

cibleo

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

cibleo

XLDnaute Impliqué

Discussions similaires

extraction conversion de variable

cibleo

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

cibleo

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency