nonFigé, c'est éternel
C'est exactement çaquand ça bouge c'est plus figé !
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 ;-)
re
quelque soit notre point de vue sur l'expression figé et quelque soit le mode employé pour y parvenir
je rappelle
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 sensCe 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
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) 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
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
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 !
Cordialement,
Patrice
Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.
Pour dire merci, cliquer sur et quand la discussion est finie, penser à cliquer sur
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
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
Edit : La modification pourra se faire par l'administratreur via un autre code - code non fournis ici
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 2 : correction code et texte
Cordialement
Ryu
La connaissance s’acquiert par l’expérience, tout le reste n’est que de l’information. – Albert Einstein
Pensez à la Balise [ CODE][/CODE ] - à utiliser via le bouton # => Exemple
Une fois votre problème solutionné pensez à mettre en n'oubliant pas d'indiquer qu'elle est la solution finale choisie
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)
Je n'accepte pas de demande d' "amitié" individuelle. Tout développeur est pour moi un ami.
Je n'ouvre AUCUN classeur tiers (avec ou sans macro ******). Ne m'en proposez donc pas .
****** : Non, non ... un classeur .xlsx ne "peut" par exemple et entre autres pas contenir un activex (de surcroît invisible) , "bien sûr" ...
Il est illusoire de penser que l'on saurait exprimer valablement et précisément en un langage (rigide) de développement ce que l'on peine à exprimer dans le langage naturel, bien plus souple.
Bonjour à tous,
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é ) … ; 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
Cordialement
Ryu
La connaissance s’acquiert par l’expérience, tout le reste n’est que de l’information. – Albert Einstein
Pensez à la Balise [ CODE][/CODE ] - à utiliser via le bouton # => Exemple
Une fois votre problème solutionné pensez à mettre en n'oubliant pas d'indiquer qu'elle est la solution finale choisie
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.
Philippe Tulliez
Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager