OVH Cloud OVH Cloud

Problème saisie valeur userform.

12 réponses
Avatar
j0b
Bonsoir à vous, alors voila j'ai réalisé un userform qui me saisie des
valeurs dans une feuille mais le problème c est qu une fois les valeurs dans
la feuille certaine cellule programmée s'execute mal car la valeur est saisie
comme une valeur texte ou une parenthèse apparait devant. Je sais que je ne
suis pas du tout claire mais si une personne a déjà eut le problème, elle va
me comprendre lol. Merci en tout cas pour votre aide.

10 réponses

1 2
Avatar
Daniel
Bonsoir.
Si tes valeurs numériques sont saisies dans des textboxes, il faut les
convertir :
Pour des entiers :
textbox1.value=clng(textbox1.value)
pour des nombres quelconques :
textbox1.valueÍbl(textbox1.value)
Cordialement.
Daniel
"j0b" a écrit dans le message de news:

Bonsoir à vous, alors voila j'ai réalisé un userform qui me saisie des
valeurs dans une feuille mais le problème c est qu une fois les valeurs
dans
la feuille certaine cellule programmée s'execute mal car la valeur est
saisie
comme une valeur texte ou une parenthèse apparait devant. Je sais que je
ne
suis pas du tout claire mais si une personne a déjà eut le problème, elle
va
me comprendre lol. Merci en tout cas pour votre aide.


Avatar
j0b
Merci mais cela ne fonctionne pas, j'ai toujours le débogeur qui s'affiche au
niveau de ce code la. Merci

"Daniel" wrote:

Bonsoir.
Si tes valeurs numériques sont saisies dans des textboxes, il faut les
convertir :
Pour des entiers :
textbox1.value=clng(textbox1.value)
pour des nombres quelconques :
textbox1.valueÍbl(textbox1.value)
Cordialement.
Daniel
"j0b" a écrit dans le message de news:

Bonsoir à vous, alors voila j'ai réalisé un userform qui me saisie des
valeurs dans une feuille mais le problème c est qu une fois les valeurs
dans
la feuille certaine cellule programmée s'execute mal car la valeur est
saisie
comme une valeur texte ou une parenthèse apparait devant. Je sais que je
ne
suis pas du tout claire mais si une personne a déjà eut le problème, elle
va
me comprendre lol. Merci en tout cas pour votre aide.







Avatar
MichDenis
Un fichier exemple là :

http://cjoint.com/?ldlcsirYOT



"j0b" a écrit dans le message de news:

Bonsoir à vous, alors voila j'ai réalisé un userform qui me saisie des
valeurs dans une feuille mais le problème c est qu une fois les valeurs dans
la feuille certaine cellule programmée s'execute mal car la valeur est saisie
comme une valeur texte ou une parenthèse apparait devant. Je sais que je ne
suis pas du tout claire mais si une personne a déjà eut le problème, elle va
me comprendre lol. Merci en tout cas pour votre aide.
Avatar
j0b
C'est nickel comme exemple, michel denis t'es balaize mais ca marche pas
toujours lol. J'ai toujours le meme prob, j'ai mis une capture d'écran pour
montrer mon prob :

http://volwerik.free.fr/Screenshots/Sans%20titre.JPG


Un fichier exemple là :

http://cjoint.com/?ldlcsirYOT



"j0b" a écrit dans le message de news:

Bonsoir à vous, alors voila j'ai réalisé un userform qui me saisie des
valeurs dans une feuille mais le problème c est qu une fois les valeurs dans
la feuille certaine cellule programmée s'execute mal car la valeur est saisie
comme une valeur texte ou une parenthèse apparait devant. Je sais que je ne
suis pas du tout claire mais si une personne a déjà eut le problème, elle va
me comprendre lol. Merci en tout cas pour votre aide.





Avatar
MichDenis
désolé, je ne peux rien déduire quant à la problématique que tu rencontres
avec ta "capture d'écran"... tu vas devoir expliquer ce que tu éprouves
comme difficulté ... et en quoi ça ne marche pas ...


"j0b" a écrit dans le message de news:

C'est nickel comme exemple, michel denis t'es balaize mais ca marche pas
toujours lol. J'ai toujours le meme prob, j'ai mis une capture d'écran pour
montrer mon prob :

http://volwerik.free.fr/Screenshots/Sans%20titre.JPG


Un fichier exemple là :

http://cjoint.com/?ldlcsirYOT



"j0b" a écrit dans le message de news:

