bonsoir
voici mon code de chargement du fichier
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles Me.Load
DataGridView1.BackgroundColor = Color.LightCyan
DataGridView1.BorderStyle = BorderStyle.Fixed3D
DataGridView1.DefaultCellStyle.SelectionBackColor = Color.White
DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.Aqua
'DataGridView1.Rows.Add(30)
' Enable resizing on the column headers
Me.DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
' Adjust the text alignment on the column headers to make the text display
' at the center of the bottom
Me.DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.BottomCenter
'important pour lire il faut recreer les entête du tableau
'attention on sauvegarde que du texte pour habille le tableau cellule soculeurs et casses il faut l faire après d'où intereêt à crrer cela avec un bouton
DataGridView1.ColumnCount = 11
DataGridView1.Columns(0).Name = ""
DataGridView1.Columns(0).Name = ""
DataGridView1.Columns(1).Name = "Prénom "
DataGridView1.Columns(2).Name = "Nom"""
DataGridView1.Columns(3).Name = "Société / métier"
DataGridView1.Columns(4).Name = "Adresse"
DataGridView1.Columns(5).Name = ""
DataGridView1.Columns(6).Name = "C.P"
DataGridView1.Columns(7).Name = "Ville"
DataGridView1.Columns(8).Name = "Téléphone mobile"
DataGridView1.Columns(9).Name = "Téléphone fixe"
DataGridView1.Columns(10).Name = "E-mail"
''chargement de la lecture texte seul
Dim open As New OpenFileDialog
open.Filter = "Fichier Texte|*.txt"
open.FileName = "contacts"
open.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
If open.ShowDialog = Windows.Forms.DialogResult.OK Then
Using reader As New StreamReader(open.FileName)
Dim TextLine As String = ""
Dim SplitLine() As String
Do While reader.Peek <> -1
TextLine = reader.ReadLine()
SplitLine = Split(TextLine, vbTab)
DataGridView1.Rows.Add(SplitLine)
Loop
reader.Close()
End Using
'MessageBox.Show("Fichier chargé", "Chargement")
Form2.Button_lire_fichier.Text = "fichier chargé"
Else : Exit Sub
End If
DataGridView1.Rows.Add(1)
End Sub
et le code du changment de l'index
Private Sub Button2_ajouter_Click(sender As Object, e As EventArgs) Handles Button2_ajouter.Click
'Form3.DataGridView1.Rows.Add(1)
Form3.DataGridView1.Refresh()
Dim b As Integer, c As String
Dim d As String = " "
b = Form3.DataGridView1.RowCount - 1
MsgBox("nombre de ligne=" & b)
For i = 1 To b
c = Form3.DataGridView1.Rows(i).Cells.Item(1).Value.ToString
MsgBox("cellule=" & c & " " & "temoin=" & d)
If d = "" And c = "" Then
numligne = i : Exit For
End If
Next
MsgBox("numero ligne libre =" & numligne)
Form3.DataGridView1.Rows(numligne).Cells.Item(1).Value = TextBox1_prenom.Text
end sub
merci de votre aide
