Format fraction transforme en date

[croco40]

Bonjour à tout le forum,
J'ai un petit probleme en VBA.
J'importe une base de données et dans la 1 ere colonne, j"ai par exemple la valeur : 13/1.
Forcement excel me le transforme en 13-janv, or je dois conserver le format 13/1.

J'ai essayé de mettre le format de cellule en texte, et il me renvoie le n° de serie de la date, alors j'ai essayé :

cells(i,1).value = format(variable,"##/1")
sans succes,
alors j'ai essayé

cells(i,1).value = format(variable,"##" & "/1")
pareil.
Avez-vous une idée ?
Par avance merci
Suerte
Croco

 

[Cousinhub]

Re : Format fraction transforme en date

Bonjour,

Essaie ainsi :

Sub Macro1()
Variable = "13/1"
Cells(1, 2) = Format(Variable, "@")
End Sub

Bonne journée

 

[croco40]

Re : Format fraction transforme en date

Ok merci bhbh,
je vais essayer mais ce n'est pas dans le meme bureau et je dois me deconnecter
Suerte
Croco

 

[pierrejean]

Re : Format fraction transforme en date

Bonjour Croco

Salut bhbh

A tester colonne A si toutes les valeurs sont du même type

Sub essai()
For n = 1 To Range("A65536").end(xlup).row
Cells(n, 1).NumberFormat = "@"
Cells(n, 1) = Day(Cells(n, 1)) & "/" & Month(Cells(n, 1))
Next n
End Sub

 

[croco40]

Re : Format fraction transforme en date

Salut pierrejean et le forum,
merci pierrejean, c'est tout a fait ce que je voulais.
Les valeurs ne sont pas du meme type, mais ca j'avais trouvé.
Merci, et a bientot
Suerte
Croco