XL 2016 Convertir une chaîne en valeur numérique

[LandryK7]

Bonjour à tous,
Avec la procédure ci dessous je place des données dans une feuille ou je souhaite faire la somme de "CmbMatieres_2" (qui est une une Combobox ou je choisi le montant que je veux) . Mais le chiffre est transformé en chaine de caractères qu'Excel ne reconnait pas comme des chiffres. Du coup dans ma feuille Facture je ne peux pas faire la somme des montants
Quelqu'un pourrait m'aider svp?


Sub MaProcedure_Click()

With Sheets("Factures")


Sheets("Factures").Activate
Range("a1").Select
Sheets("Factures").Range("a" & Rows.Count).End(xlUp)(2).Select

ActiveCell = TxtTuteur_2.Value
ActiveCell.Offset(0, 1).Value = TxtEleveTrouve_2
ActiveCell.Offset(0, 2).Value = "Réabonnement"
ActiveCell.Offset(0, 3).Value = TxtRechargeReabo
ActiveCell.Offset(0, 4).Value = TxtPhone_2
ActiveCell.Offset(0, 5).Value = TxtTarifRéabo_2
ActiveCell.Offset(0, 6).Value = CmbMatieres_2

End with


End Sub

 

[sylvanu]

Bonsoir Landry,
Essayez :

ActiveCell.Offset(0, 3).Value = Val(TxtRechargeReabo)
si TxtRechargeReabo est un nombre.

Fonction Val (Visual Basic pour Applications)

Référence de langage VBA pour Office

docs.microsoft.com

 

[soan]

Bonjour Landry, sylvanu,

ComboBox2 est une chaîne de caractères ; tu dois faire une conversion en nombre ;
essaye avec Val() ; avec CDbl() ; ou avec CCur() ; selon que c'est un nombre entier
ou fractionnaire, et aussi selon la précision numérique voulue.

soan

 

[LandryK7]

Bonsoir Landry,
Essayez :

ActiveCell.Offset(0, 3).Value = Val(TxtRechargeReabo)
si TxtRechargeReabo est un nombre.

Fonction Val (Visual Basic pour Applications)

Référence de langage VBA pour Office

docs.microsoft.com

Merci bien. ça fonctionne 🙂