Discussion :

[bbkenny]

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.

[bhaal76]

en essayant avec une macro, le code généré est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Range("D8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut Destination:=Range("F5:F25")
    Range("F5:F25").Select

voila voila

[bbkenny]

Ok en faisant comme ça c'est beaucoup moins lourd pour le PC.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("DonneeGraph").Range("A3:C3600").Cut _
            Destination:=Sheets("DonneeGraph").Range("A2:C3599")

Encore merçi.