Discussion :

[Cobvious]

Bonjour, je viens poser la question ici car après avoir chercher sur pas mal de sites je n'ai rien trouver de satisfaisant et qui marche.
Donc en fait ce que je voudrais c'est un moyen de fixer la date et l'heure de la saisie dans une case (disons A1, et par la suite A2, A3 etc) lorsque la case d'à côté est remplie (ici donc B1, puis B2, B3 en correspondance).

Pour rendre les choses un peu plus claires : Je dois faire un journal informatique et je veux que lorsque l'utilisateur rentre une information dans la colonne B (mettons "bateau X parti pour mouiller en Y") la date et l'heure auxquelles il a rentré cette info s'affiche dans la colonne d'à côté. Et bien sûr que par la suite ces dates et heures ne se mettent pas à jour à chaque calcul. Donc en gros je cherche un moyen d'utiliser la fonction =MAINTENANT() mais sans la mise à jour à chaque calcul. Ou un moyen d'intégrer le raccourci clavier CTRL+; dans une fonction pour pouvoir l'étendre à une colonne (A) et faire en sorte qu'excel le fasse automatiquement à chaque saisie dans la colonne B.

D'avance merci

[Marc-L]

Bonjour,

code à insérer dans le module de classe de la feuille de saisie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then Target(, 0).Value = Date
End Sub

_______________ ____________________________________ ______________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Kimy_Ire]

Bonjour Cobvious,

Voici ce que je te propose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
Set Plage = Columns(2)
 
If Not Application.Intersect(Target, Plage) Is Nothing Then
    Range("A" & Target.Row) = Now
End If
 
End Sub

Cordialement,
Kimy

EDIT : moins bien que Marc-L - code à oublier.

[Cobvious]

Merci, par contre en l'état ça ne marche pas, message d'erreur : "Erreur de compilation: Attendu : fin d'instruction"
Je suis vraiment totalement néophyte en la matière, si je suis sensé changer certaines valeurs par mes valeurs persos précisez-le s'il vous plait
Je précise que c'est le code de Marc-L que j'ai testé.

[Marc-L]

Aucun souci de mon côté ‼ Fonctionne comme un charme …

[Cobvious]

Je dois rajouter End If peut-être, et mettre une valeur dans le Then Target(, 0) ?