XL 2019 Bloquer une cellule après 48h

[al1en76]

Bonjour,
Je recherche la formule qui me permettra, à partir d'une date, de ne plus prendre d'inscription.
Par exemple nous sommes lundi 20 avril et ma plage pour prendre des inscriptions est de 48h donc jusqu'au mercredi inclus comment faire alors si j'ai une demande le mardi pour le mercredi (24h) donc impossible à prendre....
Suis-je clair ?
Merci pour l'aide

 

[sylvanu]

Bonjour Alain,
Si en A1 vous avez la date du RV alors on peut faire :

=SI(24*(A1-AUJOURDHUI())<=48;"RV impossible";"RV possible")

Ensuite il faut traiter ce message suivant votre fichier.

 

[jmfmarques]

Bonjour
Une formule Excel ne saurait, seule, agir sur le caractère modifiable d'une valeur de cellule.
il faudrait ensuite faire appel à du VBA.
VBA pour VBA, autant alors l'utiliser d'emblée. Deux méthodes possibles :
- celle du verrouillage de cellule + protection
- celle d'une intervention en évènement sélection_change pour "balader" ailleurs l'utilisateur

 

[al1en76]

Bonjour
Une formule Excel ne saurait, seule, agir sur le caractère modifiable d'une valeur de cellule.
il faudrait ensuite faire appel à du VBA.
VBA pour VBA, autant alors l'utiliser d'emblée. Deux méthodes possibles :
- celle du verrouillage de cellule + protection
- celle d'une intervention en évènement sélection_change pour "balader" ailleurs l'utilisateur

Néophyte je ne comprends pas ce que je dois faire

 

[sylvanu]

Tout est dans :

donc impossible à prendre

1- C'est physiquement impossible. Dans ce cas, comme le dit Jmfmarques il faut passer par du VBA, car des fonctions seules ne peuvent y parvenir.
2- Un message d'alerte en gros, gras, rouge vous alerte pour vous dire de ne pas prendre le RV, et dans ce cas on peut le faire par formules, comme par ex avec celle du post #2.

 

[al1en76]

Tout est dans :
1- C'est physiquement impossible. Dans ce cas, comme le dit Jmfmarques il faut passer par du VBA, car des fonctions seules ne peuvent y parvenir.
2- Un message d'alerte en gros, gras, rouge vous alerte pour vous dire de ne pas prendre le RV, et dans ce cas on peut le faire par formules, comme par ex avec celle du post #2.

ok merci beaucoup

 

[jmfmarques]

Néophyte je ne comprends pas ce que je dois faire

Quelque chose comme ceci (méthode 2)
saisis donc le 17/04/2020 en A3, par exemple, et tente de saisir quelque-chose en B3. Constate.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column <> 2 Then Exit Sub
 If Target.Offset(0, -1).Value <> "" Then
   If Date - Target.Offset(0, -1).Value > 2 Then
      MsgBox "pas touche": Target.Offset(0, 1).Select
   End If
 End If
End Sub

 

[dg62]

Bonjour le fil,
Pour aider Al1en76
le fichier joint avec la procédure de jmfmarques

 

[sylvanu]

Bonjour tout le monde,
Ou dans le cas où Al1en76 n'aime pas les macros, en PJ avec des alertes.