Amélioration code

Le
Guy85
Bonjour,
J'ai fais un jeu "Motus" (grâce à votre aide).
Je sais, ce n'est as très important, ce n'est qu'un jeu.
Voilà mon problème:
Le mot à trouver est "ACCRUE"
Le 1er mot que je mets : est "ALARME"
Il me met le 2ème "A" sur fond jaune, alors qu'il n'y a pas de 2ème "A".
Si quelqu'un à le temps de voir mon problème, je le remercie à l'avance.

Ci-joint : http://www.cijoint.fr/cjlink.php?file=cj201004/cijEZxFicv.xls
Cordialement
Guy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Modeste
Le #21528821
Bonsour® Guy85 avec ferveur ;o))) vous nous disiez :

J'ai fais un jeu "Motus" (grâce à votre aide).
Je sais, ce n'est as très important, ce n'est qu'un jeu.
Voilà mon problème:
Le mot à trouver est "ACCRUE"
Le 1er mot que je mets : est "ALARME"
Il me met le 2ème "A" sur fond jaune, alors qu'il n'y a pas de 2ème
"A". Si quelqu'un à le temps de voir mon problème, je le remercie à
l'avance.



;o)))
c'est toi qui a écrit l'algorithme, tu devrais avoir mis des commentaires dans le code de façon à expliciter en pas a pas les raisons de ce comportement...
ce que tu demande s'appelle du reverse-engeniring et demande du temps ... ;o)))

pour illustrer ce que je dis et que je ne fais pas, ;o)))
essaie de faire la meme chose là :
fichier Excel (dont banque de 50000 mots de 5 à 9 lettres)
http://www.cijoint.fr/cjlink.php?file=cj201004/cijOmcPDXd.xls
les sons qui vont avec...
http://www.cijoint.fr/cjlink.php?file=cj201004/cijADOQItY.zip
Grrr....
je n'arrive pas à transmettre le jingle !!!
Michel__D
Le #21530441
Bonjour,

Guy85 a écrit :
Bonjour,
J'ai fais un jeu "Motus" (grâce à votre aide).
Je sais, ce n'est as très important, ce n'est qu'un jeu.
Voilà mon problème:
Le mot à trouver est "ACCRUE"
Le 1er mot que je mets : est "ALARME"
Il me met le 2ème "A" sur fond jaune, alors qu'il n'y a pas de 2ème "A".




Heu...., c'est bien toi qui a saisi la formule dans le formatage
conditionnel ???

PS: Pour moi le fonctionnement est normal, puisque le 1er A est en rouge
car bien placé et du fait de
la formule placé dans le formatage conditionnel le 2ème A en jaune fait
référence en fait à la présence
d'un A dans le mot vérifié par le 1er A.

Si quelqu'un à le temps de voir mon problème, je le remercie à l'avance.




Ben il n'y a pas de problème, c'est la bonne réaction par rapport à la
formule utilisée.

Ci-joint : http://www.cijoint.fr/cjlink.php?file=cj201004/cijEZxFicv.xls
Cordialement
Guy
Guy85
Le #21532101
Bonjour Michel,
Je vais regarder ça de plus près.
Il y a quand même quelque chose qui me gêne dans le fonctionnement.
je vais faire quelques essais.
Cordialement
Guy

"Michel__D" news:
Bonjour,

Guy85 a écrit :
Bonjour,
J'ai fais un jeu "Motus" (grâce à votre aide).
Je sais, ce n'est as très important, ce n'est qu'un jeu.
Voilà mon problème:
Le mot à trouver est "ACCRUE"
Le 1er mot que je mets : est "ALARME"
Il me met le 2ème "A" sur fond jaune, alors qu'il n'y a pas de 2ème "A".




Heu...., c'est bien toi qui a saisi la formule dans le formatage
conditionnel ???

PS: Pour moi le fonctionnement est normal, puisque le 1er A est en rouge
car bien placé et du fait de
la formule placé dans le formatage conditionnel le 2ème A en jaune fait
référence en fait à la présence
d'un A dans le mot vérifié par le 1er A.

Si quelqu'un à le temps de voir mon problème, je le remercie à l'avance.




Ben il n'y a pas de problème, c'est la bonne réaction par rapport à la
formule utilisée.

Ci-joint : http://www.cijoint.fr/cjlink.php?file=cj201004/cijEZxFicv.xls
Cordialement
Guy
Guy85
Le #21532141
Bonjour,
Oui le problème, c'est que cela se produit avec n'importe quelle lettre.
Si le mot est "ACERAT" et que je mets "ARBRES" c'est le 2ème "R" (il
faudrait qu'il soit gris) qui est en jaune parque y a un "R" en 4ème lettre.
Comment éviter ça ?
Cordialement
Guy