Bonsoir à vous, alors voila j'ai réalisé un userform qui me saisie des
valeurs dans une feuille mais le problème c est qu une fois les valeurs dans
la feuille certaine cellule programmée s'execute mal car la valeur est saisie
comme une valeur texte ou une parenthèse apparait devant. Je sais que je ne
suis pas du tout claire mais si une personne a déjà eut le problème, elle va
me comprendre lol. Merci en tout cas pour votre aide.





Avatar
j0b
En fait quand je saisie les valeurs manuellement, elles respectent
parfaitement la mise en forme la cellule et donc je rencontre aucun problème
avec les formules de calcul qui sollicitent ces cellules. Mais quand les
valeurs sont saisies avec le userform elle se décalent dans la cellule et
donc les formules de calcul sont inéfficaces avec les valeurs saisies. A ce
moment la j'obtiens un message qui est le meme que sur la capture et donc un
décallage qui est bien apparant comme sur la capture

"MichDenis" wrote:

désolé, je ne peux rien déduire quant à la problématique que tu rencontres
avec ta "capture d'écran"... tu vas devoir expliquer ce que tu éprouves
comme difficulté ... et en quoi ça ne marche pas ...


"j0b" a écrit dans le message de news:

C'est nickel comme exemple, michel denis t'es balaize mais ca marche pas
toujours lol. J'ai toujours le meme prob, j'ai mis une capture d'écran pour
montrer mon prob :

http://volwerik.free.fr/Screenshots/Sans%20titre.JPG


Un fichier exemple là :

http://cjoint.com/?ldlcsirYOT



"j0b" a écrit dans le message de news:

Bonsoir à vous, alors voila j'ai réalisé un userform qui me saisie des
valeurs dans une feuille mais le problème c est qu une fois les valeurs dans
la feuille certaine cellule programmée s'execute mal car la valeur est saisie
comme une valeur texte ou une parenthèse apparait devant. Je sais que je ne
suis pas du tout claire mais si une personne a déjà eut le problème, elle va
me comprendre lol. Merci en tout cas pour votre aide.










Avatar
MichDenis
A ) Tout ce que tu peux écrire dans un TEXTBOX même si c'est un chiffre
représente une valeur TEXTE .

B ) Pour transformer un nombre écrit dans un textbox en valeur numérique,
tu as 2 possibilités :

1 - Utiliser les fonctions de conversions
Exemple : Range("A1") = Clng(Me.Textbox1)
Les fonctions de conversion sont applicables seulement si dans ton textbox
tu as utilisé le même séparateur décimale que celui définit dans le panneau de
configuration de Windows...sinon la fonction de conversion se plante....
Il y a plusieurs fonctions de conversion -> aide Excel Fonctions de conversion

2- Utiliser la fonction Val()
Exemple : Range("A1") = Val(Me.Textbox1)
La fonction Val() ne peut pas travailler avec le séparateur décimale "la virgule"
tu dois obligatoirement utiliser le point lors de la saisie dans ton textbox.

Conclusion : Selon la méthode que tu désires utiliser, il est impératif de contrôler
ce que l'usager tapera comme séparateur décimale dans le textbox
Le fichier exemple est une démonstration d'une façon de faire....

P.S. Attention, si tes formats de cellule ne sont pas au format standard, tu dois
ajouter une ligne au code que je t'ai soumis afin de lui donner ce format
Range("A1").numberformat = "General"


"j0b" a écrit dans le message de news:

En fait quand je saisie les valeurs manuellement, elles respectent
parfaitement la mise en forme la cellule et donc je rencontre aucun problème
avec les formules de calcul qui sollicitent ces cellules. Mais quand les
valeurs sont saisies avec le userform elle se décalent dans la cellule et
donc les formules de calcul sont inéfficaces avec les valeurs saisies. A ce
moment la j'obtiens un message qui est le meme que sur la capture et donc un
décallage qui est bien apparant comme sur la capture

"MichDenis" wrote:

désolé, je ne peux rien déduire quant à la problématique que tu rencontres
avec ta "capture d'écran"... tu vas devoir expliquer ce que tu éprouves
comme difficulté ... et en quoi ça ne marche pas ...


"j0b" a écrit dans le message de news:

C'est nickel comme exemple, michel denis t'es balaize mais ca marche pas
toujours lol. J'ai toujours le meme prob, j'ai mis une capture d'écran pour
montrer mon prob :

http://volwerik.free.fr/Screenshots/Sans%20titre.JPG


Un fichier exemple là :

http://cjoint.com/?ldlcsirYOT



"j0b" a écrit dans le message de news:

Bonsoir à vous, alors voila j'ai réalisé un userform qui me saisie des
valeurs dans une feuille mais le problème c est qu une fois les valeurs dans
la feuille certaine cellule programmée s'execute mal car la valeur est saisie
comme une valeur texte ou une parenthèse apparait devant. Je sais que je ne
suis pas du tout claire mais si une personne a déjà eut le problème, elle va
me comprendre lol. Merci en tout cas pour votre aide.










