Division sous UserForm VBA Word 2010
rc49100
Messages postés
3
Statut
Membre
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 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 ;)
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 ;)
1 réponse
-
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.
