maj automatique d'une combobox

  • Initiateur de la discussion Initiateur de la discussion anneh
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

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