Bonjour les amis,

Je souhaiterez copié et collez une plage de donnée sur un tableau. Pour cela il faudrait que chaque Plage de donnée se colle l'une après l'autre avec une tempo de 30 secondes entre.

J'ai essayer de faire par moi même mais je n'ai pas encore le résultat désiré...
Il me met une erreur 1004 apparemment la fonction range pose soucis
Vous pouvez m'aider svp?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Sub Copierlignes()
 
    Dim i As Integer
 
    i = 2
 
    For t = 0 To 7
 
        Range(["C" i], ["I" i]).Select
        Selection.Copy
        i = i + 1
        Range(["C" i]).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.StatusBar = "Merci de patienter"
        Application.Wait Now + TimeValue("00:00:10")
        Application.StatusBar = False
 
 
    Next
 
End Sub