XL 2010 calcul MAX if en vba

[Nono65]

Bonjour à tous

Je voudrai faire un fichier qui m'indique le nb max d'occupation d'une chambre en fonction d'une date arrivée et une date départ. j'ai réussi à faire la formule en définissant les valeurs en dur,mais je voudrai que cela fonctionne en fonction des dates que l'on saisit dans les textbox et du choix de la chambre. Je coince !

Merci pour votre précieuse aide.

 

[job75]

Bonjour Nono65,

Voyez le fichier joint et le code de l'UserForm :

Private Sub ComboBox1_Change()
Calcul
End Sub

Private Sub ComboBox2_Change()
Calcul
End Sub

Private Sub ComboBox3_Change()
Calcul
End Sub

Private Sub UserForm_Initialize()
On Error Resume Next 'si le tableau est vide
ComboBox1.List = [A2].Resize(Application.CountA([A:A]), 2).Value
With [B1].Resize(2, Application.Count([1:1]))
    ComboBox2.List = Application.Transpose(.Value)
    ComboBox3.List = Application.Transpose(.Value)
End With
End Sub

Sub Calcul()
Dim lig&, col1%, col2%
TextBox1 = ""
On Error Resume Next
lig = Application.Match(ComboBox1, [A:A], 0)
col1 = Application.Match(CDbl(CDate(ComboBox2)), [1:1], 0)
col2 = Application.Match(CDbl(CDate(ComboBox3)), [1:1], 0)
TextBox1 = Application.Max(Range(Cells(lig, col1), Cells(lig, col2)))
End Sub

A+

 

[Nono65]

C'est ça ! Merci beaucoup depuis le temps que je patauge !!