Comprendre l'utilisation d'une listbox excel vba

Effectivement cela marche, j'ai refais un essai sur une autre feuille et pas de problème.
J'ai une autre question, comment éviter de saisir des doublons ?

Bonjour Et merci Michel,

Ce tuto, je le connais mais je n'arrive pas à m'y faire.
J'ai essayé ceci :

Private Sub CommandButton1_Click()
[F1] = TextBox1.Text
Sheets(1).Cells(1, 6).Copy
Sheets(1).Cells(65535, 1).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
ListBox1.RowSource = "A3:A20"
End Sub

Il doit surement y avoir un code plus fonctionnel., merci

Up, svp

Bonjour,

Il doit surement y avoir un code plus fonctionnel., merci

certainement, encore faudrait il savoir ce que tu veux faire

apparamment, tu chercherais à mettre dans la listbox la valeur écrite dans le textbox mais quelle est l'utilité de cette cellule F1 ?

les crochets encadrant F1 donne la valeur de F1; (ces crochets sont utilisés pour écrire le résultats de formules matricielles dans VBA, et par détournement la valeur d'une cellule) or tu cherches à mettre dans F1 la valeur du textbox d'où plantage certain

Michel

Bonjour

Cette cellule F1 est bien la représentation de ce qui est écrit dans la textbox.
Ne sachant comment procéder, j'essaie différentes choses.
Effectivement, je cherche comment mettre ce qui est écrit dans la textbox dans la listbox, merci

re,

Private Sub UserForm_Initialize() 
Dim Derlig As Byte, Lig As Byte 
With Sheets(1) 
     Derlig = .Columns("A").Find("*", , , , , xlPrevious).Row 
     If Derlig > 2 Then 
          For Lig = 3 To Derlig 
               ListBox1.AddItem .Cells(Lig, "A") 
          Next 
     End If 
End With 
End Sub 

Private Sub CommandButton1_Click() 
Dim Ligvide As Byte 
ListBox1.AddItem TextBox1 
With Sheets(1) 
     Ligvide = .Columns("A").Find("", .Range("A2"), xlValues).Row 
     .Cells(Ligvide, "A") = TextBox1 
End With 
End Sub

maquette
https://www.cjoint.com/?3CymKsjGaRa

Michel

Merci, je vais regarder votre fichier et essayer de comprendre.

Grand merci, en fait c'est simple à comprendre.

Par contre lorsque je ferme la fenêtre et que je rouvre, ce qui est déjà écrit dans les cases remplies ( par ex : A3, A4, A5 ) il n'y a rien dans la listbox.
Il doit surement mettre un code à l'initialisation de l'userform pour cette listbox ?