Discussion :

[Djromé]

Bonne année les Kracks,

Tous mes voeux de bonne santé!

Pour bien démarrer l'année, je souhaiterai effectuer sur des onglets prédéfinis différentes tâches (je vous mets ici que celle en bleu, qui me pose également un problème! )

Code :

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

1
2
3
4
5
Dim sh As Worksheet
Set sh = "Sheet1" and "Sheet5" and "Sheet8"
For Each sh In ThisWorkbook.Worksheets
Cells(Range("A65000").End(xlUp).Row,16.copy
Next sh

1.Mon code ne boucle pas (prend seulement la feuille active)
2.Pour éviter des "Active" ou "Select" j'ai essayé de remplacer mes lignes d'écriture par le code en bleu, mais j'ai un souci!

D'avance merci,

[jfontaine]

Bonjour,

Perso je ferais quelque chose comme cela

Code :

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

1
2
3
4
5
6
7
8
Dim sh As Worksheet
 
For Each sh In ThisWorkbook.Worksheets
  select case sh.name
        case "Sheet1","Sheet5","Sheet8"
           sh.Cells(Range("A65000").End(xlUp).Row,16.copy
  end select
Next sh

[Djromé]

Bonsoir Jérôme,

J'avais un problème avec la boucle, elle ne prenais pas?

Code :

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

sh.Cells(Range("A1))

Il manquait une parenthèse... Rien que ça m'a pris un temps dingue!
Dans mon cas, c'était:

Code :

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

Case Is <> "Sheet1" etc...

Merci pour l'idée du code,