P
Pias
Guest
Bonsoir le Forum
E code ci-dessus provoque une erreur.
Est-ce que quelqu’un peu me dire comment le corriger ?
Merci d’avance.
Amicalement
...On se lasse de tout sauf d’apprendre !..
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "feuil1!A1:A32"
ComboBox2.RowSource = "feuil1!B1:B32"
ComboBox3.RowSource = "feuil1!C1:C32"
ComboBox4.RowSource = "feuil1!D132"
ComboBox1.Value = Range("A1").Value
ComboBox2.Value = Range("B1").Value
ComboBox3.Value = Range("C1").Value
ComboBox4.Value = Range("D1").Value
End Sub
Private Sub ComboBox1_Change()
ComboBox2.ListIndex = ComboBox1.ListIndex
ComboBox3.ListIndex = ComboBox1.ListIndex
ComboBox4.ListIndex = ComboBox1.ListIndex
ComboBox1.Value = Range("A" & ComboBox1.ListIndex + 1).Value ' <--- c'est ici l'erreur '
End Sub
Private Sub ComboBox2_Change()
ComboBox1.ListIndex = ComboBox2.ListIndex
End Sub
Private Sub ComboBox3_Change()
ComboBox1.ListIndex = ComboBox3.ListIndex
End Sub
Private Sub ComboBox4_Change()
ComboBox1.ListIndex = ComboBox4.ListIndex
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
E code ci-dessus provoque une erreur.
Est-ce que quelqu’un peu me dire comment le corriger ?
Merci d’avance.
Amicalement
...On se lasse de tout sauf d’apprendre !..
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "feuil1!A1:A32"
ComboBox2.RowSource = "feuil1!B1:B32"
ComboBox3.RowSource = "feuil1!C1:C32"
ComboBox4.RowSource = "feuil1!D132"
ComboBox1.Value = Range("A1").Value
ComboBox2.Value = Range("B1").Value
ComboBox3.Value = Range("C1").Value
ComboBox4.Value = Range("D1").Value
End Sub
Private Sub ComboBox1_Change()
ComboBox2.ListIndex = ComboBox1.ListIndex
ComboBox3.ListIndex = ComboBox1.ListIndex
ComboBox4.ListIndex = ComboBox1.ListIndex
ComboBox1.Value = Range("A" & ComboBox1.ListIndex + 1).Value ' <--- c'est ici l'erreur '
End Sub
Private Sub ComboBox2_Change()
ComboBox1.ListIndex = ComboBox2.ListIndex
End Sub
Private Sub ComboBox3_Change()
ComboBox1.ListIndex = ComboBox3.ListIndex
End Sub
Private Sub ComboBox4_Change()
ComboBox1.ListIndex = ComboBox4.ListIndex
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub