Discussion :

[alainb]

Bonjour,
Une cellule Excel contient le texte : 17/10/2010
Sous VBA, je souhaite le transformer en date et l'affecter à la variable maDate

Code :

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

1
2
3
 
maCellule as ActiveCell.Value
maDate.formula = "=Value(maCellule)"

Ce code ne fonctionne pas
Alain

[chyanon]

Bonjour,

Peut-être en utilisant:

Code :

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

Activecell.value= Cdate(activecell.value)

[alainb]

Bonjour chyanon,
merci pour ta proposition, mais ma recherche porte plutôt sur la façon d'affecter la formule à maDate
Depuis le début de cette discussion je recherche une solution du genre:

Code :

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

1
2
3
4
 
set maValeur=range(maCellule)
maValeur = "=Value (maValeur)"
maDate.formula = maValeur

Ce code ne fonctionne pas, j'ai une embrouille avec VBA ce matin

[mercatog]

Code :

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

taDate=range(taCellule).value

[alainb]

Bonjour mercatog,
A l'origine de ma discussion

• la cellule contient un champ texte (17/10/2010)
• à transformer en format date
• et à affecter à la variable maDate

et cela sans venir modifier une cellule de ma feuille
Alain

[mercatog]

Code :

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

1
2
3
Dim taDate as date
taDate=range(taCellule).value
msgbox taDate

tu ne change rien dans ta cellule mais tu récupère sa valeur dans ta variable taDate
Attention quand même, la valeur de la cellule devra être une date valide