"Michel__D" news:
Bonjour,

Guy85 a écrit :
Bonjour,
J'ai fais un jeu "Motus" (grâce à votre aide).
Je sais, ce n'est as très important, ce n'est qu'un jeu.
Voilà mon problème:
Le mot à trouver est "ACCRUE"
Le 1er mot que je mets : est "ALARME"
Il me met le 2ème "A" sur fond jaune, alors qu'il n'y a pas de 2ème "A".




Heu...., c'est bien toi qui a saisi la formule dans le formatage
conditionnel ???

PS: Pour moi le fonctionnement est normal, puisque le 1er A est en rouge
car bien placé et du fait de
la formule placé dans le formatage conditionnel le 2ème A en jaune fait
référence en fait à la présence
d'un A dans le mot vérifié par le 1er A.

Si quelqu'un à le temps de voir mon problème, je le remercie à l'avance.




Ben il n'y a pas de problème, c'est la bonne réaction par rapport à la
formule utilisée.

Ci-joint : http://www.cijoint.fr/cjlink.php?file=cj201004/cijEZxFicv.xls
Cordialement
Guy
Michel__D
Le #21532941
Bonjour,

Guy85 a écrit :
Bonjour,
Oui le problème, c'est que cela se produit avec n'importe quelle lettre.
Si le mot est "ACERAT" et que je mets "ARBRES" c'est le 2ème "R" (il
faudrait qu'il soit gris) qui est en jaune parque y a un "R" en 4ème lettre.
Comment éviter ça ?




Ben oui, la lettre A allait de pair avec ton exemple, mais bien
évidemment que quelque soit la lettre le
problème est le même.

Il n'y a pas 36 solutions, il faut revoir au minimum la formule du
formatage conditionnel et si ce n'est pas
possible de cette manière, le gérer via du code VBA.

PS: Si j'ai le temps je vais essayer de trouver une formule adéquate,
j'ai quelques idées ...

Cordialement
Guy

"Michel__D" news:

Bonjour,

Guy85 a écrit :

Bonjour,
J'ai fais un jeu "Motus" (grâce à votre aide).
Je sais, ce n'est as très important, ce n'est qu'un jeu.
Voilà mon problème:
Le mot à trouver est "ACCRUE"
Le 1er mot que je mets : est "ALARME"
Il me met le 2ème "A" sur fond jaune, alors qu'il n'y a pas de 2ème "A".




Heu...., c'est bien toi qui a saisi la formule dans le formatage
conditionnel ???

PS: Pour moi le fonctionnement est normal, puisque le 1er A est en rouge
car bien placé et du fait de
la formule placé dans le formatage conditionnel le 2ème A en jaune fait
référence en fait à la présence
d'un A dans le mot vérifié par le 1er A.


Si quelqu'un à le temps de voir mon problème, je le remercie à l'avance.




Ben il n'y a pas de problème, c'est la bonne réaction par rapport à la
formule utilisée.


Ci-joint : http://www.cijoint.fr/cjlink.php?file=cj201004/cijEZxFicv.xls
Cordialement
Guy








Michel__D
Le #21533851
Michel__D a écrit :
Bonjour,

Guy85 a écrit :
Bonjour,
Oui le problème, c'est que cela se produit avec n'importe quelle lettre.
Si le mot est "ACERAT" et que je mets "ARBRES" c'est le 2ème "R" (il
faudrait qu'il soit gris) qui est en jaune parque y a un "R" en 4ème
lettre.
Comment éviter ça ?




Ben oui, la lettre A allait de pair avec ton exemple, mais bien
évidemment que quelque soit la lettre le
problème est le même.

Il n'y a pas 36 solutions, il faut revoir au minimum la formule du
formatage conditionnel et si ce n'est pas
possible de cette manière, le gérer via du code VBA.

PS: Si j'ai le temps je vais essayer de trouver une formule adéquate,
j'ai quelques idées ...



Essaye les formules suivantes au niveau du formatage conditionnel en J22:

1ère formule :
=J22=AZ$12

2ème formule :
=ET(NB.SI($AZ$12:$BJ$12;J22);NB.SI($J22:J22;J22)<=NB.SI($AZ$12:$BJ$12;J22))

2ème formule :
=J22=AZ$14

Ensuite tu recopie en dessous et enfin tu recopie la plage J22:J42 en
L22, N22, ..., T22
Guy85
Le #21535061
Bonjour,
Je te remercie, je regarde ça et je te tient au courant.
Cordialement

