Discussion :

[Tonaj]

Bonjour à tous

J'aurais besoin d'aide car je débute en VB.net.
Voila mon problème : J'ai créé un Datagridview qui va chercher les données des 4 premières colonnes dans une BD Access. Ensuite je crée dynamiquement 365 colonnes par une boucle et je donne un jour de l'année à chaque en-tête de colonne.
J'ai ensuite créé un calendrier qui permet à l'utilisateur de choisir une plage de date. Ce que je souhaiterais faire, c'est qu'en fonction des dates choisies dans le calendrier, le programme cherche ces dates dans mon en-tête de Datagridview pour que je trouve la bonne plage.

Si quelqu'un pouvait m'aider, ce serait sympa

Merci d'avance

[Tonaj]

Ne vous embêtez pas, j'ai trouvé

Pour ceux que ça intéresse

Code VB.NET :

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
Public Class Calendar
    Private Sub MonthCalendar1_DateChanged(sender As Object, e As DateRangeEventArgs) Handles MonthCalendar1.DateChanged
        PremDate.Text = MonthCalendar1.SelectionRange.Start.Date.ToString("dd/MM/yyyy")
    End Sub
 
    Private Sub MonthCalendar2_DateChanged(sender As Object, e As DateRangeEventArgs) Handles MonthCalendar2.DateChanged
        DerDate.Text = MonthCalendar2.SelectionRange.Start.Date.ToString("dd/MM/yyyy")
    End Sub
 
    Private Sub ValideCalendar_Click(sender As Object, e As EventArgs) Handles ValideCalendar.Click
        Dim i As Integer
        Dim ColonneDebut As Integer
        Dim ColonneFin As Integer
 
        'Dim DateDebut As String
        'DateDebut = Me.PremDate.Text
 
        For i = 4 To PlanningGrid.DataGridView1.Columns.GetColumnCount(0) - 4
            If PlanningGrid.DataGridView1.Columns(i).HeaderText = Me.PremDate.Text Then
                ColonneDebut = i
                GoTo line25
            End If
        Next i
 
line25:
 
        For i = i To PlanningGrid.DataGridView1.Columns.GetColumnCount(0) - 4
            If PlanningGrid.DataGridView1.Columns(i).HeaderText = Me.DerDate.Text Then
                ColonneFin = i
            End If
        Next i
 
 
        Me.Hide()
 
    End Sub
End Class