Menu déroulant en cascade

Salut Pimpin,
Voici un petit fichier avec quelques trucs (beaucoup en formule et sans VBA). Tu as plusieurs onglets :
. BD : c’est la base de données permettant le lien entre immeuble, étage et chambre. J’y ai inclus le prix.
. Visualisation : permet de voir – mois par mois – les chambres réservées
. Réservation : c’est la feuille où tout va s’enregistrer. On y touche pas.
. Encodage : c’est là que tu encodes tes données (tu peux y donner plus de relief pour en faire un vrai formulaire). En fonction des données, il t’indiques si c’est valide ou non comme réservation : réagit sur la période et la chambre.

Ensuite, tu valides la réservation en appuyant sur le bouton Go! qui a ce petit code vba :

Sub GoReservation()
Dim Table(16)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
DerniereLigne = Sheets("Réservation").Range("A1").End(xlDown).Row + 1
Sheets("Réservation").Unprotect ""
With Sheets("Encodage")
    .Activate
    If .Range("A2").Value = "NOK" Or IsNumeric(.Range("G5").Value) = False _
        Then MsgBox "Réservation non valide": _
        Application.ScreenUpdating = True: _
        Application.Calculate: _
        Application.Calculation = xlCalculationAutomatic: _
        Exit Sub
    
    Table(1) = .Range("A5").Value
    Table(2) = .Range("C5").Value
    Table(3) = .Range("E5").Value
    Table(4) = .Range("A8").Value
    Table(5) = .Range("C8").Value
    
    Table(6) = .Range("E8").Value
    Table(7) = .Range("G8").Value
    Table(8) = .Range("A12").Value
    Table(9) = .Range("C12").Value
    Table(10) = .Range("E12").Value
    Table(11) = .Range("A15").Value
    Table(12) = .Range("C15").Value
    Table(13) = .Range("E15").Value
    Table(14) = .Range("A18").Value
    Table(15) = .Range("C18").Value
    Table(16) = .Range("E18").Value
End With
    
With Sheets("Réservation")
    .Activate
        .Range("A" & DerniereLigne).Value = Table(1)
        .Range("B" & DerniereLigne).Value = Table(2)
        .Range("C" & DerniereLigne).Value = Table(3)
        .Range("E" & DerniereLigne).Value = Table(4)
        .Range("F" & DerniereLigne).Value = Table(5)
        .Range("G" & DerniereLigne).Value = Table(6)
        .Range("D" & DerniereLigne).Value = Table(7)
        .Range("H" & DerniereLigne).Value = Table(8)
        .Range("I" & DerniereLigne).Value = Table(9)
        .Range("J" & DerniereLigne).Value = Table(10)
        .Range("K" & DerniereLigne).Value = Table(11)
        .Range("L" & DerniereLigne).Value = Table(12)
        .Range("M" & DerniereLigne).Value = Table(13)
        .Range("N" & DerniereLigne).Value = Table(14)
        .Range("O" & DerniereLigne).Value = Table(15)
        .Range("P" & DerniereLigne).Value = Table(16)
End With

Sheets("Réservation").Protect ""
Application.ScreenUpdating = True
Application.Calculate
Application.Calculation = xlCalculationAutomatic
Sheets("Encodage").Activate
MsgBox "Réservation encodée."
End Sub

Pimpin,
Je pense que je ne peux pas transférer ce genre de fichiers via cette plateforme.
Suis ce lien : Hôtels