Discussion :

[bucabuca]

salut
j'ai un datagridview de 3 colonnes et de 20 lignes alimenté par un source de données de 3 champs "Nom", "note", "rang"
j'aimerai savoir comment calculer la valeur du rang de chaque cellule de la colonne 2 et l'afficher dans la cellule voisine par analogie à la fonction RANG d'Excel.

[charouel]

si tu fait une classe avec 3 propriété Nom, Note, Rang et tu fait le calcule de rang sur cette classe ensuite tu remplie le datgridview a partir de la classe c'est mieux (et DatagridView n'est pas exactement Excel )

[bucabuca]

si tu fait une classe avec 3 propriété Nom, Note, Rang et tu fait le calcule de rang sur cette classe ensuite tu remplie le datgridview a partir de la classe c'est mieux (et DatagridView n'est pas exactement Excel )

merci charouel
mais ma source de données est vide seuls les noms des élèves qui y figurent.
et par saisie de la note directement dans la cellule2 du DatagridView, y'a-il un code qui générer automatiquement le rang de celle-ci dans la cellule 3
merci.

[chrismonoye]

Bonsoir,
vu que le rang d'une note est le nombre de notes supérieure à celle ci + 1, dans une liste décroissante de toutes les notes.
Donc on récupère toutes les notes dans la colonne concernées du Dgv (List(Of Double)).
On trie la liste, ordre décroissant.
Enfin on recherche l'index de chaque note dans la liste triée.
Genre :

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
    Private Sub DataGridView1_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
 
        '--- Récupération des notes dans une liste.
        Dim listNotes As New List(Of Double)
        If col = 1 Then
            For i As Integer = 0 To DataGridView1.RowCount - 1
                If DataGridView1.Rows(i).Cells(1).Value IsNot Nothing Then
                    listNotes.Add(CDbl(DataGridView1.Rows(i).Cells(1).Value.ToString))
                End If
            Next
            '--- Tri de cette liste, ordre décroissant.
            Dim reverseComp As Comparison(Of Double) = Function(x, y) y.CompareTo(x)
            listNotes.Sort(reverseComp)
        End If
 
        '--- Recherche de l'index dans la liste de la note cherchée.
        '--- Vu que cette fonction ne s'occupe que de la 1ère occurrence trouvée, les ex aequo sont traités
        For i As Integer = 0 To DataGridView1.RowCount - 1
            If DataGridView1.Rows(i).Cells(1).Value IsNot Nothing Then
                DataGridView1.Rows(i).Cells(2).Value = listNotes.IndexOf(CDbl(DataGridView1.Rows(i).Cells(1).Value)) + 1
            End If
        Next
 
    End Sub

Pour col et lin, on les récupère en temps réel dans cet événement :

Code :

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

1
2
3
4
5
6
7
8
    Dim col As Integer
    Dim lin As Integer
    Private Sub DataGridView1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.CurrentCellChanged
 
        col = DataGridView1.CurrentCell.ColumnIndex
        lin = DataGridView1.CurrentCell.RowIndex
 
    End Sub

Voici un début de réflexion.