SR.Text = CDbl(Form4.CF.Text) / (CDbl(Form4.TxMCV.Text) * 100) Dim Pmt As Double Pmt = 12 * (CDbl(SR.Text) / CDbl(Form3.Nbrbv.Text)) With PM Select Case Pmt Case 0 To 1 .Text = "le seuil de rentabilité sera atteind courant Janvier." Case 1 To 2 .Text = "le seuil de rentabilité sera atteind courant Février." Case 2 To 3 .Text = "le seuil de rentabilité sera atteind courant Mars." Case 3 To 4 .Text = "le seuil de rentabilité sera atteind courant Avril." Case 4 To 5 .Text = "le seuil de rentabilité sera atteind courant Mai." Case 5 To 6 .Text = "le seuil de rentabilité sera atteind courant Juin." Case 6 To 7 .Text = "le seuil de rentabilité sera atteind courant Juillet." Case 7 To 8 .Text = "le seuil de rentabilité sera atteind courant Aout." Case 8 To 9 .Text = "le seuil de rentabilité sera atteind courant Septembre." Case 9 To 10 .Text = "le seuil de rentabilité sera atteind courant Octobre." Case 10 To 11 .Text = "le seuil de rentabilité sera atteind courant Novembre." Case 11 To 10 .Text = "le seuil de rentabilité sera atteind courant Decembre." Case Else .Text = "le seuil de rentabilité ne sera pas atteind cette année." End Select End With
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question