XL 2016 jeu Motus

papychat1 · 25 Janvier 2025

Bonjour, un petit mot pour de l'aide s'il vous plait.
J'essaye de créer un jeu de motus
et je suis bloqué au moment de comparer le mot
pour afficher les lettres présentes à la mauvaise place.
En effet voir l'exemple où s'affiche le u alors que celui-ci est déjà placé
et qu'il n'en existe pas d'autre dans le mot.
Je pense qu'il faut établir une comparaison qui annule ce u si il est déjà bien placé,
Mais j'ai commencé à établir le mot en ligne 7 mais ne sait pas allé plus avant.
Merci pour votre aide
Cordialement
https://www.cjoint.com/c/OAzkzPHHlz5

jurassic pork · 26 Janvier 2025

papychat1 à dit:
petit problème,
Si la première lettre est en doublon dans le mot, elle devient jaune.
Cependant on peut contourner en affichant d'emblée qu'elle est verte.

Hello,
je ne sais pas avec quel code tu as résolu ce problème mais il risque d'y avoir le même genre de problème avec des doublons qui ne concernent
pas que la première lettre. Essaie donc avec KAKIS
Une solution qui me paraît plus complète consiste dans la boucle qui traite des lettres mal placées de passer les lettres qui sont
déjà en vert comme ceci par exemple :

VB:

  motADevinerO = motADeviner
    ' Vérifier la correspondance
    For i = 1 To longueurMot
        lettre = Mid(motPropose, i, 1)
        ' Lettre à la bonne position
        If Mid(motADeviner, i, 1) =...

sousou · 25 Janvier 2025

Bonjour
A tester vraiment😉
J'ai mois dans le module3 une nouvelle macro verifier() sur le bouton vérification
et supprimer la feuille mots pour pouvoir transmettre ce fichier
A voir

sylvanu · 25 Janvier 2025

Bonsoir Papychat, Sousou,

J'avais cherché mais point trouvé 😡 pour couvrir toutes les possibilités.

Avec la dernière PJ, un exemple qui "coince" :

Le premier E devrait être jaune car pas à la bonne place.
Le second E devrait être vert et non jaune car bien placé.
Le troisième E devrait ne pas être vert car mal placé.

papychat1 · 25 Janvier 2025

sylvanu à dit:
Bonsoir Papychat, Sousou,

J'avais cherché mais point trouvé 😡 pour couvrir toutes les possibilités.

Avec la dernière PJ, un exemple qui "coince" :

Le premier E devrait être jaune car pas à la bonne place.
Le second E devrait être vert et non jaune car bien placé.
Le troisième E devrait ne pas être vert car mal placé.
Regarde la pièce jointe 1211644

Merci pour ton travail
je cherche aussi plus pour comprendre excel
car des jeux il en existe, donc ton avis me permet d'aller plus loin.
Je pense qu'il faut une comparaison entre chaque lettres de la ligne 7 et et sortir après chaque lettres identifiées qui sortent alors de la comparaison mais...
En tout cas merci beaucoup!

jurassic pork · 25 Janvier 2025

Hello,
A essayer :

VB:

    ' Vérifier la correspondance
    For i = 1 To longueurMot
        lettre = Mid(motPropose, i, 1)
        ' Lettre à la bonne position
        If Mid(motADeviner, i, 1) = lettre Then
           Mid(motADeviner, i, 1) = "?"
            ws.Cells(ligne, i).Interior.Color = RGB(0, 255, 0) ' Vert
            couleurTrouve = True
        Else
          ws.Cells(ligne, i).Interior.Color = RGB(200, 200, 200) ' Gris
        End If
    Next i
    For i = 1 To longueurMot
        lettre = Mid(motPropose, i, 1)
        For j = 1 To longueurMot
                If Mid(motADeviner, j, 1) = lettre Then
                    Mid(motADeviner, j, 1) = "?"
                    ws.Cells(ligne, i).Interior.Color = RGB(255, 255, 0) ' Jaune
                End If
        Next j
    Next i

