XL 2016 Construction du jeu de modus

papychat1 à dit:

Bonjour le jeu de motus avance grace à l'aide de jurassic pork et de sylvanu
que je remercie encore pour les découvertes qu'ils m'ont apportées.
Rest que je voudrais maintenant que le curseur se place dans le première cellule vide de la ligne en cour
exemple au départ en b1 puisque le nouveau mot affiche la première lettre de celui-ci.
dès que je rentre une lettre donc en b1 celui-ci passe en c1 etc...
Après validation on passe en ligne 2 et en b2 puisque la première lettre s'affiche de part le code.
Tout cela en pouvant cependant garder un accès à ce curseur pour pouvoir éventuellement modifier une lettre.
Ok je suis exigent mais je vous remercie par avance.
Bien cordialement
un vieux qui essaye de mieux comprendre les formule vba ainsi que les fonctionnalités

Cliquez pour agrandir...

papychat1 à dit:

j'ai omis le lien, l'âge!!!:
https://www.cjoint.com/c/OAFt2ZmRBb5

Cliquez pour agrandir...

Public Lettre$, cellule
Public longueurMot As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
    If Target.Count > 1 Then Exit Sub
    If Target.Column < longueurMot Then
        For i = Target.Column + 1 To longueurMot
            Debug.Print i, Cells(Target.Row, i)
            If Cells(Target.Row, i) = "" Then
                Cells(Target.Row, i).Select
                Exit Sub
            End If
        Next i
    End If
    For i = 1 To Target.Column - 1
        If Cells(Target.Row, i) = "" Then
            Cells(Target.Row, i).Select
            Exit Sub
        End If
    Next i
End Sub

Gégé-45550 à dit:

Bonsoir,
Proposition :
1.) déplacer la variable ongueurMot dans le modile3

VB:

Public Lettre$, cellule
Public longueurMot As Integer

et ajouter ce code dans celui de la Feuil1(Jeu)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
    If Target.Count > 1 Then Exit Sub
    If Target.Column < longueurMot Then
        For i = Target.Column + 1 To longueurMot
            Debug.Print i, Cells(Target.Row, i)
            If Cells(Target.Row, i) = "" Then
                Cells(Target.Row, i).Select
                Exit Sub
            End If
        Next i
    End If
    For i = 1 To Target.Column - 1
        If Cells(Target.Row, i) = "" Then
            Cells(Target.Row, i).Select
            Exit Sub
        End If
    Next i
End Sub

Cordialement,

Cliquez pour agrandir...

sylvanu à dit:

Bonjour tout le monde,
Un essai en PJ.
J'ai rétréci la liste de mot pour que ça tienne sous 1Mo, et éviter d'utiliser un service tiers.
( les PJ sur Cjoint finisse par être effacées et donc inaccessible )

Cliquez pour agrandir...

Rheeem à dit:

J'ai aucune idée sur le jeu mais si tu cherches à passer à la cellule vide suivante dans la grille essaie ce code:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:I6")) Is Nothing Then
        cellule = (Target.Row - 1) * 7 + Target.Column
    ElseIf Not Intersect(Target, Range("A8:I10")) Is Nothing Then
        Dim Rng As Object, i As Long
        Set Rng = Range("A1:G6")
        If cellule = "" Then
           cellule = 1
        End If
        Rng.Cells(cellule) = Target
        For i = cellule To Rng.Count
          If Rng.Cells(i) = "" Then
             cellule = i
             Exit For
          End If
        Next
        Rng.Cells(cellule).Select
    End If
Fin:
End Sub

Cliquez pour agrandir...

papychat1 à dit:

Bonjour et merci gégé 45550
j'ai bien placé dans module 3
cependant le code dans la feuille 1,
après plusieurs essais je ne sais pas où exactement le placé dans le code existant?
Au début?
avant fin?
où entre fin et end sub?
Merci

Cliquez pour agrandir...

papychat1 à dit:

car ce code ne s'arrête pas en fin de mot pour la validation
et du coup se place bien en ligne en dessous sans recopier la lettre indiquée au départ en a1.

Cliquez pour agrandir...

sylvanu à dit:

Nouvelle version. La vérif est automatique en fin de mot.

Cliquez pour agrandir...

papychat1 à dit:

ils peuvent y rajouter une vérification du mot tapé
par un dictionnaire pour éviter l'entrée de mots incohérents.

Cliquez pour agrandir...

Rheeem à dit:

Regardez dans le fichier joint

Cliquez pour agrandir...

sylvanu à dit:

Re,
Pour illustrer mes propos, pour le fun, et parce qu'on est dimanche, j'ai regardé la distribution des lettres dans votre liste.
On obtient pour165 536 mots, et 1 291 718 lettres la distribution suivante :
Regarde la pièce jointe 1212243
Donc mon premier mot serait si V est la première lettre : VEASIRTN
😉

Cliquez pour agrandir...