OVH Cloud OVH Cloud

UserForm

12 réponses
Avatar
Céline
Bonjour,
voilà j'ai une boîte UserForm avec une zone text seulement j'aimerais que
cette zone text est un format numérique (car en fait on ne rentre que des
chiffres dans cette zone et pour les décimales il est plus facile
d'utilisation de rester sur le clavier numérique j'aimerais que le point soit
compris comme une virgule afin d'éviter de revenir sur le clavier alpha.)
Merci de m'aider

Céline

10 réponses

1 2
Avatar
papou
Bonjour
Va voir chez Misange ici :
http://www.excelabo.net/xl/controles.php#nombretextbox

Cordialement
Pascal

"Céline" a écrit dans le message de news:

Bonjour,
voilà j'ai une boîte UserForm avec une zone text seulement j'aimerais que
cette zone text est un format numérique (car en fait on ne rentre que des
chiffres dans cette zone et pour les décimales il est plus facile
d'utilisation de rester sur le clavier numérique j'aimerais que le point
soit
compris comme une virgule afin d'éviter de revenir sur le clavier alpha.)
Merci de m'aider

Céline


Avatar
Céline
Merci Papou j'ai relevé un truc très intéressant, d'ailleurs ce qu'il me
faut, seulement ce n'est pas très explicite voilà :

Dans un textbox tout ce que tu entres est du texte...
Pour récupérer un nombre tu dois traiter ce texte. Une solution c'est d'écrire
resultat=val(textbox1.value) si tu utilises le point comme séparateur décimal.

Je ne vois pas du tout où il faut écrire resultat=val, j'ai plusieurs essais
et ça ne marche pas, si qqu'un peut m'éclairer ?

Merci
Céline


Bonjour
Va voir chez Misange ici :
http://www.excelabo.net/xl/controles.php#nombretextbox

Cordialement
Pascal

"Céline" a écrit dans le message de news:

Bonjour,
voilà j'ai une boîte UserForm avec une zone text seulement j'aimerais que
cette zone text est un format numérique (car en fait on ne rentre que des
chiffres dans cette zone et pour les décimales il est plus facile
d'utilisation de rester sur le clavier numérique j'aimerais que le point
soit
compris comme une virgule afin d'éviter de revenir sur le clavier alpha.)
Merci de m'aider

Céline







Avatar
papou
Re
Tiens voici un petit exemple tout simple ici :
http://cjoint.com/data/elk4oD7hum.htm

Cordialement
Pascal

"Céline" a écrit dans le message de news:

Merci Papou j'ai relevé un truc très intéressant, d'ailleurs ce qu'il me
faut, seulement ce n'est pas très explicite voilà :

Dans un textbox tout ce que tu entres est du texte...
Pour récupérer un nombre tu dois traiter ce texte. Une solution c'est
d'écrire
resultat=val(textbox1.value) si tu utilises le point comme séparateur
décimal.

Je ne vois pas du tout où il faut écrire resultat=val, j'ai plusieurs
essais
et ça ne marche pas, si qqu'un peut m'éclairer ?

Merci
Céline


Bonjour
Va voir chez Misange ici :
http://www.excelabo.net/xl/controles.php#nombretextbox

Cordialement
Pascal

"Céline" a écrit dans le message de
news:

Bonjour,
voilà j'ai une boîte UserForm avec une zone text seulement j'aimerais
que
cette zone text est un format numérique (car en fait on ne rentre que
des
chiffres dans cette zone et pour les décimales il est plus facile
d'utilisation de rester sur le clavier numérique j'aimerais que le
point
soit
compris comme une virgule afin d'éviter de revenir sur le clavier
alpha.)
Merci de m'aider

Céline









Avatar
Céline
Je n'ai pas accès à ton exemple, je suis au boulot et internet est limité.
Si tu peux me dire comment je dois utiliser le resultat valeur de tout à
l'heure ou me dire ce que je dois écrire dans mes codes se serait plus simple
pour moi.

Merci


Re
Tiens voici un petit exemple tout simple ici :
http://cjoint.com/data/elk4oD7hum.htm

Cordialement
Pascal

"Céline" a écrit dans le message de news:

Merci Papou j'ai relevé un truc très intéressant, d'ailleurs ce qu'il me
faut, seulement ce n'est pas très explicite voilà :

Dans un textbox tout ce que tu entres est du texte...
Pour récupérer un nombre tu dois traiter ce texte. Une solution c'est
d'écrire
resultat=val(textbox1.value) si tu utilises le point comme séparateur
décimal.

Je ne vois pas du tout où il faut écrire resultat=val, j'ai plusieurs
essais
et ça ne marche pas, si qqu'un peut m'éclairer ?

Merci
Céline


Bonjour
Va voir chez Misange ici :
http://www.excelabo.net/xl/controles.php#nombretextbox

Cordialement
Pascal

"Céline" a écrit dans le message de
news:

Bonjour,
voilà j'ai une boîte UserForm avec une zone text seulement j'aimerais
que
cette zone text est un format numérique (car en fait on ne rentre que
des
chiffres dans cette zone et pour les décimales il est plus facile
d'utilisation de rester sur le clavier numérique j'aimerais que le
point
soit
compris comme une virgule afin d'éviter de revenir sur le clavier
alpha.)
Merci de m'aider

Céline














Avatar
papou
Avec
un Userform nommé Userform1
un textbox nommé Textbox1
et un bouton nommé CommandButton1.
Place le code suivant dans ton userform :
Private Sub CommandButton1_Click()
Range("a1").Value = Val(TextBox1)
Me.Hide
End Sub
Ensuite tu lances ton userform, tu saisis un chiffre avec virgule dans ton
textbox puis tu valides sur le bouton.

Cordialement
Pascal




"Céline" a écrit dans le message de news:

Je n'ai pas accès à ton exemple, je suis au boulot et internet est limité.
Si tu peux me dire comment je dois utiliser le resultat valeur de tout à
l'heure ou me dire ce que je dois écrire dans mes codes se serait plus
simple
pour moi.

Merci


Re
Tiens voici un petit exemple tout simple ici :
http://cjoint.com/data/elk4oD7hum.htm

Cordialement
Pascal

"Céline" a écrit dans le message de
news:

Merci Papou j'ai relevé un truc très intéressant, d'ailleurs ce qu'il
me
faut, seulement ce n'est pas très explicite voilà :

Dans un textbox tout ce que tu entres est du texte...
Pour récupérer un nombre tu dois traiter ce texte. Une solution c'est
d'écrire
resultat=val(textbox1.value) si tu utilises le point comme séparateur
décimal.

Je ne vois pas du tout où il faut écrire resultat=val, j'ai plusieurs
essais
et ça ne marche pas, si qqu'un peut m'éclairer ?

Merci
Céline


Bonjour
Va voir chez Misange ici :
http://www.excelabo.net/xl/controles.php#nombretextbox

Cordialement
Pascal

"Céline" a écrit dans le message de
news:

Bonjour,
voilà j'ai une boîte UserForm avec une zone text seulement
j'aimerais
que
cette zone text est un format numérique (car en fait on ne rentre
que
des
chiffres dans cette zone et pour les décimales il est plus facile
d'utilisation de rester sur le clavier numérique j'aimerais que le
point
soit
compris comme une virgule afin d'éviter de revenir sur le clavier
alpha.)
Merci de m'aider

Céline
















Avatar
Céline
Bon j'ai fais mais ça ne marche pas, voilà ce que j'avais :

Private Sub ValeurCible_Click()

Sheets("BILAN PROMOTEUR").Range("S1").Value = TextBox1.Value / 100
Range("F65").GoalSeek Goal:=Range("S1").Value, ChangingCell:=Range("C24")
End Sub

et voilà ce que je viens de changer :

Private Sub ValeurCible_Click()

Sheets("BILAN PROMOTEUR").Range("S1").Value = Val(TextBox1.Value / 100)
Me.Hide
Range("F65").GoalSeek Goal:=Range("S1").Value, ChangingCell:=Range("C24")
End Sub

mais ça ne marche pas j'ai une erreur

Céline


Avec
un Userform nommé Userform1
un textbox nommé Textbox1
et un bouton nommé CommandButton1.
Place le code suivant dans ton userform :
Private Sub CommandButton1_Click()
Range("a1").Value = Val(TextBox1)
Me.Hide
End Sub
Ensuite tu lances ton userform, tu saisis un chiffre avec virgule dans ton
textbox puis tu valides sur le bouton.

Cordialement
Pascal




"Céline" a écrit dans le message de news:

Je n'ai pas accès à ton exemple, je suis au boulot et internet est limité.
Si tu peux me dire comment je dois utiliser le resultat valeur de tout à
l'heure ou me dire ce que je dois écrire dans mes codes se serait plus
simple
pour moi.

Merci


Re
Tiens voici un petit exemple tout simple ici :
http://cjoint.com/data/elk4oD7hum.htm

Cordialement
Pascal

"Céline" a écrit dans le message de
news:

Merci Papou j'ai relevé un truc très intéressant, d'ailleurs ce qu'il
me
faut, seulement ce n'est pas très explicite voilà :

Dans un textbox tout ce que tu entres est du texte...
Pour récupérer un nombre tu dois traiter ce texte. Une solution c'est
d'écrire
resultat=val(textbox1.value) si tu utilises le point comme séparateur
décimal.

Je ne vois pas du tout où il faut écrire resultat=val, j'ai plusieurs
essais
et ça ne marche pas, si qqu'un peut m'éclairer ?

Merci
Céline


Bonjour
Va voir chez Misange ici :
http://www.excelabo.net/xl/controles.php#nombretextbox

Cordialement
Pascal

"Céline" a écrit dans le message de
news:

Bonjour,
voilà j'ai une boîte UserForm avec une zone text seulement
j'aimerais
que
cette zone text est un format numérique (car en fait on ne rentre
que
des
chiffres dans cette zone et pour les décimales il est plus facile
d'utilisation de rester sur le clavier numérique j'aimerais que le
point
soit
compris comme une virgule afin d'éviter de revenir sur le clavier
alpha.)
Merci de m'aider

Céline





















Avatar
papou
Ca ne marchera pas puisque tu effectues un calcul directement sur la saisie
du textbox, il faut faire ta division par 100 après avoir transformé ta
saisie, modifie comme ça :
Sheets("BILAN PROMOTEUR").Range("S1").Value = Val(TextBox1.Value) /100

Cordialement
Pascal


"Céline" a écrit dans le message de news:

Bon j'ai fais mais ça ne marche pas, voilà ce que j'avais :

Private Sub ValeurCible_Click()

Sheets("BILAN PROMOTEUR").Range("S1").Value = TextBox1.Value / 100
Range("F65").GoalSeek Goal:=Range("S1").Value, ChangingCell:=Range("C24")
End Sub

et voilà ce que je viens de changer :

Private Sub ValeurCible_Click()

Sheets("BILAN PROMOTEUR").Range("S1").Value = Val(TextBox1.Value / 100)
Me.Hide
Range("F65").GoalSeek Goal:=Range("S1").Value, ChangingCell:=Range("C24")
End Sub

mais ça ne marche pas j'ai une erreur

Céline


Avec
un Userform nommé Userform1
un textbox nommé Textbox1
et un bouton nommé CommandButton1.
Place le code suivant dans ton userform :
Private Sub CommandButton1_Click()
Range("a1").Value = Val(TextBox1)
Me.Hide
End Sub
Ensuite tu lances ton userform, tu saisis un chiffre avec virgule dans
ton
textbox puis tu valides sur le bouton.

Cordialement
Pascal




"Céline" a écrit dans le message de
news:

Je n'ai pas accès à ton exemple, je suis au boulot et internet est
limité.
Si tu peux me dire comment je dois utiliser le resultat valeur de tout
à
l'heure ou me dire ce que je dois écrire dans mes codes se serait plus
simple
pour moi.

Merci


Re
Tiens voici un petit exemple tout simple ici :
http://cjoint.com/data/elk4oD7hum.htm

Cordialement
Pascal

"Céline" a écrit dans le message de
news:

Merci Papou j'ai relevé un truc très intéressant, d'ailleurs ce
qu'il
me
faut, seulement ce n'est pas très explicite voilà :

Dans un textbox tout ce que tu entres est du texte...
Pour récupérer un nombre tu dois traiter ce texte. Une solution
c'est
d'écrire
resultat=val(textbox1.value) si tu utilises le point comme
séparateur
décimal.

Je ne vois pas du tout où il faut écrire resultat=val, j'ai
plusieurs
essais
et ça ne marche pas, si qqu'un peut m'éclairer ?

Merci
Céline


Bonjour
Va voir chez Misange ici :
http://www.excelabo.net/xl/controles.php#nombretextbox

Cordialement
Pascal

"Céline" a écrit dans le message
de
news:

Bonjour,
voilà j'ai une boîte UserForm avec une zone text seulement
j'aimerais
que
cette zone text est un format numérique (car en fait on ne rentre
que
des
chiffres dans cette zone et pour les décimales il est plus facile
d'utilisation de rester sur le clavier numérique j'aimerais que
le
point
soit
compris comme une virgule afin d'éviter de revenir sur le clavier
alpha.)
Merci de m'aider

Céline























Avatar
Céline
Cool c'est bon, oufff ça fait du bien !!!
Je te remercie beaucoup.

Je ne voudrais pas abuser mais j'ai une dernière requête !!
voilà quand ma boîte apparaît je suis obliger de cliquer dans ma zone de
texte pour entrer mes valeurs, j'aimerais ne pas avoir besoin de le faire,
que le curseur se mette automatiquement dans la zone de texte, que la zone de
texte soit sélectionnée de manière a tout de suite entrer la valeur.

Merci
Céline


Ca ne marchera pas puisque tu effectues un calcul directement sur la saisie
du textbox, il faut faire ta division par 100 après avoir transformé ta
saisie, modifie comme ça :
Sheets("BILAN PROMOTEUR").Range("S1").Value = Val(TextBox1.Value) /100

Cordialement
Pascal


"Céline" a écrit dans le message de news:

Bon j'ai fais mais ça ne marche pas, voilà ce que j'avais :

Private Sub ValeurCible_Click()

Sheets("BILAN PROMOTEUR").Range("S1").Value = TextBox1.Value / 100
Range("F65").GoalSeek Goal:=Range("S1").Value, ChangingCell:=Range("C24")
End Sub

et voilà ce que je viens de changer :

Private Sub ValeurCible_Click()

Sheets("BILAN PROMOTEUR").Range("S1").Value = Val(TextBox1.Value / 100)
Me.Hide
Range("F65").GoalSeek Goal:=Range("S1").Value, ChangingCell:=Range("C24")
End Sub

mais ça ne marche pas j'ai une erreur

Céline


Avec
un Userform nommé Userform1
un textbox nommé Textbox1
et un bouton nommé CommandButton1.
Place le code suivant dans ton userform :
Private Sub CommandButton1_Click()
Range("a1").Value = Val(TextBox1)
Me.Hide
End Sub
Ensuite tu lances ton userform, tu saisis un chiffre avec virgule dans
ton
textbox puis tu valides sur le bouton.

Cordialement
Pascal




"Céline" a écrit dans le message de
news:

Je n'ai pas accès à ton exemple, je suis au boulot et internet est
limité.
Si tu peux me dire comment je dois utiliser le resultat valeur de tout
à
l'heure ou me dire ce que je dois écrire dans mes codes se serait plus
simple
pour moi.

Merci


Re
Tiens voici un petit exemple tout simple ici :
http://cjoint.com/data/elk4oD7hum.htm

Cordialement
Pascal

"Céline" a écrit dans le message de
news:

Merci Papou j'ai relevé un truc très intéressant, d'ailleurs ce
qu'il
me
faut, seulement ce n'est pas très explicite voilà :

Dans un textbox tout ce que tu entres est du texte...
Pour récupérer un nombre tu dois traiter ce texte. Une solution
c'est
d'écrire
resultat=val(textbox1.value) si tu utilises le point comme
séparateur
décimal.

Je ne vois pas du tout où il faut écrire resultat=val, j'ai
plusieurs
essais
et ça ne marche pas, si qqu'un peut m'éclairer ?

Merci
Céline


Bonjour
Va voir chez Misange ici :
http://www.excelabo.net/xl/controles.php#nombretextbox

Cordialement
Pascal

"Céline" a écrit dans le message
de
news:

Bonjour,
voilà j'ai une boîte UserForm avec une zone text seulement
j'aimerais
que
cette zone text est un format numérique (car en fait on ne rentre
que
des
chiffres dans cette zone et pour les décimales il est plus facile
d'utilisation de rester sur le clavier numérique j'aimerais que
le
point
soit
compris comme une virgule afin d'éviter de revenir sur le clavier
alpha.)
Merci de m'aider

Céline




























Avatar
papou
Non tu n'abuses pas.
Code à placer dans ton userform en adaptant avec le nom de ton textbox bien
sûr :
Private Sub UserForm_Initialize()
Me.TextBox1.TabIndex = 0
Me.TextBox1.SetFocus
End Sub

Cordialement
Pascal

"Céline" a écrit dans le message de news:

Cool c'est bon, oufff ça fait du bien !!!
Je te remercie beaucoup.

Je ne voudrais pas abuser mais j'ai une dernière requête !!
voilà quand ma boîte apparaît je suis obliger de cliquer dans ma zone de
texte pour entrer mes valeurs, j'aimerais ne pas avoir besoin de le faire,
que le curseur se mette automatiquement dans la zone de texte, que la zone
de
texte soit sélectionnée de manière a tout de suite entrer la valeur.

Merci
Céline


Ca ne marchera pas puisque tu effectues un calcul directement sur la
saisie
du textbox, il faut faire ta division par 100 après avoir transformé ta
saisie, modifie comme ça :
Sheets("BILAN PROMOTEUR").Range("S1").Value = Val(TextBox1.Value) /100

Cordialement
Pascal


"Céline" a écrit dans le message de
news:

Bon j'ai fais mais ça ne marche pas, voilà ce que j'avais :

Private Sub ValeurCible_Click()

Sheets("BILAN PROMOTEUR").Range("S1").Value = TextBox1.Value / 100
Range("F65").GoalSeek Goal:=Range("S1").Value,
ChangingCell:=Range("C24")
End Sub

et voilà ce que je viens de changer :

Private Sub ValeurCible_Click()

Sheets("BILAN PROMOTEUR").Range("S1").Value = Val(TextBox1.Value / 100)
Me.Hide
Range("F65").GoalSeek Goal:=Range("S1").Value,
ChangingCell:=Range("C24")
End Sub

mais ça ne marche pas j'ai une erreur

Céline


Avec
un Userform nommé Userform1
un textbox nommé Textbox1
et un bouton nommé CommandButton1.
Place le code suivant dans ton userform :
Private Sub CommandButton1_Click()
Range("a1").Value = Val(TextBox1)
Me.Hide
End Sub
Ensuite tu lances ton userform, tu saisis un chiffre avec virgule dans
ton
textbox puis tu valides sur le bouton.

Cordialement
Pascal




"Céline" a écrit dans le message de
news:

Je n'ai pas accès à ton exemple, je suis au boulot et internet est
limité.
Si tu peux me dire comment je dois utiliser le resultat valeur de
tout
à
l'heure ou me dire ce que je dois écrire dans mes codes se serait
plus
simple
pour moi.

Merci


Re
Tiens voici un petit exemple tout simple ici :
http://cjoint.com/data/elk4oD7hum.htm

Cordialement
Pascal

"Céline" a écrit dans le message
de
news:

Merci Papou j'ai relevé un truc très intéressant, d'ailleurs ce
qu'il
me
faut, seulement ce n'est pas très explicite voilà :

Dans un textbox tout ce que tu entres est du texte...
Pour récupérer un nombre tu dois traiter ce texte. Une solution
c'est
d'écrire
resultat=val(textbox1.value) si tu utilises le point comme
séparateur
décimal.

Je ne vois pas du tout où il faut écrire resultat=val, j'ai
plusieurs
essais
et ça ne marche pas, si qqu'un peut m'éclairer ?

Merci
Céline


Bonjour
Va voir chez Misange ici :
http://www.excelabo.net/xl/controles.php#nombretextbox

Cordialement
Pascal

"Céline" a écrit dans le
message
de
news:

Bonjour,
voilà j'ai une boîte UserForm avec une zone text seulement
j'aimerais
que
cette zone text est un format numérique (car en fait on ne
rentre
que
des
chiffres dans cette zone et pour les décimales il est plus
facile
d'utilisation de rester sur le clavier numérique j'aimerais
que
le
point
soit
compris comme une virgule afin d'éviter de revenir sur le
clavier
alpha.)
Merci de m'aider

Céline






























Avatar
Céline
Merci beaucoup Pascal,

j'ai fait tout bien mais ça ne marche pas j'ai cherché pourquoi mais ne
trouve pas.

Céline

Non tu n'abuses pas.
Code à placer dans ton userform en adaptant avec le nom de ton textbox bien
sûr :
Private Sub UserForm_Initialize()
Me.TextBox1.TabIndex = 0
Me.TextBox1.SetFocus
End Sub

Cordialement
Pascal

"Céline" a écrit dans le message de news:

Cool c'est bon, oufff ça fait du bien !!!
Je te remercie beaucoup.

Je ne voudrais pas abuser mais j'ai une dernière requête !!
voilà quand ma boîte apparaît je suis obliger de cliquer dans ma zone de
texte pour entrer mes valeurs, j'aimerais ne pas avoir besoin de le faire,
que le curseur se mette automatiquement dans la zone de texte, que la zone
de
texte soit sélectionnée de manière a tout de suite entrer la valeur.

Merci
Céline


Ca ne marchera pas puisque tu effectues un calcul directement sur la
saisie
du textbox, il faut faire ta division par 100 après avoir transformé ta
saisie, modifie comme ça :
Sheets("BILAN PROMOTEUR").Range("S1").Value = Val(TextBox1.Value) /100

Cordialement
Pascal


"Céline" a écrit dans le message de
news:

Bon j'ai fais mais ça ne marche pas, voilà ce que j'avais :

Private Sub ValeurCible_Click()

Sheets("BILAN PROMOTEUR").Range("S1").Value = TextBox1.Value / 100
Range("F65").GoalSeek Goal:=Range("S1").Value,
ChangingCell:=Range("C24")
End Sub

et voilà ce que je viens de changer :

Private Sub ValeurCible_Click()

Sheets("BILAN PROMOTEUR").Range("S1").Value = Val(TextBox1.Value / 100)
Me.Hide
Range("F65").GoalSeek Goal:=Range("S1").Value,
ChangingCell:=Range("C24")
End Sub

mais ça ne marche pas j'ai une erreur

Céline


Avec
un Userform nommé Userform1
un textbox nommé Textbox1
et un bouton nommé CommandButton1.
Place le code suivant dans ton userform :
Private Sub CommandButton1_Click()
Range("a1").Value = Val(TextBox1)
Me.Hide
End Sub
Ensuite tu lances ton userform, tu saisis un chiffre avec virgule dans
ton
textbox puis tu valides sur le bouton.

Cordialement
Pascal




"Céline" a écrit dans le message de
news:

Je n'ai pas accès à ton exemple, je suis au boulot et internet est
limité.
Si tu peux me dire comment je dois utiliser le resultat valeur de
tout
à
l'heure ou me dire ce que je dois écrire dans mes codes se serait
plus
simple
pour moi.

Merci


Re
Tiens voici un petit exemple tout simple ici :
http://cjoint.com/data/elk4oD7hum.htm

Cordialement
Pascal

"Céline" a écrit dans le message
de
news:

Merci Papou j'ai relevé un truc très intéressant, d'ailleurs ce
qu'il
me
faut, seulement ce n'est pas très explicite voilà :

Dans un textbox tout ce que tu entres est du texte...
Pour récupérer un nombre tu dois traiter ce texte. Une solution
c'est
d'écrire
resultat=val(textbox1.value) si tu utilises le point comme
séparateur
décimal.

Je ne vois pas du tout où il faut écrire resultat=val, j'ai
plusieurs
essais
et ça ne marche pas, si qqu'un peut m'éclairer ?

Merci
Céline


Bonjour
Va voir chez Misange ici :
http://www.excelabo.net/xl/controles.php#nombretextbox

Cordialement
Pascal

"Céline" a écrit dans le
message
de
news:

Bonjour,
voilà j'ai une boîte UserForm avec une zone text seulement
j'aimerais
que
cette zone text est un format numérique (car en fait on ne
rentre
que
des
chiffres dans cette zone et pour les décimales il est plus
facile
d'utilisation de rester sur le clavier numérique j'aimerais
que
le
point
soit
compris comme une virgule afin d'éviter de revenir sur le
clavier
alpha.)
Merci de m'aider

Céline



































1 2