Microsoft 365 renseigner un userform

[pascal21]

bonjour à tous
je cherche le code qui permet de renseigner une listview grace à un bouton validation
les données devront se metrent les une après les autres à chaque validation
puis lors de la fermeture de l'usf que ces données soient effacées
pourquoi je veux faire ça?
l'userform sera en pleine page et donc l'utilisateur ne peux pas vérifier ce qu'il a inscrit dans la feuille
l'idée de la listview permet de savoir si il n'a pas oublié de noter quelque chose
c'est plus clair dans la pièce jointe
merci de votre aide
j'ai regardé à droite et à gauche mais je n'ai rien trouvé de facile à comprendre

 

[job75]

Bonjour,

c'est plus clair dans la pièce jointe

Pas du tout car il n'y a aucun code, on ne sait pas ce qu'il faut faire.

A+

 

[Dranreb]

Bonjour.

Option Explicit
Private Sub UserForm_Initialize()
   ListView1.View = lvwReport
   ListView1.ColumnHeaders.Add
   ListView1.ColumnHeaders.Add
   End Sub
Private Sub CommandButton1_Click()
   ListView1.ListItems.Add(Text:=TextBox1.Text).ListSubItems.Add Text:=TextBox2.Text
   End Sub

 

[pascal21]

Bonjour,

Pas du tout car il n'y a aucun code, on ne sait pas ce qu'il faut faire.

A+

Bonjour je viens de voir que déjà mon titre n'est pas bon je veux renseigner une listview

 

[pascal21]

Bonjour.

Option Explicit
Private Sub UserForm_Initialize()
   ListView1.View = lvwReport
   ListView1.ColumnHeaders.Add
   ListView1.ColumnHeaders.Add
   End Sub
Private Sub CommandButton1_Click()
   ListView1.ListItems.Add(Text:=TextBox1.Text).ListSubItems.Add Text:=TextBox2.Text
   End Sub

merci ca fonctionne parfaitement reste plus que la suppression des lignes

 

[Dranreb]

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
   ListView1.ListItems.Remove Item.Index
   End Sub