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