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.