Problème de valeurs en texte
Linebaker
Messages postés
50
Date d'inscription
Statut
Membre
Dernière intervention
-
Linebaker Messages postés 50 Date d'inscription Statut Membre Dernière intervention -
Linebaker Messages postés 50 Date d'inscription Statut Membre Dernière intervention -
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
À 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
A voir également:
- Problème de valeurs en texte
- Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
- Transcription audio en texte word gratuit - Guide
- Excel cellule couleur si condition texte - Guide
- Mettre un texte en majuscule - Guide
- Traitement de texte gratuit - Guide
3 réponses
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+
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+
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
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
J'avais oublié le CDBL. Effectivement maintenant le tout fonctionne.
Merci