Bonjours,
J'ai besoin de décaller tout un bloc de cellule Excel d'une ligne vers le haut. Le bloc à décaller fait 3600 lignes sur 3 colonnes. J'ai testé avec le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
    Dim I As Integer
 
    For I = 1 To 3600
        Sheets("DonneeGraph").Cells(I + 1, 1) = Sheets("DonneeGraph").Cells(I + 2, 1)
        Sheets("DonneeGraph").Cells(I + 1, 2) = Sheets("DonneeGraph").Cells(I + 2, 2)
        Sheets("DonneeGraph").Cells(I + 1, 3) = Sheets("DonneeGraph").Cells(I + 2, 3)
    Next I
Mais celà prend pas mal de ressource et je répéte l'opération toutes les secondes.
Si quelqu-un a une solution qui est plus obtimisée ! ! !
Merçi d'avance.