Format monetaire

sergio -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
bonjour a tous

le code suivant semble fonctionner 
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


Mais des que j,essaie d'écrire les valeurs dans une feuille excel ca ne passe pas

les cellules de la feuille restent en mode texte, donc je ne peux rien faire avec


Merci de votre aide
A voir également:

1 réponse

Réponse 1 / 1
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour, si ton code semble fonctionner, qu'attends-tu de nous?
peux-tu expliquer comment tu "essaies d'écrire les valeurs dans une feuille excel", quelles valeurs?
0