Discussion :

[thomanneca]

Bonjour,

J'aimerais effectuer des opérations avec des valeurs qui sont introduites dans des toolbox.

Le problème est que lorsqu'une toolbox est vide, il me renvoie une erreur.

Y a-t-il un moyen de faire "sauter" le calcul à la valeur suivante quand une toolbox est vide ?

Je vous remercie pour votre aide.

[Philippe Tulliez]

Bonjour,
Qu'entends-tu par ToolBox ?
Ne serait-ce pas plutôt un contrôle TextBox ?
Si c'est le cas, tu peux utiliser la fonction Val

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Val(Me.TextBox1.Value) * Val(Me.TextBox2.Value)

[thomanneca]

Super, je pense que c'est ça qu'il me faut !

Par contre, n'y aurait-il pas un moyen pour éviter de le reprendre sur chaque TextBox ?
(il s'agit bien de TextBox et non ToolBox)

Je risque parfois d'avoir 10 TextBox différentes. Et je les ai renommées donc je ne pourrais même pas passer par une boucle.

merci pour ton aide

[Philippe Tulliez]

Bonjour,

Et je les ai renommées donc je ne pourrais même pas passer par une boucle.

Bien entendu que c'est possible
Lire Utiliser les contrôles dans un UserForm, en VBA Excel et tout particulièrement le chapitre I-B. Boucler sur les contrôles contenus dans la Forme

[thomanneca]

Bonjour,

Bien entendu que c'est possible
Lire Utiliser les contrôles dans un UserForm, en VBA Excel et tout particulièrement le chapitre I-B. Boucler sur les contrôles contenus dans la Forme

Merci Philippe, je n'avais pas connaissance de cette fonction.

Bonne journée

[patricktoulon]

Bonjour
une autre solution serait d'avoir taguer les textboxs concernés
code dans le userform sinon remplacer "Me" par la variable qui le représente si c'est le cas ou son nom en dur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim Ctrl As Control, somme#
For Each Ctrl In Me.Controls
    If Ctrl.Tag = "toto" Then somme = somme + Val(Replace(Ctrl.Value, ",", "."))
Next Ctrl
MsgBox somme

accepte les décimales!!