Restrictions de cellules

Bonjour tout le monde
je reviens vers vous car j'ai un souci avec une formule..je dois créer un tableau dans lequel on doit inscrire un numéro de matricule (jusque là c'est ok! )
Le tableau représentera des jours fractionné en heures( 24h/j)
je voudrai en fait que si on est le 1/1/2000 à 12:00 on ne puisse plus modifier les cellules d'avant cette date et cette heure precise, en gros: je m'inscris le 2/2/2016 a 12:00 et reviens vers 12:30, ben plus moyen de modifier car on a dépassé la date inscrite par contre je dois pouvoir le faire pour les dates et heures futures.. ceci afin d'éviter les tricheries de certains

Pas très clair j'imagine...

Voilà un code que j'ai trouvé sur la toile et qui fonctionne mais uniquement pour les jours passés et non pour les heures passées :(

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:P41")) Is Nothing Then Jour = [F1].Value If Date > Jour Then MsgBox ("Vous ne pouvez pas revenir à une date précedente") [Q1].Select Exit Sub End If End If End Sub

---

Si quelqu'un à une idée de modifs je suis preneur ;)

Ps: Le code ne figure que sur la feuille1 dans vba..

Bonjour Vincendie.

Une idée de solution.
Si à chaque modification tu enregistres les changements, on peut imaginer remplacer la date en F1 par Now (date et heures de l'enregistrement).
Ensuite on modifie ta condition.

Dans ThisWorkbook:

Code:

---

1 2 3 4 5

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Jour = Format(Date, "dd") Sheets(Jour).[F1].Value = Now End Sub

---

La variable jour, récupère le numéro (22 pour aujourdhui), et enregistre Now dans l'onglet correspondant au jour.

Dans les différents onglets:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:P41")) Is Nothing Then Jour = [F1].Value If Now > Jour Then MsgBox ("Vous ne pouvez pas revenir à une date précedente, contactez le Sgt Lombaerts") [Q1].Select Exit Sub End If End If End Sub

---

Merci pour ta suggestion mais ca ne fonctionne pas...
y'aurait-il un moyen de faire ca sans passer par du vba?

Bonjour !

Y aurait-il moyen de ne pas citer l'intégralité du message précédent ?‼

Sinon vu qu'ici c'est le forum dédié au VBA …

______________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

Désolé Marc-L..
tu n'aurais pas une idée toi?

Bonjour,

Les explications données ici ne sont pas (du moins pour moi) de la plus grande clarté.
Je vais donc me contenter d'une remarque, à ce stade (et sans cette clarté) .
Si une cellule est remplie, sa modification ne saurait venir qu'ultérieurement. Je ne vois dans ces conditions pas la nécessité d'un contrôle date/heure ... Il me semble, dans cette logique, qu'il suffit de ne pas permettre de revenir dans une cellule déjà remplie.
A moins, bien sûr, que des précisions ajoutant la clarté nécessaire ne viennent changer la donne !

Citation:

---

Envoyé par vincendie

y'aurait-il un moyen de faire ca sans passer par du vba?

---

Cela m'étonnerait fort !

Déjà utiliser l'évènement Change et non SelectionChange afin de vérifier si la cellule modifiée (Target)
est une heure (ou dans une plage spécifique) et est dans les clous ou pas.

Dans la négative, utiliser la méthode Undo …

UNPARIA, ton idée pourrait bien faire mon affaire mais comment y parvenir?...

Comment ?
Tiens donc !
Tiens, je vais le faire sans même verrouiller quoi que ce soit en en me payant la bobine du tricheur ...
Exemple avec la cellule B1 !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim toto As String   Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("B1").Address And toto <> "" Then MsgBox "on ne triche pas ici ! t'as déjà dit " & toto & " et cela restera " & toto Application.EnableEvents = False Target.Value = toto Application.EnableEvents = True End If End Sub   Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = Range("B1").Address And Target.Value <> "" Then toto = Target.Value Else toto = "" End If End Sub

---

Renseigne donc B1 et essaye ensuite de la modifier ! Tu verras !

Bonjour,
merci pour vos suggestions et solutions, ça semble fonctionner mais voilà un autre problème qui se pose à moi:
dès que je partage le fichier (soit sur google sheet, soit sur excel online) plus rien ne fonctionne :-/
Une solution?:traine:

Cà, c'est un problème totalement distinct.

suis désespéré..
:(