Le principe : Dans le mot à deviner on remplace ce que l'on a trouvé comme correspondance par un "?"

Ami calmant, J.P

papychat1 · 25 Janvier 2025

jurassic pork à dit:

Hello,
A essayer :

VB:

    ' Vérifier la correspondance
    For i = 1 To longueurMot
        lettre = Mid(motPropose, i, 1)
        ' Lettre à la bonne position
        If Mid(motADeviner, i, 1) = lettre Then
           Mid(motADeviner, i, 1) = "?"
            ws.Cells(ligne, i).Interior.Color = RGB(0, 255, 0) ' Vert
            couleurTrouve = True
        Else
          ws.Cells(ligne, i).Interior.Color = RGB(200, 200, 200) ' Gris
        End If
    Next i
    For i = 1 To longueurMot
        lettre = Mid(motPropose, i, 1)
        For j = 1 To longueurMot
                If Mid(motADeviner, j, 1) = lettre Then
                    Mid(motADeviner, j, 1) = "?"
                    ws.Cells(ligne, i).Interior.Color = RGB(255, 255, 0) ' Jaune
                End If
        Next j
    Next i

Le principe : Dans le mot à deviner on remplace ce que l'on a trouvé comme correspondance par un "?"
Regarde la pièce jointe 1211645

Ami calmant, J.P

Bonsoir

jurassic pork

Bravo
je viens d'essayer ton code a priori pas de problème cela résout ma demande!
Je vais continuer de tester et finalement c'est bien plus simple que je ne pensais
Un grand merci à toi
Bon week-end
Bien cordialement
JML

papychat1 · 25 Janvier 2025

papychat1 à dit:
Bonsoir

jurassic pork
Bravo
je viens d'essayer ton code a priori pas de problème cela résout ma demande!
Je vais continuer de tester et finalement c'est bien plus simple que je ne pensais
Un grand merci à toi
Bon week-end
Bien cordialement
JML

petit problème,
Si la première lettre est en doublon dans le mot, elle devient jaune.
Cependant on peut contourner en affichant d'emblée qu'elle est verte.
Bon dimanche

jurassic pork · 26 Janvier 2025

papychat1 à dit:
petit problème,
Si la première lettre est en doublon dans le mot, elle devient jaune.
Cependant on peut contourner en affichant d'emblée qu'elle est verte.

Hello,
je ne sais pas avec quel code tu as résolu ce problème mais il risque d'y avoir le même genre de problème avec des doublons qui ne concernent
pas que la première lettre. Essaie donc avec KAKIS
Une solution qui me paraît plus complète consiste dans la boucle qui traite des lettres mal placées de passer les lettres qui sont
déjà en vert comme ceci par exemple :

VB:

  motADevinerO = motADeviner
    ' Vérifier la correspondance
    For i = 1 To longueurMot
        lettre = Mid(motPropose, i, 1)
        ' Lettre à la bonne position
        If Mid(motADeviner, i, 1) = lettre Then
            Mid(motADeviner, i, 1) = "?"
            ws.Cells(ligne, i).Interior.Color = RGB(0, 255, 0) ' Vert
        Else
            ws.Cells(ligne, i).Interior.Color = RGB(200, 200, 200) ' Gris
        End If
    Next i
    For i = 1 To longueurMot
        If Not ws.Cells(ligne, i).Interior.Color = RGB(0, 255, 0) Then
           lettre = Mid(motPropose, i, 1)
           For j = 1 To longueurMot
                If Mid(motADeviner, j, 1) = lettre Then             
                       ws.Cells(ligne, i).Interior.Color = RGB(255, 255, 0) ' Jaune
                       Mid(motADeviner, j, 1) = "?"
                End If
           Next j
        End If
    Next i
    ' Vérifier si le mot est trouvé
    If motPropose = motADevinerO Then
        MsgBox "Bravo ! Vous avez trouvé le mot !", vbInformation
        Exit Sub
    End If

A noter que j'ai aussi ajouté une variable de sauvegarde motADevinerO car pendant le traitement on altère la variable motADeviner.

