Discussion :

[marcoole]

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 :

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
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

[mercatog]

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

Si c'est le cas

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
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

[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

[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.

[marcoole]

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

[mercatog]

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

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
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