Discussion :

[Bricoltou]

Bonjour à Tous

Je viens de m'inscrire sur ce Forum car je me suis lance en VBA et j'avoue que je galere pas mal et j'ai besoin d'aide .


J'ai une BDD avec des combobox (fichier joint) sur laquelle j'aurai également sélectionné le Jour , la date et le mois .
J'ai dans la feuille BD du classeur des absences prévues a la journée ou une période donnée .
Est -il possible lorsque je vais cliqué sur OK de ma BDD de controler la date de celle ci et les dates de ma feuilles d'absence et j'aimerai avoir un msgbox avec un message ex :le chauffeur est absent ce jour .
Merci pour vos réponses

@+

Bricoltou

[Bricoltou]

Bonjour Le Forum

j'ai touvé la solution grace a un ami qui m'a dirigé sur une de ces connaissances , trop compliqué pour mes début
merci encore
code ci dessous

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
Function teste_si_le_chauffeur_est_malade(nom_du_chauffeur As String, date_du_jour As Date)
Dim cell As Range
'cette loop va vérifier si les chauffeurs ne sont pas malades pour la variable nom_du_chauffeur, et renvoit un message si c'est le cas
With Worksheets("BD")
For Each cell In .Range(.Cells(2, .Range("BD_titre_chauffeur").Column), .Cells(.UsedRange.Rows.Count, .Range("BD_titre_chauffeur").Column))
If cell.Value = nom_du_chauffeur Then
'compare les dates :
If date_du_jour >= Worksheets("BD").Cells(cell.Row, Range("BD_titre_du").Column).Value And _
date_du_jour <= Worksheets("BD").Cells(cell.Row, Range("BD_titre_au").Column).Value Then
MsgBox "Le chauffeur " & cell.Value & " est malade.", vbOKOnly, "Attention"
teste_si_le_chauffeur_est_malade = True
Exit Function
End If
End If
Next
End With
End Function

Code :

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

1
2
3
4
Private Sub CommandButton3_Click()
'si la focntion renvoit vrai, ca veut dire que le chauffeur est malade et donc on exit la sub et on ne valide pas le reste.
'on peut reocpier ca en changeant les combox pour tester le reste
If teste_si_le_chauffeur_est_malade(Me.ComboBox18, CDate(Me.TextBox1)) Then Exit Sub

@+

Bricoltou