Date aautomatique

Bonjour,

je souhaite inserer une date (automatiquement) dans une cellule à condition qu'une autre cellule soit renseignée.

Cette date doit m'indiquer la date à laquelle a ete faite la saisie.

Le probleme que je rencontre c'est que tout ce que j'ai utiliser met à jour la date à chaque ouverture du fichier.

Avez une idée de ce que je pourrais faire pour que la mise à jour ne se fasse pas????

D'avance merci

Bonjour,

sauf erreur

à mettre dans le code de la feuille et valable pour la zone F2:F10

' à mettre dans le code de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range("F2:F10")
If Target.Rows.Count > 1 Then Exit Sub
If Target.Value <> "" Then
If Not Intersect(Target, Me.Range("F2:F10")) Is Nothing And Target.Offset(, 1) = "" Then
   Target.Offset(, 1).Value = Date
End If
End If
End Sub

Bonjour le forum,

Voir le fichier joint.

Bonjour,

Merci pour votre retour rapide

En effet ,je voudrais si la cellule X8 <>"" alors Z8 = date de saisie de X8 sans mise a jour DE LA DATE .

Et j'aimerai bien que ca soit applique sur toute la colonne Z:

exemple :

si X8 <> "" alors Z8 =Date..

si X9 <> "" alors Z9 =Date..

si Xn <> "" alors Zn =Date..

je suis débutante dans les macros.

est ce que vous pouvez mieux m'expliquer svp ?

imen a écrit :

Bonjour,

Merci pour votre retour rapide

En effet ,je voudrais si la cellule X8 <>"" alors Z8 = date de saisie de X8 sans mise a jour DE LA DATE .

Et j'aimerai bien que ca soit applique sur toute la colonne Z:

exemple :

si X8 <> "" alors Z8 =Date..

si X9 <> "" alors Z9 =Date..

si Xn <> "" alors Zn =Date..

je suis débutante dans les macros.

est ce que vous pouvez mieux m'expliquer svp ?

Clic droit sur l'onglet/visualiser le code et tu y colles ceci: (idem que l'autre mais avec colonnes X et Z )

' à mettre dans le code de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range("X2:X10000")
If Target.Rows.Count > 1 Then Exit Sub
If Target.Value <> "" Then
If Not Intersect(Target, Me.Range("X2:X1000")) Is Nothing And Target.Offset(, 2) = "" Then
   Target.Offset(, 2).Value = Date
End If
End If
End Sub

Merci beaucoup ,vous m'avez sauvé .ça marche très bien.

Sauf si j'efface le contenu de saisie de la cellule x ,la date reste .

Je voudrai savoir est ce que c'est possible si on supprime la saisie de la cellule X alors la colonne Z reçoit aucune Date.

Merci d'avance