Dim Ws As Worksheet
Dim DateExiste As Boolean '### ajout pmo
' Code à exécuter à l'initialisation du formulaire
Private Sub FormRapportjourn_Initialize()
Set Ws = Sheets("DonnéesRJ")
End Sub
' Association de la valeur du calendrier à aujourd'hui à l'ouverture du formulaire
Private Sub FormRapportjourn_Activate()
Calendrier = Date
End Sub
' Relation entre la valeur sélectionnée sur le calendrier et celle qui apparait dans la boite de texte
Private Sub Calendrier_DateClick(ByVal DateClicked As Date)
'### ajout pmo
Dim var As Variant
Dim i&
'---
DateExiste = False
txtboxdate = Calendrier
txtboxdate.Tag = CLng(Calendrier)
'---
var = Sheets("DonnéesRJ").[a1].CurrentRegion
For i& = 2 To UBound(var, 1) 'on part à 2 pour omettre la ligne de titre
If var(i&, 1) = CDate(txtboxdate.Tag) Then
DateExiste = True
'---
txtboxcommmatin = var(i&, 2)
txtboxcommsoiree = var(i&, 3)
txtboxpmric = var(i&, 4)
'... à compléter par vos soins
'...
'...
Exit For
End If
Next i&
'---
If Not DateExiste Then
txtboxcommmatin = ""
txtboxcommsoiree = ""
txtboxpmric = ""
'... à compléter par vos soins
'...
'...
End If
'###
End Sub
Private Sub enregrapportjourn_Click()
Dim L As Integer
L = Sheets("DonnéesRJ").Range("a65536").End(xlUp).Row + 1 ' Pour placer le nouvel enregistrement à la première ligne de tableau non vide
'### ajout pmo
Range("A" & L).Value = CDate(txtboxdate.Tag)
txtboxdate.Tag = ""
'###
Range("B" & L).Value = txtboxcommmatin
Range("C" & L).Value = txtboxcommsoiree
Range("D" & L).Value = txtboxpmric
Range("E" & L).Value = txtboxpmrterhn
Range("F" & L).Value = txtboxpmrterbn
Range("G" & L).Value = TextBox1
Range("H" & L).Value = TextBox3
Range("I" & L).Value = TextBox2
Range("J" & L).Value = TextBox4
Range("K" & L).Value = TextBox5
Range("L" & L).Value = TextBox6
Range("M" & L).Value = TextBox7
Range("N" & L).Value = TextBox8
Range("O" & L).Value = TextBox9
Range("P" & L).Value = TextBox10
MsgBox ("Enregistrement effectué")
' End If
End Sub
' Déchargement du formulaire en mémoire au clique sur le bouton Accueil
Private Sub menurapportjourn_Click()
Unload Me
End Sub
Private Sub txtboxdate_Change()
' Appliquer un format complet (Vendredi 1 Décembre 2015) dans l'affichage de la date
txtboxdate.Value = Format(txtboxdate.Value, "[$-F800]dddd dd mmmm yyyy")
End Sub