Re : mettre un ' devant chaque date
Publié par chris le 09/02/2014 00:59:58
Bonjour
Salut les filles
On peut remplacer Selection par une plage précise ou passée en paramètre.
Salut les filles
Sub Dat2Text()
Dim cellule as range
For Each cellule In Selection
If IsDate(cellule.Value) Then
cellule.Value = Format(cellule, "'dd/mm/yyyy")
End If
Next cellule
End Sub
On peut remplacer Selection par une plage précise ou passée en paramètre.
Ce message est de : http://excel.veriti.net/modules/newbb/viewtopic.php?post_id=352