Co_Lac
XLDnaute Junior
Bonjour
Je galère avec ce code que j'ai récupéré sur le net!
J'ai une erreur: erreur d'exécution '381'
Index du tableau de propriétés incorrect
La plage nommée "Plage_societes" est variable
Quelqu'un aurais une idée ?
Private Sub ComboBox2_Change()
ActiveWorkbook.Names.add Name:="Plage_Societes", RefersToR1C1:="=Donnees_bourse!R4C19:R" & Act + 3 & "C21"
ComboBox2.ListFillRange = "Donnees_bourse!Plage_Societes"
Ligne = ComboBox2.Column(2)
Syb = ComboBox2.Column(1)
nom = ComboBox2.Column(0)
Sheets("Resume").Range("A5") = Syb
Sheets("Resume").Range("A4") = nom
End Sub
Je galère avec ce code que j'ai récupéré sur le net!
J'ai une erreur: erreur d'exécution '381'
Index du tableau de propriétés incorrect
La plage nommée "Plage_societes" est variable
Quelqu'un aurais une idée ?
Private Sub ComboBox2_Change()
ActiveWorkbook.Names.add Name:="Plage_Societes", RefersToR1C1:="=Donnees_bourse!R4C19:R" & Act + 3 & "C21"
ComboBox2.ListFillRange = "Donnees_bourse!Plage_Societes"
Ligne = ComboBox2.Column(2)
Syb = ComboBox2.Column(1)
nom = ComboBox2.Column(0)
Sheets("Resume").Range("A5") = Syb
Sheets("Resume").Range("A4") = nom
End Sub