VBA excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA excel

chico008

what the wookie says ?

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 !

Publicité

macray

absolument pas !

Code :

Private Sub Command1_Click()
Dim a As String
a = InputBox("affichage" )
If a = "" Then
MsgBox ("jjj" )
End If
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

chico008

what the wookie says ?

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

chico008

what the wookie says ?

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

macray

attend un peu j'essaye de voir !

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

macray

voilà ton code corriger

Code :

Sub jeux()
Dim a As Integer
Randomize
a = Int(Rnd * 100)
c = InputBox("Devine le nombre entre 0 et 100 !", "DEVINNE version 0." & a, c)
If c <> "" Then
Do While c <> a
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 If
End Sub

*

il te sufisait de mettre une condition !

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

chico008

what the wookie says ?

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

macray

chico008 a écrit a écrit :

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

Code :

Sub jeux()
Dim a As Integer
Dim b
Randomize
a = Int(Rnd * 100)
b:
c = InputBox("Devine le nombre entre 0 et 100 !", "DEVINNE version 0." & a, c)
If Val(c) <> 0 Then
Do While Val(c) <> a
If Val(c) > a Then
z = MsgBox("C'est moin !", vbExclamation)
GoTo b
End If
If Val(c) < a Then
z = MsgBox("C'est plus", vbExclamation)
GoTo b
End If
Loop
If Val(c) = a Then MsgBox ("Tu as gagner !" )
d = MsgBox("Le jeu est terminer !!, tu veut rejouer ?", vbYesNo, "ALORS ?" )
If d = vbYes Then jeux
End If
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

chico008

what the wookie says ?

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

macray

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

Publicité

chico008

what the wookie says ?

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

macray

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 :

if c = "" then c = -1
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

chico008

what the wookie says ?

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

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 code	Couleur case en VBA excel ?
[VBA - EXCEL]Fichier ini	VBA 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

Page générée en 0.057 secondes