Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 VBA effectuer des opérations de multiplication et division entre textbox

donpopo

XLDnaute Occasionnel
Bonsoir le forum,

Je m'escrime depuis deux heures à effectuer des opérations avec des textbox.

Je souhaite qu'une textbox reçoive le résultat d'une division et d'une multiplication avec 2 autre textbox.
J'ai créé une boucle pour effectuer cette opération six fois avec incrémentation de certains textbox.

VB:
For lig = 1 To 6
    If Controls("TextBox" & lig) <> "" Then
        ("TextBox" & lig * 10 + 3) = (CDbl(TextBox202) / CDbl(TextBox200)) * CDbl("Textbox" & lig * 10)
    End If
    lig = lig + 1
Next

Lorsque je fait des opérations entre des textbox numérotées manuellement (comme les deux premières), cela fonctionne.
Mais lorsque j'insère une textbox dont le numéro est défini par la boucle, cela me met une erreur
"Erreur de compilation - Erreur de syntaxe"

Je ne vois pas comment je peux procéder.

De plus, je cherche également à ce que le résultat ait maximum 2 décimales.

Merci pour votre aide,
Donpopo
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…