Discussion :

[floflo2006]

Bonjour,

Je voudrais recopier une plage d'une feuille(par exemple la 1) sur plusieurs feuilles(par exemple de la 15 à50).Dans mon code je ne peux que recopier sur une seule feuille.Comment faire?

Code :

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

1
2
3
4
5
6
7
8
Sub SelectRecopie()
' Redéfinir la plage en fonction du nombre de lignes
' Sélectionner cette plage
' Copier les valeurs contenues dans cette plage sur la feuille 2 à la cellule "A1"
With Worksheets(1)
.Range(.[A1], .[G1].End(xlDown)).Copy Worksheets(2).[A1]
End With
End Sub

Merci d'avance,

[SfJ5Rpw8]

tiens inspire toi de ça :

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
25
26
 
Sub SelectRecopie()
' creation d'un tableau contenant les numéro de feuilles destinataires...
'
 Dim t() As Integer
 Dim j As Integer
 For i = 4 To 10
   ReDim Preserve t(j)
   t(j) = i
   j = j + 1
 Next
 
' Redéfinir la plage en fonction du nombre de lignes
' Sélectionner cette plage
' Copier les valeurs contenues dans cette plage sur la feuille 2 à la cellule "A1"
 
 
With Worksheets(1)
.Range(.[A1], .[G1].End(xlDown)).Copy
 
End With
Sheets(t).Select ' Selectionne le groupe de feuille
Sheets(t(O)).Range("A1").Activate 'Active la 1° feuille du groupe
ActiveSheet.Paste
Sheets(t(O)).Select ' Sélectionne la 1° feuille ( fin du groupe..)
End Sub