Discussion :

[kika10]

Bonjour tout le monde, je veux afficher un tableau qui as un nombre fixe de colonnes et des lignes, et je donne la main a l’utilisateur de saisi des données correspondant a chaque colonne et ligne, et je ne sais pas quelle composant j’utilise ?
Merci l’équipe.

[kika10]

Re l'équipe, j’ai trouvé un composant DataGridView, mais je ne sais pas comment personnaliser les lignes(nombre et nom des lignes)?
Merci.

[chrismonoye]

Bonjour,
tu peux peut être t'inspirer de l'exemple ci dessous et l'adapter à tes besoins.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        With Me.DataGridView1
            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
            '.etc...
        End With
 
        MiseEnFormeDGV()
    End Sub
 
    '----- Pour la définition dynamique des colonnes
    Public Function AjoutCol(ByVal DGV As DataGridView, ByVal nomColonne As String, ByVal titreColonne As String, _
                                      Optional ByVal NomDonnees As String = "", _
                                      Optional ByVal iWidth As Integer = 0, _
                                      Optional ByVal bReadonly As Boolean = False, _
                                      Optional ByVal format As String = "", _
                                      Optional ByVal alignCells As DataGridViewContentAlignment = DataGridViewContentAlignment.MiddleLeft, _
                                      Optional ByVal alignHeader As DataGridViewContentAlignment = DataGridViewContentAlignment.MiddleCenter, _
                                      Optional ByVal wrapmodecells As DataGridViewTriState = DataGridViewTriState.False) As Boolean 'format As String = ""
 
        Try
            Dim dtc As New DataGridViewTextBoxColumn
            With dtc
                .Name = nomColonne
                If NomDonnees.Length > 0 Then .DataPropertyName = NomDonnees
                .HeaderText = titreColonne
                .ReadOnly = bReadonly
                .AutoSizeMode = DataGridViewAutoSizeColumnMode.None
                If iWidth > 0 Then .Width = iWidth
                If format.Length > 0 Then
                    .DefaultCellStyle.Format = format
                End If
                .DefaultCellStyle.Alignment = alignCells
                .HeaderCell.Style.Alignment = alignHeader
                .DefaultCellStyle.WrapMode = wrapmodecells
                .SortMode = DataGridViewColumnSortMode.NotSortable
            End With
            DGV.Columns.Add(dtc)
            Return True
        Catch ex As Exception
            Debug.Print("AjouterUneColonne : " & ex.Message)
            Return False
        End Try
    End Function
 
    Private Sub MiseEnFormeDGV()
 
        AjoutCol(DataGridView1, "Num", "N°", "Num", 60, False, , DataGridViewContentAlignment.TopRight, _
                 DataGridViewContentAlignment.MiddleCenter)
        AjoutCol(DataGridView1, "Libel", "LIBELLES", "Libel", 460, False, , DataGridViewContentAlignment.TopLeft, _
                 DataGridViewContentAlignment.MiddleCenter, DataGridViewTriState.True)
        AjoutCol(DataGridView1, "Unit", "U", "Unit", 50, False, , DataGridViewContentAlignment.BottomCenter, _
                 DataGridViewContentAlignment.MiddleCenter)
        AjoutCol(DataGridView1, "Quant", "QUANTITES", "Quant", 100, False, "N3", DataGridViewContentAlignment.BottomRight, _
                 DataGridViewContentAlignment.MiddleCenter)
        AjoutCol(DataGridView1, "PrixUnit", "PRIX UNIT.", "PrixUnit", 100, False, "N2", DataGridViewContentAlignment.BottomRight, _
                 DataGridViewContentAlignment.MiddleCenter)
        AjoutCol(DataGridView1, "PrixHT", "PRIX H.T.", "PrixHT", 112, False, "N2", DataGridViewContentAlignment.BottomRight, _
                 DataGridViewContentAlignment.MiddleCenter)
 
    End Sub
 
End Class

[kika10]

Merci chrismonoye, mais mon problème c'été avec les lignes, c'est bon j'ai trouve la solution:

Code :

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

1
2
DataGridView1.RowCount = nb_ligne
         DataGridView1.Rows(ligne).HeaderCell.Value = "Nom ligne"

Merci.