XL 2013 VBA - erreur boucle pour chaque onglet

[AntoineM]

Bonjour le forum,

J'ai un problème avec une macro, j'aimerais que ma macro boucle sur tous les classeurs ouverts et sur toutes les feuilles de chaque classeur.

Le problème est : la macro que j'ai écrite ne boucle que sur la feuille active lorsque je l'execute.

Sub MaMacro()

Dim wbk As Workbook
Dim Ws As Worksheet


  For Each wbk In Application.Workbooks
For Each Ws In Worksheets

Range("D51").Value = 0.42
Range("D52").Value = 1.67
Range("D53").Value = 2.08
Range("D54").Value = 2.5
Range("D55").Value = 4.17
Range("D56").Value = 4.58
Range("D58").Value = 0.91
Range("D59").Value = 1.82
Range("D60").Value = 2.27
Range("D61").Value = 3.18
Range("D62").Value = 2.27
Range("D63").Value = 4.55
              
Next Ws
  Next wbk


End Sub

Merci de votre aide,

Bien à vous,

AntoineM

 

[phlaurent55]

Re : VBA - erreur boucle pour chaque onglet

Bonjour Antoine,

Sub MaMacro()

Dim wbk As Workbook
Dim Ws As Worksheet


  For Each wbk In Application.Workbooks
For Each Ws In Worksheets

Ws.Range("D51").Value = 0.42
Ws.Range("D52").Value = 1.67
Ws.Range("D53").Value = 2.08
Ws.Range("D54").Value = 2.5
Ws.Range("D55").Value = 4.17
Ws.Range("D56").Value = 4.58
Ws.Range("D58").Value = 0.91
Ws.Range("D59").Value = 1.82
Ws.Range("D60").Value = 2.27
Ws.Range("D61").Value = 3.18
Ws.Range("D62").Value = 2.27
Ws.Range("D63").Value = 4.55
              
Next Ws
  Next wbk


End Sub

à+
Philippe

 

[AntoineM]

Re : VBA - erreur boucle pour chaque onglet

Bonjour phlaurent55,

Effectivement, je suis stupide.

Merci de m'avoir éclairé !

bonne journée,

AntoineM