Le jeu nverse du nombre mystère

[Arnaud]

bonjour, ayant réussi a créer le programme en vba sous excel du chiffre mystère (en voici le programme) :

Sub mystere()
Dim nombre As Integer
Dim cpt As Byte
Dim bon As Boolean
Dim propo As Integer

nombre = Int((1000 * Rnd) + 1)
bon = False

Do
propo = Application.InputBox('Merci de faire une proposition ?', Type:=1)
If propo = 0 Then Exit Sub
If propo > nombre Then MsgBox 'le chiffre à trouver est plus petit que ' & propo: cpt = cpt + 1
If propo < nombre Then MsgBox 'le chiffre à trouver est plus grand que ' & propo: cpt = cpt + 1
If propo = nombre Then
cpt = cpt + 1
MsgBox 'Bravo, vous avez trouvé !!!' & vbNewLine & cpt & ' tentatives'
bon = True
End If
Loop Until bon = True
End Sub

je désirerais faire le programme inverse, c'est à dire que je choisisse un nombre et l'ordinateur doit trouver ce nombre.

Merci d'avance pour votre aide.

 

[dg62]

bonsoir Arnaud


sub c'est l'ordinateur qui trouve()
nombre à trouver = un nombre compris entre 1 et 1000
for i= 1 to 1000

if i=nombre à trouver then

msgbox le nombre est I

msgbox 'je suis fort je suis un ordinateur'

next i


end sub

 

[arno]

je suis désolé mais je ne comprends pas bien ton programme. Je suis débutant en la matière.

merci encore

 

[Hervé]

Bonsoir arno, josé, didier

Arno,

j'adore cette phrase :

bonjour, ayant réussi a créer le programme en vba sous excel du chiffre mystère (en voici le
programme) :

Que tu ne revienne pas remercier les gens qui t'on aidé, passe encore (la politesse doit etre inné apparement), mais que tu t'approprie le travail d'autrui me semble un peu dépassé les bornes.


Lien supprimé


un hervé plus qu'en colère.

 

[Eric C]

Bonjour le forum
Bonjour Arnaud, bonjour Didier, bonjour José é bonjour Hervé

Je suis comme José, mort de rire à la lecture de la réponse de Didier et je prends part à la peine d'Hervé .

Meilleurs voeux à toutes & à tous

 

[Eric C]

Bonjour le forum
Bonjour Arnaud, bonjour Didier, bonjour José é bonjour Hervé

Je suis comme José, mort de rire à la lecture de la réponse de Didier et je prends part à la peine d'Hervé .

Meilleurs voeux à toutes & à tous

 

[Gruick]

Bonjour à tous,
Ce petit exercice de programmation, c'est lenfance du lard. (Vu mon pseudo). Altruiste (humour), je veux bien aider notre indélicat.

Voici ma version suidée :

Sub Maquereau (ô 20 blanc)
if correction(arno) < niveau(arno) then
msgbox 'je trouve moi même mon nombre secret'
Exit Sub
else
msgbox 'J'avoue, et je remercie Hervé'
end if (flammande, évidemment)
c'est l'ordinateur qui trouve 'programme génial de dg62
End sub

Je pense qu'on ne le verra(t) plus, et que ce genre de cochonneries ne passera plus.

Gruick.