effectuer une macro dans un workbook

Version imprimable

Bonsoir à tous,

J'ai une macro que j'aimerais effectuer sur l'ensemble des feuilles de mon workbook sauf une ("OT"). J'ai tenté un truc, mais je suis bloqué au niveau de la ligne rouge de mon programme.

Merci d'avance de votre aide
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub copie() Dim Dest As Range Dim sh As Worksheet With ActiveWorkbook For Each sh In ActiveWorkbook If sh.Name <> "OT" Then Set Dest = Sheets("OT").Range("A65536").End(xlUp).Offset(1, 0) Sheets("Feuil3").Range("I82:AN92").Copy Destination:=Dest Set Dest = Sheets("OT").Range("A65536").End(xlUp).Offset(1, 0) Sheets("Feuil3").Range("AO82:BT92").Copy Destination:=Dest Set Dest = Sheets("OT").Range("A65536").End(xlUp).Offset(1, 0) Sheets("Feuil3").Range("BU82:CZ92").Copy Destination:=Dest Set Dest = Nothing End If Next sh End With End Sub

Tu veux faire quoi au juste?
copier les plages issues de toutes les feuilles vers la feuille OT?

Si c'est le cas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub copie()
Dim Dest As Range
Dim Sh As Worksheet
 
For Each Sh In ActiveWorkbook.Worksheets
     If Sh.Name <> "OT" Then
          Set Dest = Sheets("OT").Range("A65536").End(xlUp).Offset(1, 0)
          Sh.Range("I82:AN92").Copy Dest
          Set Dest = Sheets("OT").Range("A65536").End(xlUp).Offset(1, 0)
          Sh.Range("AO82:BT92").Copy Dest
          Set Dest = Sheets("OT").Range("A65536").End(xlUp).Offset(1, 0)
          Sh.Range("BU82:CZ92").Copy Dest
          Set Dest = Nothing
     End If
Next Sh
End Sub

02/01/2011, 19h21
marcoole

c'est exactement ça que je veux. Mais il subsiste un problème : en fait, la macro me copie/colle toujours la même plage de donnée (celle contenue sur la première feuille) et non chaque plage de données sur chaque feuille
02/01/2011, 19h25
mercatog

Si tu explique clairement ce que tu veux faire au lieu qu'on galère à deviner
ce que j'ai compris, tu as une classeur avec plusieurs feuilles dont une nommée OT.
tu veux rapatrier les données les unes à la suite des autres de toutes les feuilles vers la feuille OT.
02/01/2011, 19h41
marcoole

1 pièce(s) jointe(s)

J'ai un fichier contenant plusieurs feuilles dont une nommée OT. Sur Chaque feuille (sauf pour la feuille OT), je cherche à copier une plage de données (située toujours au même endroit sur chaque feuille) et à coller ces plages sur la feuille OT.

Le problème que j'ai actuellement c'est que la macro me copie/colle toujours la même plage de donnée (celle de la feuille 3) en doublons sur la feuille OT au lieu de me copier.coller la plage de la feuille 3 puis celle de la feuille2.

J'ai joint mon fichier excel pour une meilleure compréhension (la macro se nomme copie)

Merci

Parceque tu as laissé Sheets("Feuil3") au lieu de Sh.
Regarde bien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub copie()
Dim Dest As Range
Dim Sh As Worksheet
 
For Each Sh In ActiveWorkbook.Worksheets
     If Sh.Name <> "OT" Then
          Set Dest = Sheets("OT").Range("A65536").End(xlUp).Offset(1, 0)
          Sh.Range("I82:AN92").Copy Dest
          Set Dest = Sheets("OT").Range("A65536").End(xlUp).Offset(1, 0)
          Sh.Range("AO82:BT92").Copy Dest
          Set Dest = Sheets("OT").Range("A65536").End(xlUp).Offset(1, 0)
          Sh.Range("BU82:CZ92").Copy Dest
          Set Dest = Nothing
     End If
Next Sh
End Sub

02/01/2011, 20h03
marcoole

Quel Boulet^^

Merci beaucoup!