Discussion :

[vincendie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[thebenoit59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vincendie]

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

[Marc-L]

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, …

[vincendie]

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

[unparia]

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 !

[Marc-L]

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 …

[vincendie]

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

[unparia]

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 :

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