D
David
Guest
Salut le forum
J'ai fait un tableau avec Excel qui s'alimente à l'aide de 12 autres pages qui représente chaque une un mois je rentre des données dans ce 12 pages
et sur la première page ("sommaire")j'y fait apparaître les donnée des 12 autres a l'aide de cette formule
Range("c5") = Sheets(ListBox1.Text).Range("c5")
Range("c6") = Sheets(ListBox1.Text).Range("c6")
Range("c7") = Sheets(ListBox1.Text).Range("c7")
Range("c8") = Sheets(ListBox1.Text).Range("c8")
Range("c9") = Sheets(ListBox1.Text).Range("c9")
Range("c10") = Sheets(ListBox1.Text).Range("c10")
Range("c11") = Sheets(ListBox1.Text).Range("c11")
Range("c12") = Sheets(ListBox1.Text).Range("c12")
Range("c13") = Sheets(ListBox1.Text).Range("c13")
Range("c14") = Sheets(ListBox1.Text).Range("c14")
Range("c15") = Sheets(ListBox1.Text).Range("c15")
Range("c16") = Sheets(ListBox1.Text).Range("c16")
Range("d5") = Sheets(ListBox1.Text).Range("d5")
Range("d6") = Sheets(ListBox1.Text).Range("d6")
Range("d7") = Sheets(ListBox1.Text).Range("d7")
Range("d8") = Sheets(ListBox1.Text).Range("d8")
Range("d9") = Sheets(ListBox1.Text).Range("d9")
Range("d10") = Sheets(ListBox1.Text).Range("d10")
Range("d11") = Sheets(ListBox1.Text).Range("d11")
Range("d12") = Sheets(ListBox1.Text).Range("d12")
Range("d13") = Sheets(ListBox1.Text).Range("d13")
Range("d14") = Sheets(ListBox1.Text).Range("d14")
Range("d15") = Sheets(ListBox1.Text).Range("d15")
Range("d16") = Sheets(ListBox1.Text).Range("d16")
Qui fonction très bien mais le problème il y a 150 ligne à faire
et j'ai peur que sa soit long à charger
Je mes demande si un formule plus court existe
si vous voulais d'autre information pas de problème
merci d'avance
@+
J'ai fait un tableau avec Excel qui s'alimente à l'aide de 12 autres pages qui représente chaque une un mois je rentre des données dans ce 12 pages
et sur la première page ("sommaire")j'y fait apparaître les donnée des 12 autres a l'aide de cette formule
Range("c5") = Sheets(ListBox1.Text).Range("c5")
Range("c6") = Sheets(ListBox1.Text).Range("c6")
Range("c7") = Sheets(ListBox1.Text).Range("c7")
Range("c8") = Sheets(ListBox1.Text).Range("c8")
Range("c9") = Sheets(ListBox1.Text).Range("c9")
Range("c10") = Sheets(ListBox1.Text).Range("c10")
Range("c11") = Sheets(ListBox1.Text).Range("c11")
Range("c12") = Sheets(ListBox1.Text).Range("c12")
Range("c13") = Sheets(ListBox1.Text).Range("c13")
Range("c14") = Sheets(ListBox1.Text).Range("c14")
Range("c15") = Sheets(ListBox1.Text).Range("c15")
Range("c16") = Sheets(ListBox1.Text).Range("c16")
Range("d5") = Sheets(ListBox1.Text).Range("d5")
Range("d6") = Sheets(ListBox1.Text).Range("d6")
Range("d7") = Sheets(ListBox1.Text).Range("d7")
Range("d8") = Sheets(ListBox1.Text).Range("d8")
Range("d9") = Sheets(ListBox1.Text).Range("d9")
Range("d10") = Sheets(ListBox1.Text).Range("d10")
Range("d11") = Sheets(ListBox1.Text).Range("d11")
Range("d12") = Sheets(ListBox1.Text).Range("d12")
Range("d13") = Sheets(ListBox1.Text).Range("d13")
Range("d14") = Sheets(ListBox1.Text).Range("d14")
Range("d15") = Sheets(ListBox1.Text).Range("d15")
Range("d16") = Sheets(ListBox1.Text).Range("d16")
Qui fonction très bien mais le problème il y a 150 ligne à faire
et j'ai peur que sa soit long à charger
Je mes demande si un formule plus court existe
si vous voulais d'autre information pas de problème
merci d'avance
@+