Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1805 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA excel

n°184349
chico008
what the wookie says ?
Posté le 27-07-2002 à 17:56:35  profilanswer
 

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 !

mood
Publicité
Posté le 27-07-2002 à 17:56:35  profilanswer
 

n°185131
macray
Posté le 29-07-2002 à 12:44:15  profilanswer
 

absolument pas !  
 
 

Code :
  1. Private Sub Command1_Click()
  2. Dim a As String
  3. a = InputBox("affichage" )
  4. If a = "" Then
  5. MsgBox ("jjj" )
  6. End If
  7. 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
n°185549
chico008
what the wookie says ?
Posté le 29-07-2002 à 18:14:13  profilanswer
 

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 !)

n°186497
chico008
what the wookie says ?
Posté le 30-07-2002 à 18:59:40  profilanswer
 

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

n°186503
macray
Posté le 30-07-2002 à 19:31:41  profilanswer
 

attend un peu j'essaye de voir !  ;)


---------------
;) Bienvenue sur le site...:)             http://perso.wanadoo.fr/rapport
n°186508
macray
Posté le 30-07-2002 à 19:37:08  profilanswer
 

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
n°186529
chico008
what the wookie says ?
Posté le 30-07-2002 à 20:29:31  profilanswer
 

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

n°186746
macray
Posté le 31-07-2002 à 08:54:56  profilanswer
 

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
  4. Randomize
  5. a = Int(Rnd * 100)
  6. b:
  7. c = InputBox("Devine le nombre entre 0 et 100 !", "DEVINNE version 0." & a, c)
  8. If Val(c) <> 0 Then
  9.     Do While Val(c) <> a
  10.         If Val(c) > a Then
  11.         z = MsgBox("C'est moin !", vbExclamation)
  12.         GoTo b
  13.         End If
  14.        
  15.         If Val(c) < a Then
  16.         z = MsgBox("C'est plus", vbExclamation)
  17.         GoTo b
  18.         End If
  19.     Loop
  20.    
  21.     If Val(c) = a Then MsgBox ("Tu as gagner !" )
  22.     d = MsgBox("Le jeu est terminer !!, tu veut rejouer ?", vbYesNo, "ALORS ?" )
  23.     If d = vbYes Then jeux
  24. End If
  25. 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
n°187126
chico008
what the wookie says ?
Posté le 31-07-2002 à 14:20:04  profilanswer
 

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

n°187197
macray
Posté le 31-07-2002 à 15:01:16  profilanswer
 

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
mood
Publicité
Posté le 31-07-2002 à 15:01:16  profilanswer
 

n°187551
chico008
what the wookie says ?
Posté le 31-07-2002 à 18:58:40  profilanswer
 

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

n°187557
macray
Posté le 31-07-2002 à 19:07:48  profilanswer
 

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
n°187587
chico008
what the wookie says ?
Posté le 31-07-2002 à 20:29:33  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA excel

 

Sujets relatifs
[VBA] qqun aurait un Mac pour tester un fichier Excel dev. sous PC?Concatenation sous VBA Excel...
[VBA] Excel, créer une feuille à la volée et lui affecter du codeCouleur case en VBA excel ?
[VBA - EXCEL]Fichier iniVBA Excel. 2 Workbook ouvert: je veux appeler un module de l autre
[VBA]C possible de faire ca ? + Excel, formules de fou ;)**** VBA Excel: Comment selectionner un graphique existant ??? *******
[VBA] Fusionner le texte de cellules contigues en VBA Excel (Urgent)HE LP !! ----> VBA + Excel ! <----
Plus de sujets relatifs à : VBA excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR