extraction de caractere

[vermine]

bonjour à vous tous

ds une cellule j'ai des horaires avec des lettres de renvoi
ex 17:50y

j'aimerai recuperer ds une variable que le 17:50 sans pour autant toucher a ma cellule d'origine

si vous voulez bien m'aider, ce serait super

merci d'avance

vermine

 

[C@thy]

bonjour vermine,

par exemple : =GAUCHE(A1;5)*1

(le multiplié par 1 sert juste à transformer en numérique, tu peux t'en passer
si tu as déjà un format numérique dans la cellule où est cette formule)

C@thy

 

[vermine]

bonjour cathy

j'ai essayé cela marche mais j'aimerai en fait le recupere ds une variable
par macro et sans toucher a la valeur ds mon tableau

merci de ton aide

vermine

 

[CBernardT]

bonjour Vermine et Cathy

Essayes cette macro :

Sub TraducDate()
Dim D As String
D = CDate(Left(Range("A1"), 5))
Range("B1") = D
Range("B1").NumberFormat = "hh:mm"
End Sub

Cordialement

CBernardT

 

[vermine]

bonjour CBernardT

j'ai essayer mais j'ai un message ""incompatibilité de type ""

mais cellule son dans un format texte
6:39y


merci beaucoup

vermine

 

[vermine]

rebonjour CBernardT

excuse moi mais je me suis planté

j'ai fait un essaye sur une cellule du type ci dessous

6:39y


merci beaucoup

vermine

 

[C@thy]

normal, il y a extraction de 5 caractères et tu n'en donnes que 4, tu dois mettre un zéro devant : 06:63y

C@thy

 

[C@thy]

vermine, tu as fait un 2ème fil mais je réponds aux 2 sur celui-là, sinon on s'y perd
essaye :

Sub ExtracHeure()
Dim D As String
Dim L As Integer

L = Len(Range("A1"))
D = CDate(Left(Range("A1"), L - 1))
Range("B1") = D
Range("B1").NumberFormat = "hh:mm"
End Sub

C@thy