Bonjour, cliquez-ici pour vous inscrire et participer au forum.
  • Login:



+ Répondre à la discussion
Affichage des résultats 1 à 6 sur 6

petit jeu sous excel vba

  1. ad78760

    Date d'inscription
    mai 2011
    Messages
    3

    petit jeu sous excel vba

    Bonjour a tous,
    J'ai un projet d'informatique a réaliser pour pouvoir valider mon diplome d'ingénieur ( batiment). Je tiens a vous préciser que je suis une vraie bille en informatique. Voila mon sujet: Réaliser un jeu de l'oie sous excel dans le langage VBA. Le jeux doit contenir un plateau un dé plusieurs joueurs ( jusqu'à 4 joueurs) et des cases bonus-malus. Etant vraiment nul et n'y comprenant rien en informatique la seule chose que j'aii réussi à faire c'est récupérer des fichiers à droite à gauche.... Mon souci est que sur le fichier principal j'ai à peu près tout sauf la fonction multijoueurs et les cases bonus-malus. Mais sur un autre fichier j'ai ces fonctions. J'essaye donc de récupérer les lignes de code du deuxième fichier pour les intégrer dans le premier, mais les lignes de code étant basées sur un plateau différent il y a incompatibilité. Je vous demande donc de l'aide pour pouvoir fusionner les deux fichiers.
    Merci pour votre comprehension, je suis vraiment mauvais en info mais malheureusement pour moi je doit absolument réaliser ce projet pour pouvoir obtenir mon diplome. Je vous laisse donc imaginer l'état de stress dans lequel je suis pour ce projet.
    Merci a tous, dans l'attente de réponses de votre part....

    -----

     


    • Publicité



  2. JPL

    Date d'inscription
    septembre 2003
    Messages
    68 057

    Re : petit jeu sous excel vba

    Si tu es si nul que ça et si la programmation est importante pour ton métier, vu que c'est une épreuve de validation de ton diplôme, il me paraît urgent de ne pas t'aider... puisque tu n'as pas la qualification nécessaire pour avoir ton diplôme.

    En plus tu te moques du monde en parlant de tes tentatives, mais sans nous montrer ce que tu as fait.
    Rien ne sert de penser, il faut réfléchir avant - Pierre Dac
     

  3. ad78760

    Date d'inscription
    mai 2011
    Messages
    3

    Re : petit jeu sous excel vba

    Bonsoir
    Je tiens a vous préciser que l'informatique, plus particulièrement la programmation, est une matière qui me sera totalement inutile dans ma carrière future. En effet je me dirige vers le métier de géomètre expert; j'ai déjà un an d'expérience dans le métier, je parle donc en connaissance de cause. Je trouve donc votre réponse complètement démesurée. J'ajouterais même qu'elle témoigne d'un réel égoïsme de votre part: Je demande de l'aide poliment et en réponse vous essayez de me faire la morale et vous refusez de m'aider. Si je suis si nul en programmation que sa c'est tout simplement parce que cela m'est complétement inutil et inintéressant. En clair j'en ai rien à taper ( pour rester poli)! Donc si vous refusez de m'aider vous n'avez qu'à vous abstenir de me répondre et non à vouloir me donner des leçons.
     

  4. ventilopomme

    Date d'inscription
    mars 2011
    Localisation
    Versailles
    Âge
    47
    Messages
    1 955

    Re : petit jeu sous excel vba

    peux tu mettre en ligne ce que tu as fait ?
    et tu devrais t'y mettre a la programmation sinon tu vas etre vite périmé meme si cela n'est pas deja fait
    exclu à jamais du présent
     

  5. Dormeur74

    Date d'inscription
    mars 2011
    Localisation
    Annecy
    Âge
    69
    Messages
    660

    Re : petit jeu sous excel vba

    je doit absolument réaliser ce projet pour pouvoir obtenir mon diplome
    Je trouve ta réponse à la fois un peu fort de café et très violente.

    Un peu fort de café, parce que tu as impérativement besoin d'une matière (l'informatique) pour laquelle tu sembles avoir une certaine répulsion. Une matière incontournable aujourd'hui dans un cursus d'ingénieur ; tu n'as pas à avoir honte d'être une bille, tout grand débutant passe par là.

    Un peu violente (euphémisme), car la réponse qui t'a été faite est pleine de bon sens.

    En gros, en tant que membre de jury depuis plus de dix ans, je puis t'assurer que tu as de gros soucis à te faire :
    - à cause d'un fossé à combler en informatique (difficile mais envisageable)
    - à cause d'un manque de sang-froid qui risque de peser plus lourd dans la balance.

    Pour résumer, je crois que tu devrais changer tes lunettes (mentales).
    Dernière modification par Dormeur74 ; 10/05/2011 à 12h18.
     


    • Publicité



  6. ad78760

    Date d'inscription
    mai 2011
    Messages
    3

    Re : petit jeu sous excel vba

    Bonjour,
    Voila mon fichier principal qui permet a un pion de se déplacer sur un plateau jusqu'à atteindre la case centrale:


    Code:
    Public Tirage1 As Integer
    Public ValeurObtenue As Integer
    Public ValeurActuelle As Integer
    Public Sub LancerDe()
    Tirage1 = Int((6 * Rnd) + 1) + Int((6 * Rnd) + 1)
    'Tirage1 = 1
    Call DeplacerPion
    Call MessageTirage
    
    End Sub
    Public Sub MessageTirage()
    Dim Titre As String
    Titre = "Tirage du Dé"
    Select Case Tirage1
            Case 2 To 12
            MsgBox "Vous avancez de : " & Tirage1 & " Cases", , Titre
    End Select
    End Sub
    
    Public Sub NouvellePartie()
    Range("A2:J9").Select
    Selection.Interior.ColorIndex = xlNone
    Range("A2").Select
    Selection.Interior.ColorIndex = 3
    
    End Sub
    
    
    Public Sub DeplacerPion()
    ValeurActuelle = ActiveCell.Value
    ValeurObtenue = ValeurActuelle + Tirage1
    ValeurRecherchee = ValeurActuelle + 1
    Select Case ValeurObtenue
    Case Is < 73
        Do While ValeurRecherchee < ValeurObtenue
           Range("A2:J9").Select
           Selection.Find(What:=ValeurRecherchee, After:=ActiveCell, MatchCase:=True).Select
           ActiveCell.Interior.ColorIndex = 15
           ValeurRecherchee = ValeurRecherchee + 1
        Loop
        Range("A2:J9").Select
        Selection.Find(What:=ValeurObtenue, After:=ActiveCell, MatchCase:=True).Select
        ActiveCell.Interior.ColorIndex = 16
    Case Is > 73
        MsgBox "Vous devez rejouer pour tomber PILE sur 73 "
    Case Is = 73
    Range("A2:J9").Select
    Do While ValeurRecherchee <= ValeurObtenue
           Range("A2:J9").Select
           Selection.Find(What:=ValeurRecherchee, After:=ActiveCell, MatchCase:=True).Select
        ActiveCell.Interior.ColorIndex = 5
           ValeurRecherchee = ValeurRecherchee + 1
        Loop
        Selection.Find(What:=ValeurObtenue, After:=ActiveCell, MatchCase:=True).Select
        ActiveCell.Interior.ColorIndex = 5
        MsgBox "Bravo, vous gagnez la partie"
      End Select
    
    End Sub
    Et voici le fichier que j'ai récupérer pour pouvoir intégrer le mode multijoueur ainsi que des cases bonus-malus:


    Code:
    Option Explicit
    
    Dim Joueurs(6) As New Joueur
    Dim Plateau(73) As New Kase
    Dim Bonus(12) As New BonusMalus
    Dim Malus(4) As New BonusMalus
    Dim i As Integer
    
    
    Public Sub Init()
        
    ' initialise le plateau
        Const Affectecase = "A1B1C1D1E1F1G1H1H2G2F2E2D2C2B2A2A3B3C3D3E3F3G3H3H4G4F4E4D4C4B4A4A5B5C5D5E5F5G5H5H6G6F6E6D6C6B6A6A7B7C7D7E7F7G7H7H8G8F8E8D8C8B8A8A9B9C9D9E9F9G9H9"
    
        For i = 1 To 72
           Plateau(i).Cellule = Mid(Affectecase, i * 2 - 1, 2)
            ActiveSheet.Range(Mid(Affectecase, i * 2 - 1, 2)) = i
        Next
    
    ' initialise les bonus
        Bonus(1).Nom = "Boast"
        Bonus(1).Déplus = 1
        Bonus(2).Nom = "Replay"
        Bonus(2).Rejouer = True
        Bonus(3).Nom = "Invulnerable"
        Bonus(3).Invulnerable = True
        Bonus(4).Nom = "Bouclier"
        Bonus(4).Reduit = 1
        Bonus(5).Nom = "Armure"
        Bonus(5).Reduit = 2
        Bonus(6).Nom = "Reparation"
        Bonus(6).Pvplus = 1
        Bonus(7).Nom = "Mine"
        Bonus(7).Pvmoins = 2
        Bonus(8).Nom = "Frappe Aérienne"
        Bonus(8).Pvmoins = 3    '?????????????????????????????????
        Bonus(9).Nom = "Nova"
        Bonus(9).Pvmoins = 2
        Bonus(10).Nom = "Pistolet"
        Bonus(10).Pvmoins = 1
        Bonus(11).Nom = "Fusil"
        Bonus(11).Pvmoins = 2
        Bonus(12).Nom = "Canon"
        Bonus(12).Pvmoins = 3
        
        Malus(1).Nom = "Mines"
        Malus(1).Pvmoins = 2
        Malus(2).Nom = "Trous"
        Malus(2).Bloque = True
        Malus(3).Nom = "Sable"
        Malus(3).Divise = 2
        Malus(4).Nom = "Eau"
        Malus(4).Divise = 3
    
    End Sub
    
    Public Function Jettedé()
        Jettedé = Int(6 * Rnd) + 1
    End Function
    
    Public Function ordre()
          ' initialise les joueurs
        Dim Nbjoueurs As Integer
        Nbjoueurs = InputBox("Combien de joueurs (1 à 6)")
        ActiveSheet.Range("K1") = Nbjoueurs
        Dim i As Integer
        Dim tmpnom As String
        Dim cell As String
        For i = 1 To Nbjoueurs
            tmpnom = InputBox("Nom du joueur " & i & "?")
            Joueurs(i).Nom = tmpnom
            Joueurs(i).Vies = 6
            ActiveSheet.Range("K" & (i + 1)) = tmpnom
            ActiveSheet.Range("L" & (i + 1)) = Joueurs(i).Vies
        Next
    End Function
    Il me reste donc à intégrer ces deux fonctions dans le premier fichier et le tour est joué. Mais je n'arrive pas à le faire, je souhaite juste que l'on m'explique comment puis-je fusionner les fichiers.
    Merci d'avance
    Cordialement Adrien
    Dernière modification par JPL ; 10/05/2011 à 13h13. Motif: Ajout de balises Quote pour la lisibilité
     


    • Publicité







Sur le même thème :





 

Discussions similaires

  1. VBA Excel Sélection d'un cellule sous condition
    Par gwencab dans le forum Logiciel - Software - Open Source
    Réponses: 1
    Dernier message: 06/01/2011, 20h36
  2. Solveur EXCEL 2002 en VBA sous Windows 7
    Par mécano41 dans le forum Logiciel - Software - Open Source
    Réponses: 0
    Dernier message: 08/12/2009, 12h22
  3. moyenne sous excel via VBA/macro/bouton
    Par rougesang dans le forum Logiciel - Software - Open Source
    Réponses: 5
    Dernier message: 27/10/2009, 19h48
  4. programmation vba sous excel
    Par Nono les gazzz dans le forum Logiciel - Software - Open Source
    Réponses: 19
    Dernier message: 26/02/2009, 17h23
  5. Un petit jeu d'esprit sous forme de devinette...
    Par Sax Russel dans le forum Planètes et Exobiologie
    Réponses: 4
    Dernier message: 21/11/2008, 13h24