macro pour figer une cellule avec date et heure

Version imprimable

Voir 40 message(s) de cette discussion en une page

25/03/2019, 13h19
Patrice740

Bonjour Eric

Citation:

Envoyé par eriiic

Figé ne veut pas dire ad vitam aeternam.

Figé, c'est éternel, quand ça bouge c'est plus figé ! :koi:
25/03/2019, 13h31
eriiic

Citation:

Figé, c'est éternel

non

Citation:

quand ça bouge c'est plus figé !

C'est exactement ça

Un lac figé par la glace ne dégèle jamais ?
Une huile figée par le froid l'est à tout jamais ?
Quand tu es figé d'effroi tu es pétrifié à tout jamais ?
J'en ai d'autres si vous voulez ;-)
25/03/2019, 14h03
patricktoulon

re

re
quelque soit notre point de vue sur l'expression figé et quelque soit le mode employé pour y parvenir

je rappelle

Citation:

Ce que je souhaite :

- que l'opérateur, lorsqu'il saisi son nom en cellule A, la date et heure s'inscrivent toutes seules dans la cellule B

- Que la date et heure ne change pas après l'enregistrement du fichier (du style copie/colle valeur),

je vous remercie pour votre aide

il est clair qu'après update de la colonne 1 et 2 en ligne X:si on fige pas pas les données "ETERNELLEMENT" cette feuille de pointage n'a aucun sens

alors oui si tu veux "figé éternellement" ;)
la donnée ne doit pas pouvoir être modifiée supprimée peut être ' en supprimant tout simplement la ligne (et encore avec administration!!!)

sinon je pointe pour tout le monde au boulot EN RETAPANT EN COLONNE 1 : je leur demande 100 boules A MES COLLEGES POUR LA PEINE (faut bien gagner sa vie:ptdr:) et tous sont en vacances LOL

j'ai juste mis le doigt sur le point que se sont les deux colonnes qui doivent être observées pour l'autorisation d'update pas que la 2
25/03/2019, 16h11
Patrice740

Citation:

Envoyé par eriiic

...

Un lac figé par la glace ne dégèle jamais ? Exactement, quand il dégèle, ce n'est plus un lac figé par la glace c'est un lac qui était figé par la glace !
Une huile figée par le froid l'est à tout jamais ? Comme pour le lac
Quand tu es figé d'effroi tu es pétrifié à tout jamais ? Oui à moins que tu ne sois plus figé d'effroi !
25/03/2019, 17h41
patricktoulon

Citation:

Envoyé par Patrice740

Un lac figé par la glace ne dégèle jamais ? Exactement, quand il dégèle, ce n'est plus un lac figé par la glace c'est un lac qui était figé par la glace !
Une huile figée par le froid l'est à tout jamais ? Comme pour le lac
Quand tu es figé d'effroi tu es pétrifié à tout jamais ? Oui à moins que tu ne sois plus figé d'effroi !

:ptdr:

Bon'Soir a tous,

Dans un Feuil1 (Feuille verrouiller => définir seulement les cellules à verrouiller - peut se faire par macro)
par double click sur une cellule en colonne "A" on entre le Nom (Exacte avec majuscules et minuscules tel qu'il est défini dans la liste ci-dessous),
la date/heure se faisant en auto, ex :

Noms	Date et Heure
Voncq P	25/03/19 23:23
Briand J	25/03/19 23:35

Dans une autre feuille (chez moi Feuil2) ou un endroit bien déterminé, la liste des noms effectifs et connus,
dont la plage des noms sont dans un champ nommé en plage dynamique => champ nommé : "LIST_N" - Formule : =DECALER(Feuil2!$A$2;;;NBVAL(Feuil2!$A:$A)-1;1)

LISTE NOMS

Voncq P

Briand J

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Nom As String, Liste_Noms As String
 
    Set Target = Cells(Rows.Count, 1).End(xlUp)(2)
    Liste_Noms = "|" & Join(Application.Transpose(Sheets(2).Range("LIST_N")), "|") & "|"
    If Not Application.Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing And Target = "" Then
        Do
            Nom = InputBox("Mettre votre nom", "NOMS - DATE - HEURE")
            If InStr(Liste_Noms, "|" & Nom & "|") = 0 And Nom <> "" Then MsgBox "Entrée non valide" & vbCrLf & "Écrire correctement votre nom" & _
                                                                                            vbCr & "en respectant les majuscules et minuscules"
        Loop Until InStr(Liste_Noms, "|" & Nom & "|") > 0 Or Nom = ""
 
 
        If Nom > "" Then
            Target.Parent.Protect Password:="", UserInterfaceOnly:=True
            Target.Value = Nom:
            Target.Offset(, 1) = Now()
            Application.Goto Target.Offset(1)
        Else
            MsgBox "Entrée annulée"
        End If
    Else
        If Not Application.Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing And Target = "" Then
            MsgBox "Veuillez entrée votre nom en colonne A"
            Application.Goto Target.Offset(, -1)
        Else
            MsgBox "Entrée déjà utilisée"
        End If
        OriginalValue = ""
    End If
    Cancel = True
    Target.Parent.Protect Password:="", UserInterfaceOnly:=False, AllowSorting:=True, AllowFiltering:=True
    Set Target = Nothing
End Sub

Edit : La modification pourra se faire par l'administratreur via un autre code - code non fournis ici

Edit 2 : correction code et texte

26/03/2019, 07h58
unparia

Bonjour
Les choses seront sans aucun doute plus claires lorsque karlgina aura bien voulu préciser ici si le "figeage" qu'il souhaite :
1) a pour unique but celui d'éviter qu'une date ne soit modifiée automatiquement du fait de l'application d'une formule (et c'est alors très simple)
ou
2) a pour but celui d'un contrôle plus complexe (genre contrôle d'écritures comptables) et, dans un tel cas, cela relèverait de l'élaboration d'une stratégie (rubrique conception)
26/03/2019, 09h11
RyuAutodidacte

Bonjour à tous,

Citation:

Envoyé par karlgina

- que l'opérateur, lorsqu'il saisi son nom en cellule A, la date et heure s'incrivent toutes seules dans la cellule B

- Que la date et heure ne change pas après l'enregistrement du fichier (du style copie/colle valeur),
…

Coucou Jacques ;)
En effet tu as raison, la 1ère partie est claire, quand à la 2de partie, celle-ci demande à ce qu’elle soit éclaircie …
le fait qu’il y a la possibilité de changer qq chose avant enregistrement (donc pas figé :coucou: ;)) … ; il manque des précisions sur la manière de procéder (toutes actions faites après l’insertion du nom et de la date) avant enregistrement …

Coucou en passant Patrick, eriiic, mercatog, Marcel, et Philippe
26/03/2019, 09h42
Philippe Tulliez

Bonjour à tous,
Plus de 27 messages pour une c..... pareille, j'avoue que l'on bat les records et de plus avec un lanceur de discussion qui ne réagit même pas.

Voir 40 message(s) de cette discussion en une page