Dim Derlig As Byte, Lig As Byte Dim i As Long Dim Existe As Boolean With Sheets(1) Derlig = .Columns("D").Find("*", , , , , xlPrevious).Row If Derlig > 170 Then For Lig = 171 To Derlig Existe = False For i = 0 To listbox1an.ListCount - 1 If listbox1an.List(i) .Cells(Lig, "D") Then Existe True Next If Existe = False Then listbox1an.AddItem .Cells(Lig, "D") Next End If End With Dim Ligvide As Byte Dim i As Long Dim Existe As Boolean Existe = False For i = 0 To listbox1an.ListCount - 1 If listbox1an.List(i) Labelannee.Caption Then Existe True Next If Existe = False Then listbox1an.AddItem Labelannee.Caption With Sheets(1) Ligvide = .Columns("D").Find("", .Range("D170"), xlValues).Row .Cells(Ligvide, "D") = Labelannee End With
Private Sub CommandButton1_Click() ListBox1.AddItem TextBox1.Text End Sub 'Ou encore en appuyant sur entrée à la saisie dans le textbox: Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then ListBox1.AddItem TextBox1.Text End Sub
Je cherche comment alimenter une listbox en fonction d'un texte saisi dans une textbox
Private Sub CommandButton1_Click() Dim TexteAInserer As String Dim i As Long TexteAInserer = "toto" 'Exemple For i = 0 To ListBox1.ListCount - 1 If ListBox1.List(i) = TexteAInserer Then Exit Sub Next ListBox1.AddItem TexteAInserer End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim Derlig As Byte, Lig As Byte With Sheets(1) Derlig = .Columns("D").Find("*", , , , , xlPrevious).Row If Derlig > 170 Then For Lig = 171 To Derlig ListBox1an.AddItem .Cells(Lig, "D") Next End If End With
Dim Ligvide As Byte ListBox1an.AddItem Labelannee With Sheets(1) Ligvide = .Columns("D").Find("", .Range("D170"), xlValues).Row .Cells(Ligvide, "D") = Labelannee End With