Slt tout le monde, je suis pour une aide si possible.
Voici mon probleme:
je sauvegardé mes données que j'ai saisie sur ma Listview, c'est à dire je veux qu'il restent dans ma listview pour toujours, aidez moi si possible, merci d'avance.
Voici mon code:
Private Sub CmdAjouter_Click()
'J'oblige l'utilisateur à saisir du text dans les TexBoxIf ((Len(Trim$(TxtNom.Text)) > 0) And (Len(Trim$(TxtPrenom.Text)) > 0) And (Len(Trim$(TxtProfession.Text)) > 0)) Then
' Appelle de saisie Call AppendLineToLV(Me.ListView1, TxtNom.Text, TxtPrenom.Text, TxtProfession.Text)
Else
'Si aucun text n'est saisie, ce message apparaitMsgBox "Une ou plusieurs zones ne sont pas remplies"
End If
'Effacer les TextBox
TxtNom.Text = ""
TxtPrenom.Text = ""
TxtProfession.Text = ""
TxtNom.SetFocus
End Sub
Private Sub CmdEnregistrer_Click()
'je sauvegarde mes données saisies sur ma Listview, je veux qu'il restent pour toujours
End Sub
Private Sub Form_Load()
With ListView1
.View = lvwReport
.ColumnHeaders.Add 1, , "NOM"
.ColumnHeaders.Add 2, , "PRENOM"
.ColumnHeaders.Add 3, , "PROFESSION"
.GridLines = True
End With
End Sub
Sub AppendLineToLV(ByRef LV As ListView, ParamArray vasValues() As Variant)
If (LV.ColumnHeaders.Count > 0) And (Not UBound(vasValues) = -1) Then
Dim LI As ListItem
Dim i As Integer
LV.ListItems.Add , , vasValues(0)
Set LI = LV.ListItems.Item(LV.ListItems.Count)
For i = 1 To UBound(vasValues)
If i = LV.ColumnHeaders.Count Then Exit For
LI.SubItems(i) = vasValues(i)
Next i
Set LI = Nothing
End If
End Sub