>>> Date <<<

[ArnO]

>>> Date <<<

Re-bonjour tlm,

Je voudrais créer un bouton personnalisé mais il me manque une étape dans l'élaboration de ce bouton :

En fait j'extrait des dates d'un logiciel qui apparaîssent comme ceci :

20030330

Le bouton devra faire dans l'ordre :
1°) =DROITE(30032003;8) = 30032003
2°) cop/coll spécial val = suppr les formules
3°) format date 30032003 = 30/03/2003

J'ai un pb pour le 3°) si qq1 a une id

Merci d'avance.

ArnO

 

[BerNar]

Re: >>> Date <<<

Ecris simplement cette petite procédure :

Sub ChangerFormatDate()
For Each cell In Selection
cell.Value = DateSerial(Left(cell.Value, 4), Mid(cell.Value, 5, 2), Right(cell.Value, 2))
Next
End Sub

For each cell in selection veut dire que le format date sera changé pour toute cellule sélectionnée.

BerNar