Discussion :

[Echyzen]

Salut à tous,

J'ai un problème somme toute assez complexe notamment a expliquer...

Voilà, j'ai une seul colonne de mon DatagridView en mode ComboBox j'ai bien rajouter les items dans la liste le seul truc c'est que j'aimerais à la sélection d'un item de cette liste je puisse recuper l'index de celui-ci...

J'espère que vous avez compris ce que je voulais dire, le truc c'est que sur le net il y a des tas de tutos qui ne fonctionne pas ou donne pas vraiment le résultat escomptée. Donc j'en appelle au site des développeur

Merci d'avance de votre réponse,
Echyzen

[chaparo]

Bonjour,

Code :

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

1
2
3
4
 
for each r in dgv.SelectedRows
r.Index
next

ou

dgv.CurrentRow.Index

ou

Code :

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

1
2
3
4
 
Private Sub dgv_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick
        e.RowIndex
End Sub

[Echyzen]

Bon, alors j'ai testé mais cela n'est pas ce que je recherchais, j'ai du mal expliquer néanmoins, après mainte recherche et test j'ai pu trouver. Je poste la réponse histoire que d'autre personne puisse trouver car c'est pas évident :

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
    Private Sub Sched_Grid_EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles DGV_SIG.EditingControlShowing
        If DGV_SIG.CurrentCell.ColumnIndex = 1 Then
            Dim selectedComboBox As ComboBox = DirectCast(e.Control, ComboBox)
            RemoveHandler selectedComboBox.SelectionChangeCommitted, AddressOf selectedComboBox_SelectionChangeCommitted
            AddHandler selectedComboBox.SelectionChangeCommitted, AddressOf selectedComboBox_SelectionChangeCommitted
        End If
    End Sub
 
    Private Sub selectedComboBox_SelectionChangeCommitted(ByVal sender As Object, ByVal e As EventArgs)
        Dim selectedCombobox As ComboBox = DirectCast(sender, ComboBox)
        If selectedCombobox.SelectedItem IsNot Nothing Then
 
            DGV_SIG(1, DGV_SIG.CurrentCell.RowIndex).Value = selectedCombobox.SelectedItem
            'trouver la selection correspondante
            Dim Rang As Integer
            For x As Integer = 0 To Nerys_Get_Attribut()(0).Count - 1
                If DGV_SIG(1, DGV_SIG.CurrentCell.RowIndex).Value = Nerys_Get_Attribut()(0)(x) Then
                    'MessageBox.Show("valeur de x : " & x)
                    Rang = x
                End If
                'MessageBox.Show(Nerys_Get_Attribut()(x)(0).ToString)
            Next
            Dim Ligne As Integer = DGV_SIG.CurrentCell.RowIndex.ToString()
 
            'Assignation des informations correspondante
            DGV_SIG.Rows(Ligne).Cells(2).Value() = Nerys_Get_Attribut()(1)(Rang)
            DGV_SIG.Rows(Ligne).Cells(3).Value() = Nerys_Get_Attribut()(2)(Rang)
        End If
    End Sub

Voilà, merci à toi chaparo a bientôt