une solution dite "a l'arrache" serait de mettre, dans le thisworkbook
Code :
- Private Sub Workbook_SheetActivate(ByVal Sh As Object)
- Sheets("liste" ).Cells(ligne, colonne).Value = Sheets(mon_feuille).Cells(ligne, colonne).Value
- End Sub
|
PS : Tutoie moi. Déjà parce que moi je le fais, et surtout parce que le forum regroupe une communauté, pas des membres d'une entreprise
Edit: ce code en fait met à jour les données a chaque fois que tu changes de feuille, donc en gros, en retournant sur "liste", les données seront mise à jour
Edit2 : grilled, en plus ta solution est largement plus propre et simple ^^
Message édité par Moonschild le 15-09-2008 à 16:11:49
---------------
Si Le Travail C'est La Santé, Donnez Le Mien A Quelqu'un De Malade