Sub ex_1_cellule_nommées()
'données
Dim A As Long, B As Long, C As Long, D As Long, E As Long, L As Integer, total_sec As Long, reponse As Long, inv As Long, retinv As Long, ta
'entrée des données
A = InputBox("Vous avez le choix entre ces différents systèmes de chauffage, veuillez tapez le numero qui vous convient: 1- Aérothermie 2- Géothermie 3- Chaudière gaz condensation 4- Chaudières condensation fioul 5- Chaudières Bois", "", 0)
inv = 0
retinv = 0
B = InputBox("Veuillez préciser votre configuration de chauffage: 6- Plancher chauffant au rez-de-chaussée ainsi qu'à l'étage 7- Plancher chauffant au rez-de-chaussée et radiateurs à l'étage", "", 0)
ta = Worksheets("Feuil1").Range("H" & B + 2).Value
C = InputBox("Veuillez préciser la configuration de votre ensemble: 8- Chauffage + ECS 9- Chauffage et ECS Indépendant", "", 0)
If A < 5 Then L = 12 + (A * 6) + IIf(C = 8, 3, 0) Else L = 42
ta = ta + Worksheets("Feuil1").Range("D" & L).Value - Worksheets("Feuil1").Range("E" & L).Value
If A = 2 And C = 9 Then
E = InputBox("Pour ce choix d'ECS indépendant, nous vous conseillons d'utiliser un thermodynamique, deux variantes vous est proposées. Vous choisissez celle qui vous convient: 10- Version Split 11- Version Monobloc ", "", 0)
ta = ta + Worksheets("Feuil1").Cells(24, E - 1).Value
End If
D = InputBox("Souhaitez-vous que votre installation possède 2 circuits de chauffes? 12- oui 13- non ", "", 0)
If D = 12 Then
If A < 5 Then L = 12 + (A * 6) + IIf(C = 8, 3, 0) Else L = 42
ta = ta + Worksheets("Feuil1").Range("F" & L).Value
End If
'Traitement
MsgBox (" L'investissement de votre installation de chauffage est de " & ta & " €")
'affichage
End Sub