Extraite données d'une chaîne de caractère

[mortaurat]

Bonjour,
Une de mes cellules contient la chaine de caractère "01/07/11 11:04 CEST", et je souhaiterais ne stocker uniquement le "01/07" dans une variable, est ce possible ?

En fait il faudrait que je stock ma chaine dans un tableau et prendre uniquement les 5 premiers caractères.

Merci

 

[phlaurent55]

Re : Extraite données d'une chaîne de caractère

Bonjour Mortaurat,

as-tu essayé avec le formule:

=Gauche(ta_cellule;5)

à+
Philippe

 

[Robert]

Re : Extraite données d'une chaîne de caractère

Bonjour Mortaurat, Philippe, bonjour le forum,

ou en VBA :

a = Left(Range(Ta_cellule), 5)

 

[mortaurat]

Re : Extraite données d'une chaîne de caractère

Merci,
a = Left(Cells(4, 9), 5) fonctionne
Bon il m’interprète juste que c'est le 7 janvier, sauf que moi, je ne veux pas qu'il interprète... C'est possible ?

 

[mortaurat]

Re : Extraite données d'une chaîne de caractère

En fait c'est curieux, il récupère: 07/01/2011 (qu'il interprète comme 7 janvier 2011) alors que ma cellule contient 01/07/11 11:04 CEST

 

[mortaurat]

Re : Extraite données d'une chaîne de caractère

Si je fais a = Left(Cells(4, 9), 8) ça marche =)

 

[Pierrot93]

Re : Extraite données d'une chaîne de caractère

Bonjour à tous,

modifie le code de Robert comme suit :

a = Left(Range(Ta_cellule).Text, 5)

bon après midi
@+

 

[hoerwind]

Re : Extraite données d'une chaîne de caractère

Bonjour, salut phlaurent et Robert,

C'est normal, la date affichée n'est que le format d'une date, qui elle est une valeur numérique de 5 chiffres.
Exemple : 01/07/2011 est stocké comme 40725

Essaie : =GAUCHE(TEXTE(A1;"jj/mm/aa");5)

 

[mortaurat]

Re : Extraite données d'une chaîne de caractère

le code : a = Left(Range(Ta_cellule).Text, 5) me donne exactement le même résultat que a = Left(Cells(4, 9), 5).
Cependant avec a = Left(Cells(4, 9), 8), il prend bien toute la chaîne avec les années.
Je pense que je vais intégrer les années dans ma comparaison de date.

 

[Pierrot93]

Re : Extraite données d'une chaîne de caractère

Re,

pas ce souci chez moi (2003)

'en A1 : 01/07/2011
Dim a As String
a = Left(Range("A1").Text, 5)
'dans la variable j'ai bien : 01/07

 

[mortaurat]

Re : Extraite données d'une chaîne de caractère

J'ai le 2010, mais c'est peut être parce que j'ai le '.' en séparateur décimal (comme aux états unis).
En fait, même avec le a = Left(Cells(4, 9).text, 8), il me change les mois et les jours de place !

 

[Pierrot93]

Re : Extraite données d'une chaîne de caractère

Re,

perso aussi avec le même séparateur décimale, mais n'intervient pas dans les dates, enfin me semble t-il
essaye également comme suit :

Dim a As String
a = Format(Range("A1"), "dd/mm")

fonctionne aussi chez moi, à noter au départ la cellule est au format standard et prend ensuite un format date après saisie...

 

[mortaurat]

Re : Extraite données d'une chaîne de caractère

Bon en fait voila.
Comme tu l'as dit pierrot "la cellule est au format standard et prend ensuite un format date après saisie".
Lorsque je compare la variable a avec "01/07", ça fonctionne.
Or j'ai juste besoin de les comparer dans mon code VBA.

 

[Pierrot93]

Re : Extraite données d'une chaîne de caractère

Re,

Lorsque je compare la variable a avec "01/07", ça fonctionne.

c'est bon alors ??

Or j'ai juste besoin de les comparer dans mon code VBA.

peut être en dire plus....

 

[mortaurat]

Re : Extraite données d'une chaîne de caractère

En fait c'est un programme d'analyse des marchés boursiers, et je voulais voir si le dernier cours que je possédais était bien le dernier.

Oui c'est bon, ca fonctionne, merci.