Private Sub CmbValider_Click()
Dim FeuilleDeTransfert As String
Dim LigneDeTransfert As Byte
Dim DebutColonneDeTransfert As Byte
Dim FinColonneDeTransfert As Byte
Dim cell As Range
If Month(Datedeb) <> Month(Datefin) Then
MsgBox "Le mois de la date de début doit ètre la même que celle de fin"
Exit Sub
End If
If Me.ComboNom.ListIndex = -1 Then
MsgBox " Le Nom doit ètre documenté"
Exit Sub
End If
FeuilleDeTransfert = StrConv(Format(Datefin, "mmmm"), vbProperCase)
Err = 0
On Error Resume Next
LigneDeTransfert = Application.WorksheetFunction.Match(Me.ComboNom, Worksheets(FeuilleDeTransfert).Range("C1:C100"), 0)
If Err <> 0 Then
Err = 0
MsgBox "La feuille de mois ou le nom de la personne n'existe pas dans cette feuille"
Exit Sub
End If
DebutColonneDeTransfert = Application.WorksheetFunction.Match(CLng(Datedeb), Worksheets(FeuilleDeTransfert).Range("D11:AI11"), 0) + 3
If Err <> 0 Then
Err = 0
MsgBox "La date de début n'existe pas dans cette feuille"
Exit Sub
End If
FinColonneDeTransfert = Application.WorksheetFunction.Match(CLng(Datefin), Worksheets(FeuilleDeTransfert).Range("D11:AI11"), 0) + 3
If Err <> 0 Then
Err = 0
MsgBox "La date de fin n'existe pas dans cette feuille"
Exit Sub
End If
With Sheets(FeuilleDeTransfert)
For Each cell In Range(.Cells(LigneDeTransfert, DebutColonneDeTransfert), .Cells(LigneDeTransfert + 1, FinColonneDeTransfert))
cell = "1dispo"
Next
End With
End Sub