Salut Eric S
Voila un petit complaiment : J'aquere via lien dde des données depuis une autre application. Ces données sont ecrites dans une ligne. Afin d'avoir une courbe de tendance des données aquises je copie les valeurs de la ligne de donnée dans une ligne juste avant (ligne historique). A chaque fois que les données évoluent je décalle vers le haut mes données. Avec toutes mes données historisées je crée une courbe de tendance qui se rafraichis continuellement. Comme je te l'ai dis a chaque fois que la macro s'éxecute j'ai un petit clignottement que je voudrais supprimer.
Voila le code de ma macro. Afin de te mettre en conditons réélles creer une feuille qui s'appele 'Aquisitons' et creer une cellule (en A1) qui est = a la valeur d'une cellule d'une autre feuille (B1) +1. Mets toi sur la cellule B1 et modifie la. Tu veras s'executer ma macro a chaque fois un petit clignottement tres desagreable.
Private Sub Worksheet_Calculate()
Dim OD As String
OD = ActiveSheet.Name
Application.ScreenUpdating = False
Sheets('Aquisitions').Select
Range('A6:S2125').Select
Selection.Copy
Range('A5').Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Sheets('Aquisitions').Select
Range('A2127:S2127').Select
Selection.Copy
Range('A2125').Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets(OD).Activate
Application.ScreenUpdating = True
End Sub
Désolé pour la mise en page et merci de ton aide.
Yo