un nom égal une date

*burmais <burmais@discussions.microsoft.com> que je salut a écrit *:

je souhaite effectuer un pointage de personnes qui arrive à une
réunion qui puisse me donner le moment où ils arrrivent par un clic
en face de leurs noms .... puis envoyer cette heure en "memoire"
dans un autre grille
en résumé le fait de cliqué en face leur nom ... provoque le
déclenchement de de l'heure et date.
merci à vous ... je patoge avec la commande " maintenant"

Avec une macro sur ta feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
Target.Value = Now()
End If
End Sub

tu dois effectuer quelques vérifications, ici si la colonne est B
Sinon à chaque fois que tu cliqueras quelque par sur cette feuille tu auras
la date.


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Bonjour,

La procédure suivante fonctionne par double-clic et elle vérifie que la
cellule est vide (pour ne pas modifier la date d'un collègue).
Dans ce genre de procédure, il faut effectivement vérifier un tas de choses.
Il faudra sans doute aussi gérer le nb de lignes sur lesquelles on veut
insérer une date, autrement dit seulement la zone où il y des noms saisis.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If ActiveCell.Column = 2 Then
If ActiveCell.Value = "" Then ActiveCell.Value = Now()
End If
End Sub