Saisie automatique

Baside

XLDnaute Impliqué

• 10 Juin 2005

• #2

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]

 

Pièces jointes

• Tintin.zip

  6.2 KB · Affichages: 86
• Tintin.zip

  6.2 KB · Affichages: 81
• Tintin.zip

  6.2 KB · Affichages: 83

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 10 Juin 2005

• #3

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'.

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

 

Vote positif 0 Vote négatif

T

Tintin

Guest

• 10 Juin 2005

• #4

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+++

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 11 Juin 2005

• #5

Bonsoir Tintin Jean Marie le forum

Il y a ce Lien supprimé aussi

Baside

 

Vote positif 0 Vote négatif

T

Tintin

Guest

• 11 Juin 2005

• #6

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.

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 11 Juin 2005

• #7

Mon mail

LeCasLagaffearobaseAOLpointcom

Il faut remplacer dans l'adresse bien sur

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 11 Juin 2005

• #8

Je viens d'envoyer le fichier

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 11 Juin 2005

• #9

Bonjour le forum

si tu places ceci, c'est mieux ?

Code:

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

 

Vote positif 0 Vote négatif

T

Tintin

Guest

• 11 Juin 2005

• #10

Bonsoir Jean Marie, bonsoir le forum.

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

 

Vote positif 0 Vote négatif