Discussion :

[Jojo31]

Bonjour,

Je copie des dates au format « 01-avr » dans un fichier excel et colle dans un autre fichier excel ces dates.
Je désire obtenir ces dates au format : « 01/04/2008 »
Je défini donc pour ces cellules un format de cellule Date Type : *14/03/2001
Pour obtenir le format désiré (14/01/2001) il me faut double cliquer sur chaque cellule concernée !.....

J’ai essayé d’automatiser ce double clic par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub ValidFormat()
Range("A2").Select
Do While ActiveCell.Value <> ""
    ActiveCell.Offset(0, 0).Select
    ActiveCell.FormulaR1C1 = ActiveCell.Value
    ActiveCell.Offset(1, 0).Select
Loop
End Sub

Cela ne fonctionne pas …Help!!!
Jojo

[Gorfael]

Salut Jojo31 et le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub ValidFormat()
Range([A2], [A65536].End(xlUp)).NumberFormat = "dd/mm/yyyy"
End Sub

A+