Se connecter / S'enregistrer
Votre question

Comment utiliser mon programme VBA

Tags :
  • Programme
  • Programmation
Dernière réponse : dans Programmation
16 Mars 2005 18:48:28

  1. Function chercheconnard(ByVal NombreATrouver As Integer) As Boolean
  2.  
  3.  
  4. Dim NombrePropose As Integer
  5. Dim Essai As Integer
  6.  
  7. ImputBox (Quel est ce chiffre mon petit ? , Alors....)
  8.  
  9. If NombrePropose > NombreATrouver Then
  10.  
  11. MsgBox ("Votre nombre est trop grand !")
  12.  
  13. Essai = Essai + 1
  14.  
  15. Else
  16. If NombreProposé < NombreATrouver Then
  17.  
  18. MsgBox ("Votre nombre est trop petit !")
  19.  
  20. Essai = Essai + 1
  21.  
  22. Else
  23. MsgBox ("Putain enkulé t'es un devin")
  24.  
  25. End If
  26.  
  27. If Essai > 4 Then
  28.  
  29. MsgBox ("J'ai trouvé plus bête que Speud MDRRRRrrrrrrrrrr")
  30. End If
  31.  
  32. End Function

Salut
J'ai ecrit ce programme pour tester !
Maintenant j'aimerais l'appliquer....mais comment ?

Autres pages sur : utiliser programme vba

17 Mars 2005 22:33:15

ouvre l'editeur macro de excel

crée un nouveau module
copie ton code dedans reviens sur la feuille
dessine un bouton puis clique droit dessus
affecter une macro


ca c'est pour tester

mais je peux deja te dire que cela ne fonctionnera pas.

deja a aucun moment tu ne defini de valeur pour tes variables

je te conseille de faire un tour sur developpez.com
et de regarder les tutos

bonne chance
18 Mars 2005 00:18:39

Merci pour ta reponse j vais essyaer !
si il y'a d'autres solutions Merci !
Contenus similaires
18 Mars 2005 13:39:45

super compliqué ton programme!
:haaa:
18 Mars 2005 21:28:01

je me demandais si tu avais reussi a programmé ton truc

si non voila un code

Private Sub essais()


Dim val1 As String
Dim val As String
Dim ref As String
Dim count As String

ref = 2

count = 1
val = 1

GoTo first:

boucle:

count = val + 1



first:


val1 = ""

Do While val1 = ""
val1 = InputBox("quel est cette valeur", "hep toi")
Loop

val = count

If val1 = ref Then

MsgBox "si ca c'est pas du bol", vbInformation, "moi je telephonerais a ma femme"

Else

MsgBox "ben non c'est pas ca, essaye encore une fois", vbCritical, "pas de bol"

End If

If val1 = ref Then GoTo fin:

If count = 4 Then GoTo niquer:


GoTo boucle:


niquer:

MsgBox "il y a plus débile que moi", vbCritical, "pleure pas"





fin:



End Sub




il est non commenté
c'est voulu. c'est pas trop compliqué et tu saisiras mieux ce que c'esty que de programmé si tu te casse un peu la tête (nb:y'a des tas d'autres facon de faire)


pour faire marcher cet exemple tu ouvre un doc xls

editeur macro
insert module
nomme le essais

tu fais un copier coller

et tu le lance depuis le menu macro


bye
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS