macro aide

[stef784]

Bonjour,

on me demande de construire une macro mais j'ai du mal , voici l'ennoncé:

On s'interesse à la saisie par un utilisateur d'un nombre compris entre 0 et 100. On voudrait prendre en compte le fait que l'utilisateur puisse se tromper.
Ecrire un programme qui demande à un utilisateur de saisir un nombre tant que celui ci n'est pas correct.

Pouvez vous m'aider ? il faut utiliser les boucles?

 

[skoobi]

Re : macro aide

Bonjour,

voici un exemple de code:

Do
  nombre = InputBox("saisir un nombre")
  If Val(nombre) > 100 Then MsgBox "le nombre doit être compris entre 0 et 100"
Loop While Val(nombre) > 100

 

[Spitnolan08]

Re : macro aide

Re,

on me demande de construire une macro mais j'ai du mal

J'espère pour toi que l'informatique n'est pas une matière principale... Car :
= Si(Et("steph874";"Excel");"J'ai du mal";"Espoir")

Comment doivent être saisis les nombres ?

 

[Dull]

Re : macro aide

Salut stef784, Skoobi , le Forum

un autre exemple en prenant l'aide Touche F1 sur les inputboxes

Ne jamais négliger la touche F1

EDITION: Salut Sptinolan

Bonne Journée

 

[Spitnolan08]

Re : macro aide

Re,
Salut Dull, très rare de te croiser!

Sans réponse une option via Userform avec une adaptation de la célèbre formule du docteur Pierrot...
qui évite les saisies négatives, de lettres et supérieures à 100

Cordialement

 

[skoobi]

Re : macro aide

Re,
salut Spit,
salut Dull,

une petite variante du code de Pierrot:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not Chr(KeyAscii) Like "[0-9]" Then KeyAscii = 0
End Sub

Bonne après-midi à vous.

 

[Spitnolan08]

Re : macro aide

Re,

Pas mal Skoobi. Je devrais même dire très bien... En tout cas ça me plait!
Cependant, je préfère la formulation de Pierrot93 qui est beaucoup plus puissante et peut être transposée à énormément de situations dans des contextes très différents.

Bien cordialement

 

[stef784]

Re : macro aide

Merci à vous,

pour repondre à ta question Spitnolan , non l'informatique n'est pas ma matière principale , lol heureusement pour moi

 

[stef784]

Re : macro aide

par contre j'ai fais:

Sub macro()
Dim x As Integer
Do
x = InputBox(" saisir un nombre ")
If x > 100 Then
MsgBox (" le nombre doit etre compris entre 0 et 100 ")
Loop While x > 100
End If
End Sub

mais ils me disent boucle sans do ?

 

[skoobi]

Re : macro aide

Re,

place "End If" avant "Loop While x > 100".

 

[Pierrot93]

Re : macro aide

Bonjour Stef, Spitnolan, Skoobi

une autre solutaion, en utilisant la METHODE "inputbox" plutôt que la fonction , enfin si j'ai bien compris :

Sub test()
Dim x As Variant
Do
    x = Application.InputBox("Nombre entre 0 et 100 ?", , , , , , , 1)
Loop While (x >= 100 Or x <= 0)
End Sub

bon après midi
@+

 

[mutzik]

Re : macro aide

bonjour,

ton loop doit être en dehors de ta boucle if

mais bon, la résolution de ton prob serait beaucoup plus simple en utilisant la validation de donnée sur une cellule, !!!! sans aucun VBA à programmer !!!!