Bonjour a tous, voici mon problème, mon code fonction parfaitement pour changer la date d'une cellule sélectionné sur ma dgw_semfab_lot.

Par contre je souhaiterai sélectionner plusieurs lignes et que cette tache (changement de date) s'applique a toutes les lignes sélectionnées.

J'ai essayé dans plusieurs sens mais je suis novice

Merci par avance

PS : si possible de m’éclairer pour que je me débrouille tout seul

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
65
66
67
68
69
70
71
72
73
 Private Sub ToolStripTextBox1_Click(sender As Object, e As EventArgs) Handles ToolStripTextBox1.Click
        Try
            Dim titre_du_lot As String = ""
 
            Dim lsitbox1 As New ListBox
            Dim i, j As Integer
            Dim nv_date1, prodweek As String
            Dim blanc As Boolean = False
            Dim fut_date_liv As Date = Nothing
            Dim dte_totale, dte_fin, jourplus, date_supply As String
            Dim liste_dossier As String = ""
            Dim liste_dossier_vr As String = ""
            Dim nb_jour As Integer = 0
            jourplus = ""
 
 
 
            Dim lot As String = cherche_lot_suivant()
 
 
            Dim dossier As String = ""
 
            dossier = dgw_semfab_lot.SelectedCells.Item(0).Value.ToString
 
 
            'Recherche de la date de lancement, de fin et d'approvisionnement du dossier
            dte_totale = cherche_date_prod(dossier)
            'date de début de fab
            dte_deb1 = dte_totale.Substring(0, 10)
            'date de fin de fab du dossier
            dte_fin = dte_totale.Substring(11, 10)
            'date d'approvisionnement du dossier
            date_supply = dte_totale.Substring(22, 10)
 
            Dialog_chgt_date.ShowDialog()
            nv_date1 = new_date & " 00:00:00"
            prodweek = NumSemaine(new_date)
 
            prodweek = Year(new_date) & prodweek
 
            'nombre de jour entre le début de fab et la fin de fab
            nb_jour = fer.Work_Days1(dte_deb1, dte_fin, True) - 1
 
 
            'ajout du nombre de jours trouvé à la nouvelle date de lancement
            jourplus = fer.Work_Days_add(new_date, nb_jour, True) & " 00:00:00"
            'nombre de jour entre l'approvisionnement et le début de fab
            jourplus_supply = fer.Work_Days1(date_supply, dte_deb1, True)
            'ajout du nombre de jour à la nouvelle date
            jourplus_supply = fer.Work_Days_moins(new_date, -jourplus_supply, True) & " 00:00:00"
 
            If Dialog_chgt_date.DialogResult = DialogResult.OK Then
                changemant_date_prod(dossier, nv_date1, jourplus, jourplus_supply, prodweek)
            Else
                Exit Sub
            End If
 
            'changemant_date_prod_det(DataGridView1.Item(0, i).Value, nv_date1, prodweek)
 
 
 
 
 
            actualisation_mise_en_lot()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
 
 
 
 
    End Sub