Récupérer des infos d'une zone de texte

[Fab117]

Salut,

J'ai des cellules avec du texte du type : "Quantité consommée pendant heure 12 : 1532 l ".

Ce qui varie d'une cellule à l'autre est le chiffre après "heure" (il varie de 0 à 23) et le chiffre avant le symbole "l" (il varie de 0 à 99'999).

Je souhaiterais récupérer ces 2 informations dans 2 variables de ma macro "TrancheHoraire" et "QuantiteHoraireConsommee".

Quelqu'un pourrait-il m'aider ?

Merci.

Fab

 

[fanfan38]

Re : Récupérer des infos d'une zone de texte

Bonjour
avec la fonction stxt on devrait réussir: si texte en A1 =STXT(A1;34;2)
=STXT(A1;39;NBCAR(A1)-39-1)

A+ François

 

[pierrejean]

Re : Récupérer des infos d'une zone de texte

bonjour Fab

Vois si tu peux t'inspirer de ceci

Edit: désolé pour la collision François

 

[Fab117]

Re : Récupérer des infos d'une zone de texte

Merci beaucoup pour vos réponse.
J'ai choisi la méthodologie de PierreJean qui fonctionne parfaitement.

J'ai une autre difficulté très proche de celle-ci avec mes données brutes.

Dans une autre cellule, j'ai une date que je souhaite mettre dans la variable "DateConcernee ". Celle-ci peut-être de 2 formats différents :
ex : "01.05.2008" soit jj.mm.aaaa ou "01.05.2008 01:00:00" soit jj.mm.aaaa hh.mm.ss

Je pensais m'en tirer avec :

Dim DateConcernee As Date
DateConcernee = Range("A" & i)

Mais à priori, ça ne fonctionne pas, il garde jj.mm.aaaa hh.mm.ss. Comme après je l'envoie dans un autre onglet pour rechercher la date équivalente, ça ne fonctionne pas.

Fab

 

[Fab117]

Re : Récupérer des infos d'une zone de texte

En fait, il semble que ça fonctionne comme je l'ai décrit.

 

[Dull]

Re : Récupérer des infos d'une zone de texte

Salut Fab117, François, Pierrejean, le Forum

Sans être sûr

essaye

Dim DateConcernee As Date
DateConcernee = Format(Range("A" & i), "dd.mm.yyyy")

Bonne(Chance) Journée

 

[fanfan38]

Re : Récupérer des infos d'une zone de texte

Bonjour
Salut ter tous...(T'as pas à t'excuser Pierrejean)
pour la date:=cdate(Range("A" & i).value)


A+ François

 

[Fab117]

Re : Récupérer des infos d'une zone de texte

Merci

Fab