Date du jour en fonction d'une cellule non vide

krissator

XLDnaute Nouveau

• 20 Octobre 2010

• #2

Re : Date du jour en fonction d'une cellule non vide

tu peux coller ça en B2 :

=SI(A2<>"";AUJOURDHUI();"--")

et ensuite, incrémenter sur la colonne.
Attention, le lendemain, la date évolue ^^

 

Vote positif 0 Vote négatif

P

pascal cfp 49

XLDnaute Nouveau

• 20 Octobre 2010

• #3

Re : Date du jour en fonction d'une cellule non vide

essaie cette formule =SI(A2<>"";AUJOURDHUI();"")

en espérant que j'ai bien cerné votre demande

Pascal cfp 49

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 20 Octobre 2010

• #4

Re : Date du jour en fonction d'une cellule non vide

bonjour

=SI(A4<>"";AUJOURDHUI();"")

inconvéniant la date se mettra à jour à chaque ouverture du fichier

 

Vote positif 0 Vote négatif

krissator

XLDnaute Nouveau

• 20 Octobre 2010

• #5

Re : Date du jour en fonction d'une cellule non vide

...j'crois qu'on est tous d'accord... mais preum's ;-p

 

Vote positif 0 Vote négatif

D

Deleep

XLDnaute Nouveau

• 20 Octobre 2010

• #6

Re : Date du jour en fonction d'une cellule non vide

Bien vu les gars !
J'avais pas pensé à ça !

Et j'imagine qu'il n'y a pas de formule pour bloquer cette MAJ ?

Merci encore !

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 20 Octobre 2010

• #7

Re : Date du jour en fonction d'une cellule non vide

une petite macro

Code:

Sub test()
    For i = 1 To Sheets(1).Range("a65536").End(xlUp).Row + 10
        If Cells(i, 2) = "" And Cells(i, 1) <> "" Then Cells(i, 2) = Date   
        If Cells(i, 1) = "" And Cells(i, 2) <> "" Then Cells(i, 2) = ""
    Next
End Sub

commandée par un bouton ou par

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
test
End Sub

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 20 Octobre 2010

• #8

Re : Date du jour en fonction d'une cellule non vide

Bonjour à tous

Essayez cette procédure dans le module de la feuille Sheet1 :

Code:

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target.Row > 1 Then Target.Offset(0, 1).Value = IIf(Target.Value = "" Or IsEmpty(Target), Empty, Date)
End Sub[/B][/COLOR]

La date ne sera modifiée que si on modifie la valeur dans la colonne A. Elle sera effacée si on supprime la donnée dans la colonne A.​

ROGER2327
#4346

Dimanche 15 Haha 138 (Nativité de l' Œstre, artificier, ST)
29 Vendémiaire An CCXIX
2010-W42-3T14:08:40Z

 

Vote positif 0 Vote négatif