Discussion :

[rolls]

Bonjour à tous.
Je dispose d'un DataGrid avec des données et je souhaite faire une recherche séquentielle suivant une colonne du de celui ci.

J'aimerai que lorsque le Form qui contient le DataGrid est actif et que l'on appuie sur 'R' ou sur 'r' qu'un TextBox pour que je puisse saisir la donnée que je recherche.
J'ai essayé ceci mais ça ne marche pas.

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
 
Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 82 Or KeyAscii = 114 Then 'si j'appuie sur R ou sur r
        Text.Visible = True       'j'affiche le Textbox
    End If
End Sub
 
'code associé au changement du TextBox
 
Private Sub Text_Change()
    On Error GoTo fin
        Text.SetFocus
        setSource  'source qui remplie le DataGrid
fin:
    If Err.Number <> 0 Then
        print_ERR
    End If
End Sub

le problème est de faire apparaitre le textbox lorque j'appuie sur R ou r(ou une combinaison de touches Ctrl+R parexemple)
D'avance merci!

[OhMonBato]

La propriete KeyPreview de ta feuille est a True ?

[rolls]

Non elle était à False et je L'ai mise à True.
ça marche maintenant.
Comment dois je procéder pour la combinaison de touche (Ctrl+R par exemple)?

[OhMonBato]

par exemple, une feuille avec un label, propriete KeyPreview de la feuille a True :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = vbKeyR Then
Label1.Caption = "Appuis sur CTRL + R"
Else
Label1.Caption = "Autre chose"
End If
End Sub

Mais mieux encore :
Si tu avais regarde l'aide de KeyPreview, tu aurais eu le lien "Voir aussi" et la tu tombais sur KeyUp/KeyDown ou tout est explique. Ca me semble plus important de retenir ca que le code que je te donne, ca pourra servir pour d'autres problemes.

[rolls]

par exemple, une feuille avec un label, propriete KeyPreview de la feuille a True :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = vbKeyR Then
Label1.Caption = "Appuis sur CTRL + R"
Else
Label1.Caption = "Autre chose"
End If
End Sub

Ok!
merci OhMonBato j'appliquerai tes recommandation prochainement
Merci