Format fraction transforme en date

croco40 · 30 Août 2010

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 · 30 Août 2010

Re : Format fraction transforme en date

Bonjour,

Essaie ainsi :

Code:

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

Bonne journée

croco40 · 30 Août 2010

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 · 30 Août 2010

Re : Format fraction transforme en date

Bonjour Croco

Salut bhbh

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

Code:

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 · 31 Août 2010

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

Format fraction transforme en date

croco40

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

croco40

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

croco40

XLDnaute Occasionnel

Discussions similaires

Format fraction transforme en date

croco40

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

croco40

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

croco40

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency