Bonjour,
Pouvez-vous me dire comment faire une maj auto d'une combobox svp? (lorsque j'ajoute une ligne elle n'apparait pas dans la combobox sauf si je ferme excel et que je l'ouvre a nouveau)
voici le code actuelle de ma combobox
Private Sub ComboBox1_Change() 'remplire les champs textbox
If Me.ComboBox1.ListIndex <> -1 Then
Me.TextBox29 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 2)
Me.TextBox16 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 3)
Me.TextBox12 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 4)
Me.TextBox18 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 5)
Me.TextBox15 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 6)
Me.TextBox13 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 7)
Me.TextBox9 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 8)
Me.TextBox17 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 9)
Me.TextBox5 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 10)
Me.TextBox6 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 11)
Me.TextBox7 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 12)
Me.TextBox4 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 13)
Me.TextBox21 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 14)
Me.TextBox20 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 15)
Me.TextBox19 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 16)
Me.TextBox22 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 17)
Me.TextBox24 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 18)
Me.TextBox23 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 19)
Me.TextBox25 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 20)
Me.TextBox27 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 21)
Me.TextBox26 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 22)
End If
End Sub
merci d'avance
Pouvez-vous me dire comment faire une maj auto d'une combobox svp? (lorsque j'ajoute une ligne elle n'apparait pas dans la combobox sauf si je ferme excel et que je l'ouvre a nouveau)
voici le code actuelle de ma combobox
Private Sub ComboBox1_Change() 'remplire les champs textbox
If Me.ComboBox1.ListIndex <> -1 Then
Me.TextBox29 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 2)
Me.TextBox16 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 3)
Me.TextBox12 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 4)
Me.TextBox18 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 5)
Me.TextBox15 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 6)
Me.TextBox13 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 7)
Me.TextBox9 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 8)
Me.TextBox17 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 9)
Me.TextBox5 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 10)
Me.TextBox6 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 11)
Me.TextBox7 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 12)
Me.TextBox4 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 13)
Me.TextBox21 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 14)
Me.TextBox20 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 15)
Me.TextBox19 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 16)
Me.TextBox22 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 17)
Me.TextBox24 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 18)
Me.TextBox23 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 19)
Me.TextBox25 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 20)
Me.TextBox27 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 21)
Me.TextBox26 = Sheets("ENT").Cells(Me.ComboBox1.ListIndex + 2, 22)
End If
End Sub
merci d'avance