"Michel__D" news: %
Michel__D a écrit :
Bonjour,

Guy85 a écrit :
Bonjour,
Oui le problème, c'est que cela se produit avec n'importe quelle lettre.
Si le mot est "ACERAT" et que je mets "ARBRES" c'est le 2ème "R" (il
faudrait qu'il soit gris) qui est en jaune parque y a un "R" en 4ème
lettre.
Comment éviter ça ?




Ben oui, la lettre A allait de pair avec ton exemple, mais bien
évidemment que quelque soit la lettre le
problème est le même.

Il n'y a pas 36 solutions, il faut revoir au minimum la formule du
formatage conditionnel et si ce n'est pas
possible de cette manière, le gérer via du code VBA.

PS: Si j'ai le temps je vais essayer de trouver une formule adéquate,
j'ai quelques idées ...



Essaye les formules suivantes au niveau du formatage conditionnel en J22:

1ère formule :
=J22=AZ$12

2ème formule :
=ET(NB.SI($AZ$12:$BJ$12;J22);NB.SI($J22:J22;J22)<=NB.SI($AZ$12:$BJ$12;J22))

2ème formule :
=J22=AZ$14

Ensuite tu recopie en dessous et enfin tu recopie la plage J22:J42 en L22,
N22, ..., T22
Guy85
Le #21537521
Bonjour Michel
Dommage ça ne fonctionne pas.
Exemple:
Le mot est "ACHEVE".
1ère ligne = "ALBERT".
La lettre "E" est la 4ème comme le mot à trouver le fond est "jaune", alors
qu'il devrait être "rouge".
2ème ligne "ABAQUE".
La lettre "A" est la 3ème, le fond est "rouge" alors qu'il devrait être
"gris".et la lettre "E" en dernier le fond est "jaune" alors qu'il devrait
être "rouge".
3ème ligne "ACCEDE".
La 1ère lettre "C" le fond est "jaune" alors qu'il devrait être "rouge".
La 2ème lettre "C" le fond est "jaune" alors qu'il devrait être "gris".
Ci-joint:
http://www.cijoint.fr/cjlink.php?file=cj201004/cij56XN7vH.xls
Guy

"Michel__D" news: %
Michel__D a écrit :
Bonjour,

Guy85 a écrit :
Bonjour,
Oui le problème, c'est que cela se produit avec n'importe quelle lettre.
Si le mot est "ACERAT" et que je mets "ARBRES" c'est le 2ème "R" (il
faudrait qu'il soit gris) qui est en jaune parque y a un "R" en 4ème
lettre.
Comment éviter ça ?




Ben oui, la lettre A allait de pair avec ton exemple, mais bien
évidemment que quelque soit la lettre le
problème est le même.

Il n'y a pas 36 solutions, il faut revoir au minimum la formule du
formatage conditionnel et si ce n'est pas
possible de cette manière, le gérer via du code VBA.

PS: Si j'ai le temps je vais essayer de trouver une formule adéquate,
j'ai quelques idées ...



Essaye les formules suivantes au niveau du formatage conditionnel en J22:

1ère formule :
=J22=AZ$12

2ème formule :
=ET(NB.SI($AZ$12:$BJ$12;J22);NB.SI($J22:J22;J22)<=NB.SI($AZ$12:$BJ$12;J22))

2ème formule :
=J22=AZ$14

Ensuite tu recopie en dessous et enfin tu recopie la plage J22:J42 en L22,
N22, ..., T22
Modeste
Le #21537761
Bonsour® "Guy85"
Dommage ça ne fonctionne pas.
Il n'y a pas 36 solutions, il faut revoir au minimum la formule du
formatage conditionnel et si ce n'est pas
possible de cette manière, le gérer via du code VBA.







