Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 VBA - erreur boucle pour chaque onglet

  • Initiateur de la discussion Initiateur de la discussion AntoineM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Dernière édition:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…