date automatique Résolu/Fermé

Question

Bonjour, 
 
comment procéder pour avoir la date qui s'inscrive automatique dans la cellule  A1 quand
je rentre un nombre en cellule  B1 sans que cette date ne change le lendemain.

Avec mes remerciements

Cordialement
 


Configuration: Windows XP / Firefox 11.0

Patrice33740 · Answer

Bonjour, Il faut écrire une macro pour faire cela (copier le texte ci-dessous, clic droit sur l'onglet, visualiser le code, coller) : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$1" Then Exit Sub If Not IsNumeric(Target.Value) Then Exit Sub Target.Offset(0, -1).Value = Date End Sub mais si il s'agit d'écrire une date dans la colonne A lorsqu'on saisit un nombre dans la colonne B, ce n'est pas la même macro (d'ou la nécessité d'être précis lorsqu'on pose une question) : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub If Not IsNumeric(Target.Value) Then Exit Sub Target.Offset(0, -1).Value = Date End Sub Cordialement Patrice

Patrice33740 · Answer

Bonjour,

Essaies :
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 2 Then Exit Sub
  If Target.Row < 4 Then Exit Sub
  If Target.Formula = "" Then Exit Sub
  Target.Offset(0, -1).Value = Date
End Sub

Date automatique

2 réponses

Discussions similaires