Avatar
j0b
Cette fois ci j'ai bien appliqué le cdbl(Me.textbox1) est ca fonctionne
nickel. Merci bien mais je sens que tu n'as pas finis avec moi car je suis
entrain de faire un projet pour l école et c'est un peu le bordel lol. Merci
pour le coup j'apprécie vraiment.

"MichDenis" wrote:

A ) Tout ce que tu peux écrire dans un TEXTBOX même si c'est un chiffre
représente une valeur TEXTE .

B ) Pour transformer un nombre écrit dans un textbox en valeur numérique,
tu as 2 possibilités :

1 - Utiliser les fonctions de conversions
Exemple : Range("A1") = Clng(Me.Textbox1)
Les fonctions de conversion sont applicables seulement si dans ton textbox
tu as utilisé le même séparateur décimale que celui définit dans le panneau de
configuration de Windows...sinon la fonction de conversion se plante....
Il y a plusieurs fonctions de conversion -> aide Excel Fonctions de conversion

2- Utiliser la fonction Val()
Exemple : Range("A1") = Val(Me.Textbox1)
La fonction Val() ne peut pas travailler avec le séparateur décimale "la virgule"
tu dois obligatoirement utiliser le point lors de la saisie dans ton textbox.

Conclusion : Selon la méthode que tu désires utiliser, il est impératif de contrôler
ce que l'usager tapera comme séparateur décimale dans le textbox
Le fichier exemple est une démonstration d'une façon de faire....

P.S. Attention, si tes formats de cellule ne sont pas au format standard, tu dois
ajouter une ligne au code que je t'ai soumis afin de lui donner ce format
Range("A1").numberformat = "General"


"j0b" a écrit dans le message de news:

En fait quand je saisie les valeurs manuellement, elles respectent
parfaitement la mise en forme la cellule et donc je rencontre aucun problème
avec les formules de calcul qui sollicitent ces cellules. Mais quand les
valeurs sont saisies avec le userform elle se décalent dans la cellule et
donc les formules de calcul sont inéfficaces avec les valeurs saisies. A ce
moment la j'obtiens un message qui est le meme que sur la capture et donc un
décallage qui est bien apparant comme sur la capture

"MichDenis" wrote:

désolé, je ne peux rien déduire quant à la problématique que tu rencontres
avec ta "capture d'écran"... tu vas devoir expliquer ce que tu éprouves
comme difficulté ... et en quoi ça ne marche pas ...


"j0b" a écrit dans le message de news:

C'est nickel comme exemple, michel denis t'es balaize mais ca marche pas
toujours lol. J'ai toujours le meme prob, j'ai mis une capture d'écran pour
montrer mon prob :

http://volwerik.free.fr/Screenshots/Sans%20titre.JPG


Un fichier exemple là :

http://cjoint.com/?ldlcsirYOT



"j0b" a écrit dans le message de news:

Bonsoir à vous, alors voila j'ai réalisé un userform qui me saisie des
valeurs dans une feuille mais le problème c est qu une fois les valeurs dans
la feuille certaine cellule programmée s'execute mal car la valeur est saisie
comme une valeur texte ou une parenthèse apparait devant. Je sais que je ne
suis pas du tout claire mais si une personne a déjà eut le problème, elle va
me comprendre lol. Merci en tout cas pour votre aide.















Avatar
AV
B ) Pour transformer un nombre écrit dans un textbox en valeur numérique,
tu as 2 possibilités :


Et même 3, 4, 5....9^9

Exemples :
Range("A1") = 1*(Me.Textbox1)
Range("A1") = 0 + (Me.Textbox1)
Range("A1") = Me.TextBox1 / Application.RoundUp(Application.Atanh(0.7615), 0)

Ouarf, ouarf..;-)

AV

Avatar
MichDenis
| Exemples :
| Range("A1") = 1*(Me.Textbox1)
| Range("A1") = 0 + (Me.Textbox1)
| Range("A1") = Me.TextBox1 / Application.RoundUp(Application.Atanh(0.7615), 0)

Tu peux utiliser ces méthodes qui te sont chers seulement
si tu as dans ton textbox un séparateur décimale équivalent
au séparateur décimale définit dans le panneau de configuration.

En conséquence :
- Obligation de gérer le séparateur décimale demeure...
- Je préfère utiliser la fonction de conversion CLng
(Excel-VBA sont très permissifs... mais ce n'est pas vrai pour d'autres languages)
(aussi bien y aller pour la forme générale....)
1 2