Date automatique

Résolu
nicos -  
Patrice33740 Messages postés 8561 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



2 réponses

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
0
nicos
 
bonjour

merci pour la réponse .
je modifie mes renseignements
il s'agit de la colonne A qui commence par A4 et la colonne B par B4
et dans la colonne B ce n'est pas du numérique mais du texte
Comment puis-je appliquer?
Avec mes excuses pour ces changements
Cordialement
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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

0