Bloquage cellule temporel

Re bonjour tout le monde,

Je programme en ce moment un petit agenda, 2 onglets de configuration, 52 onglets ( un par semaine en theorie ) contenant une colonne pour lundi, mardi...dimanche.

Une barre d'outil est également crée pour prendre des rdv ( click gauche )

Mais j'aimerais maintenant qu'un patient ne puisse pas prendre un rendez-vous 72h avant. Et je ne sais pas comment faire.

Il faudrait qu'en fonction de la colonne ou l'on se trouve, on recupère la date en A1 B1 C1 pour la comparer à celle d'aujourd'hui et dans le module agenda faire

ElseIf ?????? Then

msgbox "Vous devez enregister vos rendez-vous au moins 72h en avance." & vbCrLf & _

"Veuillez choisir une plage disponible", vbInformation, "Rendez-vous impossible"

Exit Sub

Je vous mets en fichier joint le doc ( mot de passe FATAL )

Merci

alors ?

Bonjour

A essayer

Code à copier dans ta procédure Sub Ouvrir_AjoutRV()

Sub Ouvrir_AjoutRV()
.
.
' Partie à rajouter
'
If (Cells(3, ActiveCell.Column) + Cells(ActiveCell.Row, 1)) - Now < 3 Then
  msgbox "Pas de rendez-vous à moins de 72h00"
  Exit Sub
End If
'
' Fin de la partie à rajouter
'
'enfin... on ouvre le userform
    AjoutRV.Show

Bonne journée

Ouaouaouaouaou merci beaucoup !

Ca fait très longtemps que je cherchais à faire cette procédure.

J

-- 30 Avr 2011, 14:57 --

Et dans le même style,

J'aimerais, après identification, que le programme s'ouvre à la bonne semaine. Pour l'instant, c'est :

With Sem16

.Visible = True

End With

With Sem17

.Visible = True

End With

With Sem18

.Visible = True

.Activate

End With

pas top...

-- 30 Avr 2011, 15:35 --

Faudrait un truc :

Il y a un onglet par semaine, dans la cellule (3,2), il y a le lundi...

Donc il faudrait trouver dans l'onglet ou la condition suivante marche

ElseIf (Cells(3, 2)) - Now >0 And (Cells(3, 2)) - Now < 6 Then .......

et afficher l'onglet ...

Mais comment faire ?

Bonjour

A tester

Private Sub Workbook_Open()
  Sheets(Format(DatePart("ww", Date, vbMonday, vbFirstFourDays), "@")).Select
End Sub

Bonne journée

Merci beaucoup, mais cela ne fonctionne pas car ce n'est pas à l'ouverture que je veux que cela fonctionne mais après l'execution du formulaire ajout_RV

Cdt