Bonjour le forum,
Dans l'attente de pistes de travail.
Deux possibilités :
1. Saisir un mot et le faire deviner.
2. Trouver un mot.
Mais ce n'est qu'un shockwave.
Sub test()
With Sheets(2)
For i = 32 To 255
Cells(i - 31, 3).Value = Chr(i)
Cells(i - 31, 2).Value = Asc(Chr(i))
Cells(i - 31, 4).Value = Hex(Asc(Chr(i)))
Next
End With
End Sub
... ÓÒ tu pourras en ajouter (tu as bien quelques coupes de champagne dans ta collection non ?)
Version précédente sans le WebBrowser qui ne fonctionne pas sur toutes les machines.