Re : Décharger un combobox dans des cellules excel
Bravo bhbh, t'as fait drolement vite en plus,
mais si je peux me permettre de m'incruster, je joins une petite modif
pour éviter le rajout des 1 quand click OK
et rectifier un petit oubli en fin de code.
Case Is = "Tomate"
col = IIf(Controls("Opt1") = True, 1, 2)
lign = IIf(col = 1, lign1, lign2)
lignt = IIf(lign1 > lign2, lign1, lign2)
'Cells(lign + 1, col).Value = 1
TextBox2.Value = Evaluate("SUM(A2:A" & lign1 + 1 & ")")
TextBox3.Value = Evaluate("SUM(B2:B" & lign2 + 1 & ")")
TextBox4.Value = Format(TextBox3.Value / Evaluate("SUM(A2:B" & lignt & ")"), "0.00%")
Case Is = "Pomme de terre"
col = IIf(Controls("Opt1") = True, 3, 4)
lign = IIf(col = 3, lign3, lign4)
lignt = IIf(lign3 > lign4, lign3, lign4)
' Cells(lign + 1, col).Value = 1
TextBox2.Value = Evaluate("SUM(C2:C" & lign3 + 1 & ")")
TextBox3.Value = Evaluate("SUM(D2
" & lign4 + 1 & ")")
TextBox4.Value = Format(TextBox3.Value / Evaluate("SUM(
C2" & lignt & ")"), "0.00%")
@+