Ami calmant, J.P

papychat1 · 26 Janvier 2025

jurassic pork à dit:
Hello,
je ne sais pas avec quel code tu as résolu ce problème mais il risque d'y avoir le même genre de problème avec des doublons qui ne concernent
pas que la première lettre. Essaie donc avec KAKIS
Une solution qui me paraît plus complète consiste dans la boucle qui traite des lettres mal placées de passer les lettres qui sont
déjà en vert comme ceci par exemple :

VB:

motADevinerO = motADeviner ' Vérifier la correspondance For i = 1 To longueurMot lettre = Mid(motPropose, i, 1) ' Lettre à la bonne position If Mid(motADeviner, i, 1) = lettre Then Mid(motADeviner, i, 1) = "?" ws.Cells(ligne, i).Interior.Color = RGB(0, 255, 0) ' Vert Else ws.Cells(ligne, i).Interior.Color = RGB(200, 200, 200) ' Gris End If Next i For i = 1 To longueurMot If Not ws.Cells(ligne, i).Interior.Color = RGB(0, 255, 0) Then lettre = Mid(motPropose, i, 1) For j = 1 To longueurMot If Mid(motADeviner, j, 1) = lettre Then ws.Cells(ligne, i).Interior.Color = RGB(255, 255, 0) ' Jaune Mid(motADeviner, j, 1) = "?" End If Next j End If Next i ' Vérifier si le mot est trouvé If motPropose = motADevinerO Then MsgBox "Bravo ! Vous avez trouvé le mot !", vbInformation Exit Sub End If

A noter que j'ai aussi ajouté une variable de sauvegarde motADevinerO car pendant le traitement on altère la variable motADeviner.

Regarde la pièce jointe 1211653

Ami calmant, J.P

Merci beaucoup
petit problème pour moi il affiche pour motAdeviner0 variable non définie.

Bien cordialement
jml

jurassic pork · 26 Janvier 2025

papychat1 à dit:
Merci beaucoup
petit problème pour moi il affiche pour motAdeviner0 variable non définie.
Regarde la pièce jointe 1211657
Bien cordialement
jml

Normal il faut la définir avant :

VB:

Dim motAdevinerO As String

et c'est un O comme Original et pas 0 à la fin

papychat1 · 26 Janvier 2025

Ok je l'avez défini par le zero!!!!
Merci bon dimanche

papychat1 · 26 Janvier 2025

papychat1 à dit:
Ok je l'avez défini par le zero!!!!
Merci bon dimanche

Re Bonjour encore une petite erreur
en lignes 6 lorsque le mot est faux
bien entendu dans le mot qu'il affiche il remplace les lettres trouvées par ?

Bonne semaine
JML

papychat1 · 26 Janvier 2025

papychat1 à dit:
Re Bonjour encore une petite erreur
en lignes 6 lorsque le mot est faux
bien entendu dans le mot qu'il affiche il remplace les lettres trouvées par ?
Regarde la pièce jointe 1211680
Bonne semaine
JML

Il suffit de corriger la référence en ajoutant le O!
donc un très grand merci pour ton aide

XL 2016 jeu Motus

papychat1

XLDnaute Nouveau

jurassic pork

sousou

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

papychat1

XLDnaute Nouveau

jurassic pork

XLDnaute Accro

papychat1

XLDnaute Nouveau

jurassic pork

papychat1

XLDnaute Nouveau

jurassic pork

jurassic pork

XLDnaute Accro

papychat1

XLDnaute Nouveau

jurassic pork

XLDnaute Accro

papychat1

XLDnaute Nouveau

papychat1

XLDnaute Nouveau

papychat1

XLDnaute Nouveau

jurassic pork

XL 2016 jeu Motus

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Accro

XLDnaute Nouveau

jurassic pork​

XLDnaute Nouveau

jurassic pork​

XLDnaute Accro

XLDnaute Nouveau

XLDnaute Accro

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Nouveau

jurassic pork​

Privacy & Transparency

Privacy & Transparency

jurassic pork

jurassic pork

jurassic pork