Bonjour, comme d'habitude... Je pensais avoir tout compris au SELECT ET END SELECT mais... comme d'habitude ça ne marche pas !

Donc...

Je voudrais qu'il analyse l'ecran1box_utilisateur et qu'en fonction de la réponse, il retourne une phrase provenant d'un tableau !

Sub action_pour_entrer()


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
 
        Select Case ecran1.box_utilisateur.Text.ToUpper
 
            Case ecran1.box_utilisateur.Text.ToUpper = "BONJOUR"
                ecran1.pierre_parle.Text = discours_pierre(2)
                validation(0) = True
 
            Case ecran1.box_utilisateur.Text.ToUpper = "SALUT"
                ecran1.pierre_parle.Text = discours_pierre(3)
                validation(0) = True
 
            Case ecran1.box_utilisateur.Text.ToUpper = "BONJOURNO"
                ecran1.chat_pierre.Text = discours_pierre(5)
                validation(0) = True
 
            Case ecran1.box_utilisateur.Text.ToUpper = "HELLO"
                ecran1.pierre_parle.Text = discours_pierre(6)
                validation(0) = True
 
            Case Else
                ecran1.pierre_parle.Text = discours_pierre(4)
 
        End Select
 
End sub
Dans tous les cas, que je tape "BONJOUR" ou "bonjour" ou "Bonjour", il me retourne la phrase 4, celle de CASE ELSE

Pourquoi ne les reconnait-il pas ?

Où ais-je fais une erreur ?

Il peut-être temps que j'arrive à comprendre le fonction de SELECT !

Merci d'avance