Problème format date

[Esox]

Bonjour le forum,

voici une partie de macro suivante :

With ThisWorkbook.Sheets("Résas")
reference = .Range("AT1")
info = .Range("AS1")

Set celluleRecherche = .Range("A:A").Find(reference, , xlValues, xlWhole)
If Not celluleRecherche Is Nothing Then
memAdresse = celluleRecherche.Address
Do
celluleRecherche.Offset(0, 7).Value = info
Set celluleRecherche = .Range("A:A").FindNext(celluleRecherche)
Loop Until celluleRecherche.Address = memAdresse
End If

Donc, info = .Range("AS1")
AS1 est au format date francaise et à l'intérieur une formule =maintenant()
et lors de
celluleRecherche.Offset(0, 7).Value = info
il me passe le format date en anglais

J ai fait plusieurs essai et pas moyen, auriez vous une idée ?

Merci d'avance à tous,

Stef.

 

[Pierrot93]

Re : Problème format date

Bonjour,

essaye peut être ceci :

celluleRecherche.Offset(0, 7).Value = CDate(info)

bon après midi
@+

 

[Esox]

Re : Problème format date

Bonjour Pirrot, le forum

A première vue ca marche... merci beaucoup...

Bonne journée...

Stef