problème avec les dates (encore)

A

andré

Guest

• 9 Décembre 2004

• #2

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é.

 

Vote positif 0 Vote négatif

M

max

Guest

• 9 Décembre 2004

• #3

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+

 

Vote positif 0 Vote négatif

T

totty

Guest

• 9 Décembre 2004

• #4

Merci à vous deux

je vais essayer et je reviens vers vous.

a vue d'oeil la formule devrait marcher

 

Vote positif 0 Vote négatif

T

totty

Guest

• 9 Décembre 2004

• #5

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

 

Vote positif 0 Vote négatif

T

totty

Guest

• 9 Décembre 2004

• #6

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

 

Vote positif 0 Vote négatif