Date du jour en fonction d'une cellule non vide

[Deleep]

Bonjour à tous,

Je voudrais une formule qui m'indique la date du jour si une autre cellule est rempli, et rien si cette autre cellule est vide.

EX :
A1 B1
Rapport Durant 20/10/10

A2 B2
0 0

A3 B3
Rapport Dupont 19/10/10 (je l'aurais encodé la veille).

Je vous joint le fichier au cas où je n'aurais pas été clair 🙂

Merci d'avance à tous !

 

[krissator]

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 ^^

 

[pascal cfp 49]

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

 

[gilbert_RGI]

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

 

[krissator]

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

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

 

[Deleep]

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 !

 

[gilbert_RGI]

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

une petite macro

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

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

 

[ROGER2327]

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

Bonjour à tous

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

[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