Discussion :

[oami89]

Bonjour
Je veux si j'écris un point d'interrogation et je clique la bouton entrée du clavier dans la premier colonne du datagridview et quelque soit la ligne le form2 s'affiche.le code si dessous foctionne mais regardez le if(Dg.Rows(1),Dg.Rows(2),Dg.Rows(3)...) jusqu'à 30 qui n'est pas du tous une solution d'effectuer 30 conditions.
Merci de m'aider a le faire pour toutes les lignes.

Code :

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

1
2
3
4
5
6
7
 Private Sub entre_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Dg.KeyUp
               If e.KeyCode = Keys.Enter Then
                   If Dg.Rows(0).Cells(0).Value = "?" Or Dg.Rows(1).Cells(0).Value = "?" Dg.Rows(2).Cells(0).Value = "?" Dg.Rows(3).Cells(0).Value = "?"   Then
                    form2.Show()
                End If
            End If
    End Sub

[Gurdil le nain]

Salut,

Essayes de voir du côté de la propriété SelectedRows.

[oami89]

Salut,

Essayes de voir du côté de la propriété SelectedRows.

J'ai pas trouvé une solution avec cette propositon aidez moi je suis débutant.

[oami89]

J'ai trouvé un solution

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
Private Sub entre_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Dg.KeyUp
 
        Dim i As Integer = 0
 
        If e.KeyCode = Keys.Enter Then
            Do
 
                If Dg.Rows(i).Cells(0).Value = "?" Then
 
                    Dialogarticle.Show()
                    Exit Do
                Else : i = i + 1
                End If
 
            Loop While i < 25
 
        End If
 
 
 
    End Sub

[Gurdil le nain]

Il y a quand même vachement plus simple.

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
 
Private Sub entre_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Dg.KeyUp 
 If e.KeyCode = Keys.Enter Then
            If Dg.SelectedCells.Count = 1 Then
 
                If Dg.SelectedCells.Item(0).Value = "?" Then
 
                     Dialogarticle.Show()
 
                End If
 
            End If
 
        End If
End Sub

[oami89]

Il y a quand même vachement plus simple.

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
 
Private Sub entre_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Dg.KeyUp 
 If e.KeyCode = Keys.Enter Then
            If Dg.SelectedCells.Count = 1 Then
 
                If Dg.SelectedCells.Item(0).Value = "?" Then
 
                     Dialogarticle.Show()
 
                End If
 
            End If
 
        End If
End Sub

Merci mais ton proposition ca ne marche pas.