Bonsoir,

J'ai une petite question :

Comment faire pour que, sitot que qu'une lettre de l'alphabet sorte dans mon txtbox, je ne puisse plus la reutiliser ?

En effet, j'ai un pendu a faire ou c'est le PC qui doit piocher des lettres et les tester sur le mot.

Donc, il genere un nombre entre 1 et 26, prenons 5 donc E. Il compare, il la place et maintenant il ne peut plus la reutiliser.

J'ai utiliser un

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 Randomize()
        RandomNombre = (25 * Rnd()) + 1
 
        Select Case RandomNombre
 
            Case "1"
                RandomLettre = "A"
            Case "2"
                RandomLettre = "B"
            Case "3"
                RandomLettre = "C"
            Case "4"
                RandomLettre = "D"
            Case "5"
                RandomLettre = "E"
            Case "6"
                RandomLettre = "F"
            Case "7"
                RandomLettre = "G"
            Case "8"
                RandomLettre = "H"
            Case "9"
                RandomLettre = "I"
            Case "10"
                RandomLettre = "J"
            Case "1"
                RandomLettre = "K"
            Case "12"
                RandomLettre = "L"
            Case "13"
                RandomLettre = "M"
            Case "14"
                RandomLettre = "N"
            Case "15"
                RandomLettre = "O"
            Case "16"
                RandomLettre = "P"
            Case "17"
                RandomLettre = "Q"
            Case "18"
                RandomLettre = "R"
            Case "19"
                RandomLettre = "S"
            Case "20"
                RandomLettre = "T"
            Case "21"
                RandomLettre = "U"
            Case "22"
                RandomLettre = "V"
            Case "23"
                RandomLettre = "W"
            Case "24"
                RandomLettre = "X"
            Case "25"
                RandomLettre = "Y"
            Case "26"
                RandomLettre = "Z"
 
        End Select

Mais je doute que ce soit la bonne méthode...