Discussion :

[Jean_btx]

Bonjour à tous,

j'essaie de simuler une navigation dans des fenêtres d'un logiciel, mais j'ai besoin de saisir du texte (comme on ferait avec un mot de passe) le contrôler mais juste en validant par la touche [Entrée] du clavier.
J'utilise pour cela une TextBox sur la slide concernée, mais elle ne se remet pas à zéro en relançant la présentation et ne se valide pas avec la touche [entrée].

Voici le code de la diapo1 :

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
Private Sub ActivePresentation()
     TextBox1.Value = ""
End Sub
 
Private Sub TextBox1_Click()
    Set TextBox1.Text = ""
End Sub
 
Private Sub CommandButton1_Click()
 
Select Case TextBox1
     Case "mdp"
       SlideShowWindows(1).View.GotoSlide (3)
     Case Else
       SlideShowWindows(1).View.GotoSlide (1)
   End Select
End Sub

Qui ne fonctionne qu'avec le bouton de validation ajouté.

J'ai essayé cela :

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
Private Sub TextBox1_Change()
 
TextBox1.EnterKeyBehavior = True
 
'Test for line feed (user pressed enter)
    If Right(TextBox1.Value, 1) = vbLf Then
 
        ' mdp$ = textbox1_value
        ' Clear the Textbox value
            If Left(TextBox1.Value, 3) = "mdp" Then
                SlideShowWindows(1).View.GotoSlide (3)
                Else
                SlideShowWindows(1).View.GotoSlide (1)
            End If
 
        TextBox1.Value = ""
    End If
 
End Sub

sans plus de succès.

Avez-vous des pistes pour corriger mon problème.

Merci d'avance, bien cordialement

[Yves_VBA]

Bonjour jean_btx,

je te conseille d'utiliser un UserForm dans lequel tu mettras ton TextBox (dans lequel tu pourras saisir ton texte) ainsi qu'un CommandButton (qui fera les contrôles lors de l'appui sur le bouton). Tu peux faire l'initialisation du texte (la raz) à l'ouverture de ce UserForm.

Yves