• Initiateur de la discussion Initiateur de la discussion stef784
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

stef784

XLDnaute Junior
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?
 
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
 

Pièces jointes

Dernière édition:
Re : macro aide

Re,
salut Spit, 🙂
salut Dull, 🙂

une petite variante du code de Pierrot:
Code:
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.
 
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
 
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 ?
 
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 :

Code:
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
@+
 
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 !!!!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
20
Affichages
767
Retour