Problème de valeurs en texte

Question

Bonsoir,

 À l'aide d'un USF, j'ajoute des valeurs des les cellules. Le tout va bien.

 Avec un 2e USF pour corriger ou ajouter des valeurs, les valeurs non modifiées se remettent en mode texte ? Comment faire qu'elles restent en nombre ce qui fausse mes calculs.

 Voici une partie du code :
 If OptionButton1 = True Then
 ActiveCell.Offset(4, 0).Value = TextBox1.Value
 ActiveCell.Offset(5, 0).Value = TextBox2.Value
 ActiveCell.Offset(6, 0).Value = TextBox3.Value
 ActiveCell.Offset(7, 0).Value = TextBox4.Value
 ActiveCell.Offset(8, 0).Value = TextBox5.Value
 ActiveCell.Offset(9, 0).Value = TextBox6.Value
 ActiveCell.Offset(10, 0).Value = TextBox7.Value
 ActiveCell.Offset(11, 0).Value = TextBox8.Value
 ActiveCell.Offset(12, 0).Value = TextBox9.Value
...

Merci

Gyrus · Answer

Bonjour,

Il te faut partir du principe qu'une TextBox contient toujours du texte.
Pour renseigner une cellule avec le contenu d'une TextBox, il faut donc convertir la valeur.

Exemple :
ActiveCell.Offset(4, 0).Value = CDouble(TextBox1.Value)

A+

Linebaker · Answer

Bonjour,

Un autre problème survient. Si un des textbox de userform est vide, j'ai le message suivant : Erreur 13, Incompatibilité de type.

Comment corrigé ?

Merci

Gyrus · Answer

Tu peux utiliser la fonction VAL :
ActiveCell.Offset(4, 0).Value = Val(TextBox1.Value) 

A+

Problème de valeurs en texte

3 réponses

Discussions similaires

Newsletters