Discussion :

[CocoAntoine]

Bonjour

Je cherche à appliquer une macro sur tous les onglets d'un fichier excel. Bien sûr j'ai au préalable cherché sur les forums VBA et suivi la recommandation fortement répandue d'utiliser une boucle For Each Next. Mais ça ne fonctionne pas:

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
Dim Sh As Worksheet
For Each Sh In Sheets
   Range("C7").Select
   Selection.Copy
   Range("A19").Select
   ActiveWorkbook.ActiveSheet.Paste
Next Sh
End Sub

La matrice du milieu est un exemple. Mais pourquoi je ne passe pas dans chaque onglet du fichier?
MERCI infiniment à celui qui m'expliquera ce que je dois faire.

Antoine

[Didier Gonard]

Bonjour,

Ta feuille active est toujours la même vu que tu es en notation implicite, testes ainsi :

Code :

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

1
2
3
4
5
6
Sub Test()
Dim Sh As Worksheet
For Each Sh In Sheets
   Range("C7").Copy Sh.Range("A19")
Next Sh
End Sub

Le résultat n'est pas celui espéré, mais ça marche à la base, le code suivant est le bon car on est en notation explicite en désignant les feuilles ciblées, sinon tu restes sur la feuille active au moment du code
Vois les sh devant les Range et les répercutions....

Code :

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

1
2
3
4
5
6
Sub Test2()
Dim Sh As Worksheet
For Each Sh In Sheets
   Sh.Range("C7").Copy Sh.Range("A19")
Next Sh
End Sub

Les select inutiles, sinon te poseront des problèmes....Cordialement,


Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[CocoAntoine]

Merci Ormonth, c'est parfait!
Et bravo pour la rapidité