Insérer une date figée conditionelle

Question

Salut,

Je cherche à inserer une date figée dans la cellule B1 si la cellule A1 est différente de "" (vide).
J'ai essayé le CTLR+; mais ce n'est à priori pas automatisable.
Quant à la fonction aujourdhui, le probléme c'est qu'elle s'incrémente automatiquement chaque jour.
Ce que je cherche en fait, c'est une formule du type : =si(A1="";"";=aujourdhui()) avec une date qui reste figée, fonction que je pourrais dérouler sur toute la colonne.
J'ai trouvé des lignes de macro sur internet mais aucune ne marche.
Avez-vous une idée ?

souf95

cs_thierry la fronde · Answer

bonsoir
quelque chose du genre :

dim MaDate  as Date
if Range("A1").Value=="" then
MaDate  = Now()
Range("B1").Value=MaDate
else
Range("B1").Value=""
endif

thierry la fronde

jmfmarques · Answer

Ouais...
La remarque faite par PCPT ici :
http://www.vbfrance.com/forum/sujet-RECHERCHEV-SUR-PLUSIEURS-FEUILLES-FICHIERS_1179223.aspx#
est totalement ignorée !!!!


N'est-ce-pas ?

jmfmarques · Answer

Alors :
trouver où poster, à savoir :
 Thèmes / Visual Basic 6 / Langages dérivés / VBA
n'est quand même pas la mer à boire et mille fois moins compliqué que de développer, hein ...

Insérer une date figée conditionelle

3 réponses

Votre réponse

Discussions similaires