Division sous UserForm VBA Word 2010

rc49100 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
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 ;)
A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 762
 
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.
0