Discussion concernant la mise à jour du 22/02/2019

'Le Coffret des listes de Validation XLD / September 2003
'Sous-Listes Monique
Sub LienWeb1()
Dim Link As String
    Link = "http://www.excel-downloads.com/html/French/forum/messages/1_31466_31466.htm"
  On Error GoTo PasConnect
  ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
  Exit Sub
PasConnect:
  MsgBox "Impossible d'ouvrir " & Link
End Sub

Private Sub CommandButton1_Click()

'rajout manuel

Dim i As Integer

Dim StartMonth As String, NextMonth As String

'Dim Montant As Long

Dim Montant As Single

Dim Divide As Integer

Dim ctr As Object


StartMonth = ComboBox1.Value

Montant = Me.TextBox13.Value

Divide = TextBox14.Value


'Controls("TxtBox" & i).Value = Val(Montant / Divide)

'rajout manuel

'TextBox1.Value = Val(Montant / Divide)

TextBox1.Value = Montant / Divide


End Sub

Private Sub CommandButton1_Click()
Dim i As Integer
Dim StartMonth As String, NextMonth As String
'Dim Montant As Long
Dim Montant As Single
Dim Divide As Integer
Dim ctr As Object
StartMonth = ComboBox1.Value
Montant = Me.TextBox13.Value
Divide = TextBox14.Value
'Controls("TxtBox" & i).Value = Val(Montant / Divide)
'TextBox1.Value = Val(Montant / Divide)
TextBox1.Value = Montant / Divide
End Sub

Private Sub CommandButton1_Click()

Dim i As Integer

'insertion commentaire + ligne vide dessous


Dim StartMonth As String, NextMonth As String

'Dim Montant As Long

Dim Montant As Single

Dim Divide As Integer

Dim ctr As Object

StartMonth = ComboBox1.Value

Montant = Me.TextBox13.Value

Divide = TextBox14.Value

'Controls("TxtBox" & i).Value = Val(Montant / Divide)

'TextBox1.Value = Val(Montant / Divide)

TextBox1.Value = Montant / Divide

End Sub