problème avec les dates (encore)

[totty]

Re bonjour tout le monde

J'ai un fichier .xls de données importées en texte.
En colonne A j'ai les données de période du type "200408" pour août 2004.
Je voudrai utiliser ces données pour obtenir le nombre de jours du mois correspondant à la période (août dans l'exemple).
Ce nombre de jours me servant dans une formule de calcul par ailleurs.

Avez vous une idée en VBA?

Merci pour tout

 

[andré]

Salut,

S'il n'y a pas de solution en VBA, en voici une par formule :

La valeur en A1.
=FIN.MOIS(CNUM("1."&DROITE($A$1;2)&"."&GAUCHE($A$1;4));0)-CNUM("1."&DROITE($A$1;2)&"."&GAUCHE($A$1;4))+1

Ândré.

 

[max]

Hello
Question, pourquoi tu n'importes pas ton fichier texte avec des format de date (lors de l'étape assiatance d'imporation)? Ou alors tu fais une colonne B qui reprend A, avec une formule du genre :

=CONCATENATE((RIGHT(A1;2));".";LEFT((RIGHT(A1;4));"2");".";LEFT(A1;4))

avec une macro qui fait un copier / coller spécial en valeur dans colonne C

A+

 

[totty]

Merci à vous deux

je vais essayer et je reviens vers vous.

a vue d'oeil la formule devrait marcher

 

[totty]

je suis pas très fortiche en vba et quand j'utilise la formule avec concatenate j'ai une erreur (sub non définie)
que faire?
merci

 

[totty]

Voilà ce que j'ai fini par faire, ça marche qu'en pensez-vous? Y a t il des améliorations possibles à votre avis?

Sub miseenformedate()

Sheets("nom").Select
Dim n As Long
n = Cells.SpecialCells(xlCellTypeLastCell).Row
Dim date1
For i = 2 To n
date1 = Cells(i, "a")
mois = Mid(date1, 5, 2)
année = Left(date1, 4)
' transpose en colonne "AC"
Cells(i, "AC") = mois & "/" & année
Next i

End Sub

A plus