Discussion :

[ze_mechant]

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

[Bear the french]

Bonsoir,

Je ne sais pas si c'est ce que tu cherches mais as tu essayé les changements suivants ?

Code :

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

Range("C" & i, "I" & i).Select 'à la place de Range(["C" i], ["I" i]).Select

et

Code :

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

Range("C" & i).Select 'à la place de Range(["C" i]).Select

Bertrand

[ze_mechant]

Super
Merci bcp ca marche niquel !!!!!

MERCI