Division sous UserForm VBA Word 2010 Fermé

Question

Bonjour à tous,

Je souhaite réaliser une division de deux chiffres saisis dans des Textbox. J'ai beau chercher sur le net mais je ne trouve pas ce que je veux.

Cette problématique vous dit quelque chose ?


Merci ;)

pijaku · Answer

Bonjour,
Déjà, un textbox renvoie une valeur de type String, chaîne de caractères. Comme il ne s'agit pas d'un nombre, la division est impossible.
Il te faut donc déclarer deux variables (pour 2 textbox), de type Long (nombres sans virgules) ou de type Double (avec virgules). Il te faudra alors convertir tes textbox, de String à Long (ou Double) avec CLng() ou CDbl().

Voici, en gros ce que ça donne :

Sub Test()
Dim ValTxt1 As Long, ValTxt2 As Long, Result As Double

ValTxt1 = CLng(TextBox1.Value)
ValTxt2 = CLng(TextBox2.Value)
Result = ValTxt1 / ValTxt2
MsgBox Result
End Sub

NB : le résultat d'une division de deux nombres entiers pouvant être décimal, j'ai choisit de le déclarer As Double.

Division sous UserForm VBA Word 2010

1 réponse

Discussions similaires