Date automatique
Résolu
nicos
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
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
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
2 réponses
-
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 -
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
