text box, je fais quelque chose d'incorrect !

Un beau bonjour du Québec !

Je veux demander à un usager un %, prendre ce % et le mettre dans une
cellule d'excel.

première tentative, ça marche.

Quand je met 4 ou 5, j'ai mon message de validation (message d'erreur)

J'ai beau tout essayer, rien ne marche, il me manque une petite validatio n ?

test = InputBox("Entrez le pourcentage SVP", "Bonjour Usagé!", 0, , , 1, 1)
If test > "20" Then MsgBox "Mettre un chiffre de 0 à 20 SVP"
Else
Range("h7").Value = test / 100

End If
End Sub

--
merci infiniment !

Bonjour,

Sub essai()
témoin = True
Do While témoin
p = Application.InputBox("1 à 20", Type:=1) ' numérique
If p > 20 Then
MsgBox "erreur!"
Else
[A1] = p / 100
témoin = False
End If
Loop
End Sub

Un userForm serait peut être + convivial.

Codialement JB

Un beau bonjour du Québec !

Je veux demander à un usager un %, prendre ce % et le mettre dans une
cellule d'excel.

première tentative, ça marche.

Quand je met 4 ou 5, j'ai mon message de validation (message d'erreur)

J'ai beau tout essayer, rien ne marche, il me manque une petite validation ?

test = InputBox("Entrez le pourcentage SVP", "Bonjour Usagé!", 0, , , 1, 1)
If test > "20" Then MsgBox "Mettre un chiffre de 0 à 20 SVP"
Else
Range("h7").Value = test / 100

End If
End Sub

--
merci infiniment !

Bonjour JB !

Génial, cela fonctionne très bien, merci !

Détail : comment mettre dans votre macro le "Bonjour Usagé!" dans le haut de
mon inputbox ?

InputBox("Entrez le pourcentage SVP", "Bonjour Usagé!",
et le votre
Application.InputBox("Entrez le pourcentage SVP", Type:=1)
--
merci infiniment !


"JB" wrote:

Bonjour,

Sub essai()
témoin = True
Do While témoin
p = Application.InputBox("1 à 20", Type:=1) ' numérique
If p > 20 Then
MsgBox "erreur!"
Else
[A1] = p / 100
témoin = False
End If
Loop
End Sub

Un userForm serait peut être + convivial.

Codialement JB

Un beau bonjour du Québec !

Je veux demander à un usager un %, prendre ce % et le mettre dans u ne
cellule d'excel.

première tentative, ça marche.

Quand je met 4 ou 5, j'ai mon message de validation (message d'erreur)

J'ai beau tout essayer, rien ne marche, il me manque une petite valid ation ?

test = InputBox("Entrez le pourcentage SVP", "Bonjour Usagé!", 0, , , 1, 1)
If test > "20" Then MsgBox "Mettre un chiffre de 0 à 20 SVP"
Else
Range("h7").Value = test / 100

End If
End Sub

--
merci infiniment !

p = Application.InputBox("1 à 20", "Bonjour Usager", , 100, 100, , ,
1)

Application.InputBox() permet de spécifier le type de données:

0 Une formule.
1 Un nombre.
2 Texte (une chaîne).
4 Une valeur logique (True ou False).
8 Une référence de cellule, sous la forme d'un objet Range.
16 Une valeur d'erreur, telle que #N/A.
64 Un tableau de valeurs


JB

Bonjour JB !

Génial, cela fonctionne très bien, merci !

Détail : comment mettre dans votre macro le "Bonjour Usagé!" dans le haut de
mon inputbox ?

InputBox("Entrez le pourcentage SVP", "Bonjour Usagé!",
et le votre
Application.InputBox("Entrez le pourcentage SVP", Type:=1)
--
merci infiniment !


"JB" wrote:

Bonjour,

Sub essai()
témoin = True
Do While témoin
p = Application.InputBox("1 à 20", Type:=1) ' numérique
If p > 20 Then
MsgBox "erreur!"
Else
[A1] = p / 100
témoin = False
End If
Loop
End Sub

Un userForm serait peut être + convivial.

Codialement JB

Un beau bonjour du Québec !

Je veux demander à un usager un %, prendre ce % et le mettre dans une
cellule d'excel.

première tentative, ça marche.

Quand je met 4 ou 5, j'ai mon message de validation (message d'erreur)

J'ai beau tout essayer, rien ne marche, il me manque une petite validation ?

test = InputBox("Entrez le pourcentage SVP", "Bonjour Usagé!", 0, , , 1, 1)
If test > "20" Then MsgBox "Mettre un chiffre de 0 à 20 SVP"
Else
Range("h7").Value = test / 100

End If
End Sub

--
merci infiniment !