Format monetaire

Private Sub ClearTextBox()
 ' Efface toutes les valeurs contenues dans les contrôles TextBox du frame nommé frmProjet
 Dim ctrl As Control
 Dim cout As Double
 For Each ctrl In Me.frmProjet.Controls
  If TypeOf ctrl Is MSForms.TextBox Then ctrl.Value = ""
 Next
 ' Met au format monetaire toutes les valeurs contenues dans les contrôles TextBox du frame nommé frmProgression
 For Each ctrl In Me.frmProg.Controls
  If TypeOf ctrl Is MSForms.TextBox Then ctrl.Value = Format(cout, "Currency")
 Next
End Sub