Bonjour,
J’ai un problème avec un code que j’avais développé (il est surement pas top), mais était fonctionnel.
J’utilise une combo box et il s’avère que j’ai une erreur de temps en temps.
Lorsque j’incrémente la combo avec une réf plus longue, ça marche, et lorsque celle-ci est plus courte, j’ai une erreur d’exécution 1004, erreur définie par l’application ou par l’objet. L’erreur est glissée à
Sheets("OFFRE").Range("H4").Value = Sheets("TARIF A+B").Cells(ent, 2)
Ci-dessous mon code:
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
ActiveSheet.Unprotect "toto"
Workbooks("CALCUL 2012.xlsm").Activate
With Sheets("TARIF A+B")
Sheets("TARIF A+B").Activate
'ComboBox1.Tag = ComboBox1.ListIndex + 1
ComboBox1.List = .Range("a1:a" & .Range("a65536").End(xlUp).Row).Value
With Sheets("OFFRE")
Sheets("OFFRE").Activate
With ComboBox1
Sheets("OFFRE").Activate
Sheets("OFFRE").Range("c3").Value = ComboBox1.Value
End With
Dim ent As Integer
ent = ComboBox1.ListIndex + 1
With Sheets("TARIF A+B")
Sheets("OFFRE").Range("H4").Value = Sheets("TARIF A+B").Cells(ent, 2)
Sheets("OFFRE").Range("I4").Value = Sheets("TARIF A+B").Cells(ent, 3)
Sheets("OFFRE").Range("j4").Value = Sheets("TARIF A+B").Cells(ent, 4)
Sheets("OFFRE").Range("K4").Value = Sheets("TARIF A+B").Cells(ent, 5)
Sheets("OFFRE").Range("L4").Value = Sheets("TARIF A+B").Cells(ent, 6)
Sheets("OFFRE").Range("M4").Value = Sheets("TARIF A+B").Cells(ent, 7)
Sheets("OFFRE").Range("N4").Value = Sheets("TARIF A+B").Cells(ent, 8)
Sheets("OFFRE").Range("O4").Value = Sheets("TARIF A+B").Cells(ent, 9)
Sheets("OFFRE").Range("P4").Value = Sheets("TARIF A+B").Cells(ent, 10)
Sheets("OFFRE").Range("Q4").Value = Sheets("TARIF A+B").Cells(ent, 11)
Sheets("OFFRE").Range("R4").Value = Sheets("TARIF A+B").Cells(ent, 12)
Sheets("OFFRE").Range("S4").Value = Sheets("TARIF A+B").Cells(ent, 13)
Sheets("OFFRE").Range("T4").Value = Sheets("TARIF A+B").Cells(ent, 14)
Sheets("OFFRE").Range("U4").Value = Sheets("TARIF A+B").Cells(ent, 15)
Sheets("OFFRE").Range("V4").Value = Sheets("TARIF A+B").Cells(ent, 16)
Sheets("OFFRE").Range("W4").Value = Sheets("TARIF A+B").Cells(ent, 17)
Sheets("OFFRE").Range("X4").Value = Sheets("TARIF A+B").Cells(ent, 18)
Sheets("OFFRE").Range("Y4").Value = Sheets("TARIF A+B").Cells(ent, 19)
End With
End With
End With
ActiveSheet.Protect "toto"
End Sub
Merci de votre aide, car je suis planté dessus depuis ce matin.
J’ai un problème avec un code que j’avais développé (il est surement pas top), mais était fonctionnel.
J’utilise une combo box et il s’avère que j’ai une erreur de temps en temps.
Lorsque j’incrémente la combo avec une réf plus longue, ça marche, et lorsque celle-ci est plus courte, j’ai une erreur d’exécution 1004, erreur définie par l’application ou par l’objet. L’erreur est glissée à
Sheets("OFFRE").Range("H4").Value = Sheets("TARIF A+B").Cells(ent, 2)
Ci-dessous mon code:
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
ActiveSheet.Unprotect "toto"
Workbooks("CALCUL 2012.xlsm").Activate
With Sheets("TARIF A+B")
Sheets("TARIF A+B").Activate
'ComboBox1.Tag = ComboBox1.ListIndex + 1
ComboBox1.List = .Range("a1:a" & .Range("a65536").End(xlUp).Row).Value
With Sheets("OFFRE")
Sheets("OFFRE").Activate
With ComboBox1
Sheets("OFFRE").Activate
Sheets("OFFRE").Range("c3").Value = ComboBox1.Value
End With
Dim ent As Integer
ent = ComboBox1.ListIndex + 1
With Sheets("TARIF A+B")
Sheets("OFFRE").Range("H4").Value = Sheets("TARIF A+B").Cells(ent, 2)
Sheets("OFFRE").Range("I4").Value = Sheets("TARIF A+B").Cells(ent, 3)
Sheets("OFFRE").Range("j4").Value = Sheets("TARIF A+B").Cells(ent, 4)
Sheets("OFFRE").Range("K4").Value = Sheets("TARIF A+B").Cells(ent, 5)
Sheets("OFFRE").Range("L4").Value = Sheets("TARIF A+B").Cells(ent, 6)
Sheets("OFFRE").Range("M4").Value = Sheets("TARIF A+B").Cells(ent, 7)
Sheets("OFFRE").Range("N4").Value = Sheets("TARIF A+B").Cells(ent, 8)
Sheets("OFFRE").Range("O4").Value = Sheets("TARIF A+B").Cells(ent, 9)
Sheets("OFFRE").Range("P4").Value = Sheets("TARIF A+B").Cells(ent, 10)
Sheets("OFFRE").Range("Q4").Value = Sheets("TARIF A+B").Cells(ent, 11)
Sheets("OFFRE").Range("R4").Value = Sheets("TARIF A+B").Cells(ent, 12)
Sheets("OFFRE").Range("S4").Value = Sheets("TARIF A+B").Cells(ent, 13)
Sheets("OFFRE").Range("T4").Value = Sheets("TARIF A+B").Cells(ent, 14)
Sheets("OFFRE").Range("U4").Value = Sheets("TARIF A+B").Cells(ent, 15)
Sheets("OFFRE").Range("V4").Value = Sheets("TARIF A+B").Cells(ent, 16)
Sheets("OFFRE").Range("W4").Value = Sheets("TARIF A+B").Cells(ent, 17)
Sheets("OFFRE").Range("X4").Value = Sheets("TARIF A+B").Cells(ent, 18)
Sheets("OFFRE").Range("Y4").Value = Sheets("TARIF A+B").Cells(ent, 19)
End With
End With
End With
ActiveSheet.Protect "toto"
End Sub
Merci de votre aide, car je suis planté dessus depuis ce matin.