figer definitivement les cellules

[eutrophisation]

Bonsoir

Pourriez vous m'aider à figer définitivement les contenus des cellules de l'ensemble du classeur à une date précise (31/01/2012).
Merci pour votre aide précieuse.
Salutations sportives

 

[JCGL]

Re : figer definitivement les cellules

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub Test()
Dim Cel As Range

For Each Cel In Range("A1").CurrentRegion
If IsDate(Cel.Value) Then Cel.Value = DateSerial(2012, 1, 31)
Next Cel
End Sub

A + à tous

 

[eutrophisation]

Re : figer definitivement les cellules

merci cependant le code ne répond pas...

 

[JCGL]

Re : figer definitivement les cellules

Bonjour à tous,

Joint ton fichier et tu verras que cela fonctionne

A+ à tous