For...Each

2 réponses

serge

08/02/2005 à 23:35

Bonjour,
j'ai construis le macro suivant qui pour chaque feuille copy tout et le
recolle sans les liens. Mais une erreur existe, et je ne sais pas dou elle
vient. pouriez-vous maidez svp?
Dim teehs As Sheets
For Each teehs In ActiveWorkbook.Sheets
Range("A1:IV65536").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A1").Activate
Range("A1").Select
Next teehs

merci d'avance.

cdlt,

Harold

2 réponses

anonymousA

08/02/2005 à 23:56

Hi,

The loop will only be done thru worksheets and not thru chart sheets.

Dim wsh As Worksheet

For Each wsh In Worksheets
With wsh
.Activate
With .Cells
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
End With
Next

Application.CutCopyMode = False

A+

Bonjour,
j'ai construis le macro suivant qui pour chaque feuille copy tout et le
recolle sans les liens. Mais une erreur existe, et je ne sais pas dou elle
vient. pouriez-vous maidez svp?
Dim teehs As Sheets
For Each teehs In ActiveWorkbook.Sheets
Range("A1:IV65536").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("A1").Activate
Range("A1").Select
Next teehs

merci d'avance.

cdlt,

Harold

LSteph

09/02/2005 à 00:04

Bonsoir ,

pas testé ton code mais à priori un pti ajout :

For Each teehs In ActiveWorkbook.Sheets

teehs.activate

'lSteph

"serge" a écrit dans le message de news:

Bonjour,
j'ai construis le macro suivant qui pour chaque feuille copy tout et le
recolle sans les liens. Mais une erreur existe, et je ne sais pas dou elle
vient. pouriez-vous maidez svp?
Dim teehs As Sheets
For Each teehs In ActiveWorkbook.Sheets
Range("A1:IV65536").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("A1").Activate
Range("A1").Select
Next teehs

merci d'avance.

cdlt,

Harold

For...Each

2 réponses

Veuillez sélectionner un problème