Definir un nom plutôt qu'un numéro

Bonjour,

J'ai un classeur de jeux dans lequel il à un IA. Lorsque l'on joue l'IA est le Joueur 2. J'aimerai que s'il gagne il sois défini comme tel dans ma msgbox de fin de partie mais sa semble pas possible quelqu'un à une idée de pourquoi ?

De plus j'ai personnalisé le ruban avec customUI pour y intégrer mon bouton Nouvelle partie. Sauf que quand je lui assigne la macro j'ai une erreur .. Alors ou sa vien du Ruban, ou de la macro

Si vous avez une idée de la coquille merci

Je joint le XML CustomUI de mon Ruban également (j'ai du retiré le lien présent dans le xml)

<customUI xmlns="LIEN SCHEMA">

    <!-- Disable Share in the Ribbon of Excel 2016.   -->
    <commands>
        <command idMso="Collaborate" enabled="false" />
    </commands>

  <!-- Set startFromScratch to true to hide the Ribbon and QAT--> 
  <ribbon startFromScratch="true">

    <!-- startFromScratch="true" hides all of the Ribbon tabs and it hide the QAT.   -->
    <!-- It not hides the Contextual tabs on the ribbon, for example the             -->
    <!-- Format tab that you see when you select a picture on your worksheet.        -->
    <!-- So if you want to hide them you must use the RibbonX below:                 -->

    <contextualTabs>
        <tabSet idMso="TabSetSmartArtTools" visible="false" />
        <tabSet idMso="TabSetChartTools" visible="false" />
        <tabSet idMso="TabSetDrawingTools" visible="true" />
        <tabSet idMso="TabSetPictureTools" visible="false" />
        <tabSet idMso="TabSetPivotTableTools" visible="false" />
        <tabSet idMso="TabSetHeaderAndFooterTools" visible="false" />
        <tabSet idMso="TabSetTableToolsExcel" visible="false" />
        <tabSet idMso="TabSetPivotChartTools" visible="false" />
        <tabSet idMso="TabSetInkTools" visible="false" />
        <tabSet idMso="TabSetSparkline" visible="false" />
        <tabSet idMso="TabSetTimeSlicerTools" visible="false" />
        <tabSet idMso="TabSetSlicerTools" visible="false" />
        <tabSet idMso="TabSetEquationTools" visible="false" />
    </contextualTabs>

    <!-- Add Custom tab to the Ribbon with your own buttons-->
    <!-- The example add three groups to the new tab named 'My Tab' -->
    <!-- On the last tab there is a menu with five options-->

    <tabs>
      <tab idMso = "TabDeveloper" visible = "true" />
      <tab id="MyCustomTab" label="Puissance 4" >

    <group id="Group1" label="Info Jeux">
          <button id="Info" label="Puissance 4 - Info" size="large" onAction="Info" imageMso="ReviewPreviousComment" />        
        </group>

    <group id="Group2" label="Nouvelle partie">
          <button id="New" label="Lancer une nouvelle partie" size="large" onAction="InitJeu" imageMso="Repeat" />        
        </group>

      </tab>
    </tabs>

  </ribbon>

    <!--hide all buttons and tabs in Backstage (File)--> 
    <backstage>
        <button idMso="FileSave" visible="false"/>
        <button idMso="FileSaveAs" visible="false"/>
        <button idMso="FileOpen" visible="false"/>
        <button idMso="FileClose" visible="false"/>
        <button idMso="ApplicationOptionsDialog" visible="false"/>
        <button idMso="FileExit" visible="false"/>
        <button idMso="HistoryTab" visible="false"/>
        <button idMso="OfficeFeedback" visible="false"/>
        <tab idMso="TabInfo" visible="false"/>
        <tab idMso="TabRecent" visible="false"/>
        <tab idMso="TabNew" visible="false"/>
        <tab idMso="TabPrint" visible="false"/>
        <tab idMso="TabShare" visible="false"/>
        <tab idMso="TabHelp" visible="false"/>
        <tab idMso="TabPublish" visible="false"/>
        <tab idMso="TabSave" visible="false"/>
        <tab idMso="TabOfficeStart" visible="false"/>
      <tab idMso="Publish2Tab" visible="false"/>
      <tab idMso="TabOfficeFeedback" visible="false"/>
    </backstage>

</customUI>

Bonjour,

J'avoue ne pas comprendre la question :

J'ai un classeur de jeux dans lequel il à un IA. Lorsque l'on joue l'IA est le Joueur 2. J'aimerai que s'il gagne il sois défini comme tel dans ma msgbox de fin de partie mais sa semble pas possible quelqu'un à une idée de pourquoi ?

il soit défini comme tel ? traduction ? faut adapter le message de votre MsgBox mais encore faut-il comprendre

ce que vous voulez qu'elle affiche ?

 MsgBox "C'est le joueur " & gJoueur & " qui gagne !"
 

Bonjour,

je me suis mal exprimé. Je voudrais affiché plutôt que Joueur 1 ou 2 Humain ou IA

Bilna a écrit :

Bonjour,

je me suis mal exprimé. Je voudrais affiché plutôt que Joueur 1 ou 2 Humain ou IA

Pourquoi afficher humain ou IA ? quand on joue avec un ordianteur soit on a "gagné" soit on a "perdu"

Afficher IA gagné … cà ne fait pas trop bizarre ?

la partie à modifier vous pourrez mettre autre chose que perdu ou gagner à votre guise.

If ComptePionsAlignes(pColonne, lCpt - 1, gJoueur) >= 4 Then
    If gJoueur = 1 Then
        MsgBox "Gagné !"
    Else
       MsgBox "Perdu !"
    End If
     gJoueur = 0
        Exit Sub