Discussion :

[Benouman]

Bonjour,
J'ai crée un formulaire VBA, qui permet aux utilisateurs de remplir des informations comme le nombre de produit qu'ils ont validé...
Problème: le format des valeurs entré est du texte, j'aimerai le convertir en nombre, j'utilise cette fonction, mais ça me retourne toujours un message d'erreur comme quoi la fonction ou le sub est non défini.

Code :

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

1
2
 
ActiveCell.Offset(0, 1).Value = value(textBox1)

TextBox1 est le nom de textBox du nombre de produit dans mon formulaire

Comme vous l'avez certainement constater, je suis débutant, donc je vous demande un peu de tolérance

Merci pour votre aide,

[unparia]

Bonjour
value n'est ni une fonction, ni un array (une matrice).
value peut être une propriété.
txtValeur.value est par exemple la propriété value d'une textbox nommée txtValeur

[Benouman]

Merci unparia

Bonjour
value n'est ni une fonction, ni un array (une matrice).
value peut être une propriété.
txtValeur.value est par exemple la propriété value d'une textbox nommée txtValeur

[BENNASR]

J'imagine que si j'ai un autre champs texte, avec du texte que je veux séparer le nom du matricule, exemple: Nom [11111]
Je peux utiliser la fonction suivante:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3


ActiveCell.Offset(0, 1).Value = left(textbox2.value, search("[", textbox2.value)-2)

donnez un exemple stp

[Benouman]

Voici un exemple

L'utilisateur sélectionne dans son formulaire un champs John Doe [12541] (nom + [Matricule])

Ce que j'aimerai faire c'est de séparer le nom du matricule dans deux cellules différentes, c'est pour cela que j'ai utilisé la fonction que j'ai envoyé mais ça me donne un message d'erreur.

Merci,

donnez un exemple stp

[unparia]

Ah ..
On prend lentement mais sûrement un chemin distinct (difficulté autre) de celui du sujet ouvert ...
---->>
Discussion à lire
https://www.developpez.net/forums/d1...entre-symbole/
Elle est toute "fraîche" et concerne la même problématique.

[BENNASR]

bonsoir
essayez avec

Code :

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

ActiveCell.Offset(0, 1).Value = cdbl(txtValeur.value)

[Benouman]

Super, ça fonctionne, merci pour ton aide...
J'imagine que si j'ai un autre champs texte, avec du texte que je veux séparer le nom du matricule, exemple: Nom [11111]
Je peux utiliser la fonction suivante:

Code :

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

1
2
3
 
 
ActiveCell.Offset(0, 1).Value = left(textbox2.value, search("[", textbox2.value)-2)

Merci,

bonsoir
essayez avec

Code :

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

ActiveCell.Offset(0, 1).Value = cdbl(txtValeur.value)

[Patrice740]

Bonjour,

Comme vous l'avez certainement constater, je suis débutant, ...

Une excellente habitude à prendre dès le début :
N'utiliser les objets actifs (comme ActiveCell) que quand on ne peut pas faire autrement, ce qui est rarement le cas..

[Benouman]

Merci Path,
Est ce que tu peux m'envoyer un lien de lecture pour plus d'information, je peux remplacer ActiveCell par quoi?

Merci encore...

Bonjour,


Une excellente habitude à prendre dès le début :
N'utiliser les objets actifs (comme ActiveCell) que quand on ne peut pas faire autrement, ce qui est rarement le cas..

[Patrice740]

Merci Path,
Est ce que tu peux m'envoyer un lien de lecture pour plus d'information, je peux remplacer ActiveCell par quoi?
Merci encore...

Ce conseil, est induit pas un autre qui le précède : ne jamais utiliser Select (sauf quand c'est absolument indispensable)
Il s'agit plus de concevoir un code à base d'objets désignés, c'est à dire de remplacer ActiveCell par le Range adéquat qui aura été défini auparant.

Je n'ai malheureusement pas de lien à te fournir (mais serais aussi preneur d'un tuto qui explique ces principes)

[Pierre Fauconnier]

Salut.

Exécute le code suivant pas à pas pour voir comment il fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test1()
Dim a As String
Dim n As String
Dim m As String
 
a = "John Doe [12345]"
n = Left(a, InStr(1, a, "[") - 2)
m = Replace(Replace(a, Left(a, InStr(a, "[")), ""), "]", "")
' ou bien si n est déja évalué
m = Replace(Replace(a, n & " [", ""), "]", "")
End Sub