;o)))
'======== decompositions Lettres à Lettres pour comparaison
For Position = 1 To NbColonnes
Lettres(1, Position) = Mid(MotChoisi, Position, 1) ' lettres à rechercher
Lettres(2, Position) = Mid(MotProposé, Position, 1) ' lettres à trouver
Lettres(3, Position) = 0 ' flag de recherche
Next
'======== detection lettres correctement placées
Placés = 0
For Position = 1 To NbColonnes
If Lettres(1, Position) = Lettres(2, Position) Then
Placés = Placés + 1 ' incrémentation compteur de recherche exacte
Lettres(3, Position) = 1 ' affectation flag recherche exacte
Lettres(1, Position) = "" ' suppression de la Lettres recherchée
Lettres(2, Position) = "$" ' neutralisation de la Lettres trouvée
Lettres(4, Position) = Mid(MotChoisi, Position, 1) ' on met la Lettres
à afficher
End If
Next
'======== détection lettres mals placées
For Position = 1 To NbColonnes
For Rang = 1 To NbColonnes
If Lettres(3, Rang) = 0 Then ' la Lettres n'a pas eté placée
If Lettres(1, Position) = Lettres(2, Rang) Then
Lettres(3, Rang) = 2 ' affectation flag recherche exacte
Lettres(1, Position) = "" ' suppression de la Lettres
recherchée
Lettres(2, Rang) = "$" ' neutralisation de la Lettres trouvée
Exit For ' passage à la Lettres suivante
End If
End If
Next
Next
'======== compte rendu de la recherche
For Position = 1 To NbColonnes
With [origine].Offset(NbPropositions, Position)
.Value = Mid(MotProposé, Position, 1) ' affichage de la Lettres
'------------
Select Case Lettres(3, Position) ' selon valeur du flag
Case Is = 1 ' la Lettres est correctement placée
.Interior.Color = vbRed
If [Bruitages] Then sndPlaySound "Motus1.wav", SND_SYNC Or
SND_NODEFAULT
Case Is = 2 ' la Lettres est mal placée
.Interior.Color = vbYellow
.Font.ColorIndex = 15
If [Bruitages] Then sndPlaySound "Motus2.wav", SND_SYNC Or
SND_NODEFAULT
Case Is = 0 ' la Lettres n'existe pas dans le mot à
trouver
.Interior.Color = vbCyan
If [Bruitages] Then sndPlaySound "Motus3.wav", SND_SYNC Or
SND_NODEFAULT
End Select
'------------
End With
Next
Guy85
Le #21537831
Bonjour modeste,
Je comprends bien ce que tu veux dire.
J'ai bien vu cette extraction du code dans ton jeu.
Mais je ne vois pas ou le placer dans le mien sans modifier ma présentation
?

"Modeste"
Bonsour® "Guy85"
Dommage ça ne fonctionne pas.
Il n'y a pas 36 solutions, il faut revoir au minimum la formule du
formatage conditionnel et si ce n'est pas
possible de cette manière, le gérer via du code VBA.







;o)))
'======== decompositions Lettres à Lettres pour comparaison
For Position = 1 To NbColonnes
Lettres(1, Position) = Mid(MotChoisi, Position, 1) ' lettres à
rechercher
Lettres(2, Position) = Mid(MotProposé, Position, 1) ' lettres à trouver
Lettres(3, Position) = 0 ' flag de recherche
Next
'======== detection lettres correctement placées
Placés = 0
For Position = 1 To NbColonnes
If Lettres(1, Position) = Lettres(2, Position) Then
Placés = Placés + 1 ' incrémentation compteur de recherche exacte
Lettres(3, Position) = 1 ' affectation flag recherche exacte
Lettres(1, Position) = "" ' suppression de la Lettres recherchée
Lettres(2, Position) = "$" ' neutralisation de la Lettres trouvée
Lettres(4, Position) = Mid(MotChoisi, Position, 1) ' on met la
Lettres à afficher
End If
Next
'======== détection lettres mals placées
For Position = 1 To NbColonnes
For Rang = 1 To NbColonnes
If Lettres(3, Rang) = 0 Then ' la Lettres n'a pas eté placée
If Lettres(1, Position) = Lettres(2, Rang) Then
Lettres(3, Rang) = 2 ' affectation flag recherche exacte
Lettres(1, Position) = "" ' suppression de la Lettres
recherchée
Lettres(2, Rang) = "$" ' neutralisation de la Lettres trouvée
Exit For ' passage à la Lettres suivante
End If
End If
Next
Next
'======== compte rendu de la recherche
For Position = 1 To NbColonnes
With [origine].Offset(NbPropositions, Position)
.Value = Mid(MotProposé, Position, 1) ' affichage de la Lettres
'------------
Select Case Lettres(3, Position) ' selon valeur du flag
Case Is = 1 ' la Lettres est correctement placée
.Interior.Color = vbRed
If [Bruitages] Then sndPlaySound "Motus1.wav", SND_SYNC Or
SND_NODEFAULT
Case Is = 2 ' la Lettres est mal placée
.Interior.Color = vbYellow
.Font.ColorIndex = 15
If [Bruitages] Then sndPlaySound "Motus2.wav", SND_SYNC Or
SND_NODEFAULT
Case Is = 0 ' la Lettres n'existe pas dans le mot à
trouver
.Interior.Color = vbCyan
If [Bruitages] Then sndPlaySound "Motus3.wav", SND_SYNC Or
SND_NODEFAULT
End Select
'------------
End With
Next
Publicité
Poster une réponse
Anonyme