petit jeu sous excel vba

[invite187f260d]

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....
-----

[JPL]

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.

[invite187f260d]

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.

[invite1445654e]

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

[A voir en vidéo sur Futura]

[invite8666d089]

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

[invite187f260d]

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

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:

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