Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel UserForm

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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
papou
Qu'est-ce qui ne marche pas ?
As-tu une erreur ?
As-tu bien retranscris le code avec notamment la ligne :
Me.TextBox1.TabIndex = 0
où 0 est un zéro et pas un o !

Cordialement
Pascal

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

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





































Avatar
Céline
Oui j'ai bien retranscrit le code, je n'ai pas d'erreur qui s'affiche, c'est
juste que rien ne se passe, comme si j'avais rien fait.

Céline


Qu'est-ce qui ne marche pas ?
As-tu une erreur ?
As-tu bien retranscris le code avec notamment la ligne :
Me.TextBox1.TabIndex = 0
où 0 est un zéro et pas un o !

Cordialement
Pascal

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

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