XL 2013 VBA - erreur boucle pour chaque onglet

AntoineM

XLDnaute Junior
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.

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

Pièces jointes

  • correctfi fdc.xlsm
    20.9 KB · Affichages: 17
Dernière édition:

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : VBA - erreur boucle pour chaque onglet

Bonjour Antoine,
Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG