Saisie automatique

[Tintin]

Bonsoir à tous.

Je bute sur une macro.
Je voudrais que lorsque je saisit un n° de dossard dans une cellule, le temps s'affiche automatiquement dans la cellule de droite.
Comment puis-je faire ?
Pouvez-vous m'aider, car je suis désespéré, j'ai besoin de faire fonctionner ce fichier demain soir.
Merci beaucoup d'avance à ceux et celles qui se pencheront sur mon problème.

Par contre j'ai un gros problème, mon fichier fait 389KO ou 285 KO Zippé.

Que puis-je faire ?

 

[Baside]

Bonsoir Tintin le forum

Je te propose une solution qui te met la date et lheure dans la cellule où tu doubles clic puis tu mets le n° de dossard après

Pour ton fichier ne t'affoles pas, certains passent par mail dans ce cas

D'ici demain, la solution sera trouvée

Bonne soirée, Baside

P.S. Quand tu double cliques sur une cellule de la colonne A de la feuille 1 la date et l'heure s'affichent [file name=Tintin.zip size=6357]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Tintin.zip[/file]

 

[JeanMarie]

Bonjour

Ayant aidé Tintin sur son fichier, pour une autre question, la solution collera plus à son problème.

Tintin colle ce code dans la fenêtre VBA de la feuille, clique droit sur l'onglet de la feuille 'saisie des temps', puis sur 'visualiser le code'.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
   Case 9, 11, 13, 15
   Target.Offset(0, 1) = Time
End Select
End Sub

@+Jean-Marie

 

[Tintin]

Re bonsoir Jean Marie.

Merci pour ton aide précieuse.

C'est pratiquement ce que je souhaitais , cependant j'aimerais qu'un temps s'affiche et non pas l'heure.

A+++

 

[Baside]

Bonsoir Tintin Jean Marie le forum

Il y a ce Lien supprimé aussi

Baside

 

[Tintin]

Bonjour Baside, Jean Marie, le forum.

Ce qui m'intéresse surtout c'est de saisir un n° de dossard dans une cellule et le temps (qui vient d'un chrono et non pas d'une horloge), s'affiche automatiquement dans la cellule de droite.
Jean Marie (qui connait mon fichier) m'a déjà bien dégrossi le boulot, mais je n'arrive pas à faire le lien avec le chrono.
Merci pour votre boulot à tous.
Bonne journée
Tintin.

 

[Baside]

Mon mail

LeCasLagaffearobaseAOLpointcom

Il faut remplacer dans l'adresse bien sur

 

[Baside]

Je viens d'envoyer le fichier

 

[JeanMarie]

Bonjour le forum

si tu places ceci, c'est mieux ?

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
   Case 9, 11, 13, 15
   Target.Offset(0, 1) = Time - Range('O2')
End Select
End Sub

@+Jean-Marie

 

[Tintin]

Bonsoir Jean Marie, bonsoir le forum.

Merci beaucoup Jean Marie. Tu as trouvé la bonne macro.
Merci pour ton travail.
Tintin