tallia64
XLDnaute Occasionnel
Bonjour je souhaiterais trier les donnée dans ma combobox. Est ce vous pouvez m'aider s'il vous plait? voici le code :
Private Sub ComboBox1_Change()
index = ComboBox1.ListIndex + 3
Frame1.Visible = True
On Error Resume Next
TextBox1 = Format(ActiveSheet.Cells(index, 1), ">")
TextBox2 = Format(ActiveSheet.Cells(index, 2), ">")
TextBox3 = Format(ActiveSheet.Cells(index, 3), ">")
TextBox4 = Format(ActiveSheet.Cells(index, 4), ">")
TextBox5 = Format(ActiveSheet.Cells(index, 5), ">")
TextBox13 = Format(ActiveSheet.Cells(index, 6), "hh:mm")
TextBox7 = Format(ActiveSheet.Cells(index, 7), ">")
TextBox14 = Format(ActiveSheet.Cells(index, 8), "hh:mm")
TextBox9 = Format(ActiveSheet.Cells(index, 9), ">")
TextBox10 = Format(ActiveSheet.Cells(index, 10), ">")
TextBox11 = Format(ActiveSheet.Cells(index, 11), ">")
TextBox12 = Format(ActiveSheet.Cells(index, 12), ">")
End Sub
MERCI POUR VOTRE AIDE TALLIA 🙂
Private Sub ComboBox1_Change()
index = ComboBox1.ListIndex + 3
Frame1.Visible = True
On Error Resume Next
TextBox1 = Format(ActiveSheet.Cells(index, 1), ">")
TextBox2 = Format(ActiveSheet.Cells(index, 2), ">")
TextBox3 = Format(ActiveSheet.Cells(index, 3), ">")
TextBox4 = Format(ActiveSheet.Cells(index, 4), ">")
TextBox5 = Format(ActiveSheet.Cells(index, 5), ">")
TextBox13 = Format(ActiveSheet.Cells(index, 6), "hh:mm")
TextBox7 = Format(ActiveSheet.Cells(index, 7), ">")
TextBox14 = Format(ActiveSheet.Cells(index, 8), "hh:mm")
TextBox9 = Format(ActiveSheet.Cells(index, 9), ">")
TextBox10 = Format(ActiveSheet.Cells(index, 10), ">")
TextBox11 = Format(ActiveSheet.Cells(index, 11), ">")
TextBox12 = Format(ActiveSheet.Cells(index, 12), ">")
End Sub
MERCI POUR VOTRE AIDE TALLIA 🙂