maj automatique d'une combobox

anneh

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
7
Affichages
1 K
H
Réponses
19
Affichages
6 K

Statistiques des forums

Discussions
312 581
Messages
2 089 910
Membres
104 303
dernier inscrit
Patdec