Erreur dans un Combo Box

[Pias]

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

 

[salim]

Bonsoir le Pias et le Forum

A mon avis Pias l'erreur viens du fait que la valeur de la Combobox1 ne peut être égale à sa propre valeur . De plus tu lui attribue range A1:A32 comme RowSource et ensuite tu veux l'alimenter avec la colonne "A" toute entière.

@+ Salim

 

[Pias]

Salut Salim

Tu as raison.
Je vais voir et corriger tout ça. ( Enfin… si j’arrive a corriger ! )
Merci beaucoup et bonne nuit.

Amicalement

...On se lasse de tout sauf d’apprendre !..