XL 2016 Devoir à rendre

isabelle29

XLDnaute Nouveau
Bonsoir à tous
J'ai un devoir à rendre et la question qui me bloque est la suivante :
Que pensez vous de ce code ? est ce qu'on peut faire mieux

Code
X= InputBox (‘’ Veuillez saisir la taille de la personne ‘’)
While x > 200
MsgBox ( ‘’ Attention !! Valeur incorrecte ‘’)
X = InputBox ( ‘’ Entrez à nouveau la taille ‘’)
Wend
Range ( ‘’ G9 ‘’ ) = x

Merci d'avance de votre aide
 

herve62

XLDnaute Barbatruc
Supporter XLD
Bonjour
Pour faire au plus simple
VB:
Private Sub CommandButton1_Click()
Do
x = Application.InputBox(" Veuillez saisir la taille de la personne ", Type:=1, Title:="Valeur inférieur à 200")
  Loop While x > 200

Range(" G9 ") = x
end sub
Type 1 : que numérique autorisé , sinon message erreur automatique
texte à adapter à ton choix

PS : dans ton code les guillemets ne sont pas corrects il faut ceux là : " (double)
 

job75

XLDnaute Barbatruc
Bonjour isabelle29, herve62, le forum,

Pensez aussi aux valeurs nulles ou négatives :
Code:
Dim x As String, n As Double
Do
    x = InputBox("Veuillez saisir la taille de la personne :", "Taille en cm limitée à 200", x)
    If x = "" Then Exit Sub
    n = Val(Replace(x, ",", ".")) 'remplace la virgule par le point
Loop While n > 200 Or n <= 0
Range("G9") = n
Bonne journée.
 

Discussions similaires

  • Résolu(e)
Microsoft 365 FORMULE Excel VBA
Réponses
17
Affichages
723
Réponses
10
Affichages
628
Réponses
8
Affichages
448

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 847
dernier inscrit
Djigbenou