VBA excel

VBA excel - VB/VBA/VBS - Programmation

Marsh Posté le 27-07-2002 à 17:56:35    

voila kk1 peut me dire comment definir une fonction pour le bouton annuler d'une inputbox.
pour mon prog, je ve ke annuler arrete le prog, mais lui il fait comme si la valeur saisie etant egal a la precedente !

Reply

Marsh Posté le 27-07-2002 à 17:56:35   

Reply

Marsh Posté le 29-07-2002 à 12:44:15    

absolument pas !  
 
 

Code :
  1. Private Sub Command1_Click()
  2. Dim a As String
  5. a = InputBox("affichage" )
  7. If a = "" Then
  8. MsgBox ("jjj" )
  9. End If
  11. End Sub


 
 
s'il te remet la même valeur, affiche nous le code, car c'est une erreur de programmation de ta part !  


---------------
;) Bienvenue sur le site...:)             http://perso.wanadoo.fr/rapport
Reply

Marsh Posté le 29-07-2002 à 18:14:13    

voial ma macro
 
Sub jeux()
Dim a As Integer
Randomize
a = Int(Rnd * 100)
Do While c <> a
c = InputBox("Devine le nombre entre 0 et 100 !", "DEVINNE version 0." & a, c)
If c > a Then z = MsgBox("C'est moin !", vbExclamation)
If c < a Then z = MsgBox("C'est plus", vbExclamation)
Loop
If c = a Then MsgBox ("Tu as gagner !" )
d = MsgBox("Le jeu est terminer !!, tu veut rejouer ?", vbYesNo, "ALORS ?" )
If d = vbYes Then jeux
End Sub
 
et sur la boite d'entrer kand je clik sur annuler, il me met soit le message "c plus" ou "c moin" !!
moi je veut ke kand on clike sur annuler ca quite (pour ca g un autre macro !)

Reply

Marsh Posté le 30-07-2002 à 18:59:40    

bon ya personne ki c faire ca ou personne veut m'aider ?!

Reply

Marsh Posté le 30-07-2002 à 19:31:41    

attend un peu j'essaye de voir !  ;)


---------------
;) Bienvenue sur le site...:)             http://perso.wanadoo.fr/rapport
Reply

Marsh Posté le 30-07-2002 à 19:37:08    

voilà ton code corriger  
 

Code :
  1. Sub jeux()
  2. Dim a As Integer
  3. Randomize
  4. a = Int(Rnd * 100)
  5. c = InputBox("Devine le nombre entre 0 et 100 !", "DEVINNE version 0." & a, c)
  6. If c <> "" Then
  7.     Do While c <> a
  8.     If c > a Then z = MsgBox("C'est moin !", vbExclamation)
  9.     If c < a Then z = MsgBox("C'est plus", vbExclamation)
  10.     Loop
  11.     If c = a Then MsgBox ("Tu as gagner !" )
  12.     d = MsgBox("Le jeu est terminer !!, tu veut rejouer ?", vbYesNo, "ALORS ?" )
  13.     If d = vbYes Then jeux
  14. End If
  15. End Sub

*
 
il te sufisait de mettre une condition !


---------------
;) Bienvenue sur le site...:)             http://perso.wanadoo.fr/rapport
Reply

Marsh Posté le 30-07-2002 à 20:29:31    

g essayer et ca marche toujours pas !
il me remet le message "c plus" ou "c moin"

Reply

Marsh Posté le 31-07-2002 à 08:54:56    

chico008 a écrit a écrit :

g essayer et ca marche toujours pas !
il me remet le message "c plus" ou "c moin"
 




 

Code :
  1. Sub jeux()
  2. Dim a As Integer
  3. Dim b
  5. Randomize
  6. a = Int(Rnd * 100)
  7. b:
  8. c = InputBox("Devine le nombre entre 0 et 100 !", "DEVINNE version 0." & a, c)
  9. If Val(c) <> 0 Then
  10.     Do While Val(c) <> a
  11.         If Val(c) > a Then
  12.         z = MsgBox("C'est moin !", vbExclamation)
  13.         GoTo b
  14.         End If
  15.        
  16.         If Val(c) < a Then
  17.         z = MsgBox("C'est plus", vbExclamation)
  18.         GoTo b
  19.         End If
  20.     Loop
  21.    
  22.     If Val(c) = a Then MsgBox ("Tu as gagner !" )
  23.     d = MsgBox("Le jeu est terminer !!, tu veut rejouer ?", vbYesNo, "ALORS ?" )
  24.     If d = vbYes Then jeux
  25. End If
  26. End Sub


 
PS1 : Pour info les val te serve à convertir des chaines de caractére en numérique. C'est quand même mieux pour comparer deux nombres, car comparer des "string", avec des "interger", VB le fait peut être, mais sur certains langage tu auras des surprise !
 
ensuite, le numéro de passe, il ne faut même pas le chercher il est affiché, ce que j'ai mis en rouge. Je ne sais pas si c'est volontaire, mais essaye de faire quelques chose de plus dur ! ;)


---------------
;) Bienvenue sur le site...:)             http://perso.wanadoo.fr/rapport
Reply

Marsh Posté le 31-07-2002 à 14:20:04    

moaais bah ca m'avance pas plus a mon porbleme !

Reply

Marsh Posté le 31-07-2002 à 15:01:16    

je viens de te mettre le code corrigé ! je ne vois pas ce que tu veux de plus !  :??:  
 
PS : je l'ai testé et le code que je viens de te mettre marche trés bien, tu peux annuler, et mettre des nombres...Bien sur je n'ai pas gérer si les caractéres était valide !


---------------
;) Bienvenue sur le site...:)             http://perso.wanadoo.fr/rapport
Reply

Marsh Posté le 31-07-2002 à 15:01:16   

Reply

Marsh Posté le 31-07-2002 à 18:58:40    

mouais, bof, kand je met 0 en nombre il quite, c pas top ton system !

Reply

Marsh Posté le 31-07-2002 à 19:07:48    

1 : c'est pas le mien
2 : je ne vais quand même pas tout te faire...la programmation, ce n'est pas un jeu avec les solutions dérrière...il faut un peu cherhcher pour trouver parfois la solution...!  
 
il te suffit de tajouter un ligne
 

Code :
  1. if c = "" then c = -1
  2. If Val(c) <> -1 Then


 
je viens de tester la modif et elle marche, par contre tu auras un problème, en mettant des lettres, ton appli. il quittera ! A toi de gérer si l'utilisateur tape des caractéres ALPHA ! je n'ai pas le temps j'ai un projet à terminer...


---------------
;) Bienvenue sur le site...:)             http://perso.wanadoo.fr/rapport
Reply

Marsh Posté le 31-07-2002 à 20:29:33    

c bon c juste pour les chiffres de toutes facon !
merci beaucoup a tous !

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed