Utiliser une macro conditionnée au nom de la feuille

Re bonjour,
Je souhaite appliquer une macro à toutes les feuilles qui contiennent la chaine de caractère "DASHBOARD". J'ai rédigé le code ci-dessous, mais il ne compile pas. J'ai défini une autre variable, fcalc, car je dois aller récupérer une valeur (constante) qui est présente dans toutes les feuilles ayant le nom "Calculations*", en cellule D17. Je ne sais pas vraiment où est le problème.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Calc() Dim ws As Worksheet Dim fcalc As Worksheet Dim a As String   For Each fcalc In ThisWorkbook.Worksheets If fcalc.Name Like "Calculations*" Then a = fcalc.Name End If Next   For Each ws In ThisWorkbook.Worksheets   If ws.Name Like "DASHBOARD*" Then ThisWorkbook.Sheets(ws.Name).Range("$O$26") = ThisWorkbook.Sheets(ws.Name).Range("$O$41") / ThisWorkbook.Sheets(a).Range("$D$17") * 1000000 End If   Next   End Sub

---

Merci pour vos avis éclairés!

Bonjour,

déjà la première boucle : tu récupères dans a le nom de la dernière feuille qui commence par "calculations"
je ne comprends pas pourquoi aller chercher le nom de la dernière feuille qui commence par "calculations" (mais ça ce n'est pas trop grave :))

ensuite

Code:

---

ThisWorkbook.Sheets(ws.Name).Range

---

pourra être remplacé avantageusement par

Code:

---

ws.range

---

comme tu l'as fait pour fcalc, d'ailleurs.

Ensuite quel est le problème ? Il se passe quoi en O26 dans les feuilles DASHBOARD* ?

Si tu as l'impression qu'il ne se passe rien commence par remplacer la ligne par un truc plus simple :

Code:

---

ws.Range("$O$26") = "Etabli was here"

---

histoire de voir déjà si tu passes bien dans la feuille, puis complexifie progressivement pour trouver ce qui coince .

Bonjour,

Le code fonctionne finalement mais tes remarques appellent des questions de mon côté:

-> je récupère le nom de la dernière feuille qui contient "calculations" parce que toutes les feuilles calculations ont le même agencement de données, et cela me permet de récupérer la donnée en D17 qui est donc la même dans toutes ces feuilles. J'aurais pu la récupérer dans la première sur laquelle on tombe en parcourant le classeur, mais la boucle était plus simple pour moi. Si je veux récupérer D17 dans la 1ère feuille Calculations que je croise, j'utilise quelle syntaxe? Je définis une variable intermédiaire "b" et je fais quelque chose comme:

When ThisWorkbook.Sheets.Name Like "Calculation*" then b = ActiveSheets.Range("D17")
?

-> quand tu écris ws.range, ça signifie qu'en terme de syntaxe tu n'as pas besoin de conserver le "ThisWorkbook.Sheets(ws.Name).Range("026")" mais que cela donne simplement ws.Range("O26") ? Le compilateur comprend sans le suffixe?
Merci

Citation:

---

Envoyé par Etabli

Bonjour,

Le code fonctionne finalement mais tes remarques appellent des questions de mon côté:

-> je récupère le nom de la dernière feuille qui contient "calculations" parce que toutes les feuilles calculations ont le même agencement de données, et cela me permet de récupérer la donnée en D17 qui est donc la même dans toutes ces feuilles. J'aurais pu la récupérer dans la première sur laquelle on tombe en parcourant le classeur, mais la boucle était plus simple pour moi. Si je veux récupérer D17 dans la 1ère feuille Calculations que je croise, j'utilise quelle syntaxe? Je définis une variable intermédiaire "b" et je fais quelque chose comme:

When ThisWorkbook.Sheets.Name Like "Calculation*" then b = ActiveSheets.Range("D17")
?

---

Il y a juste besoin de rajouter une ligne Exit For après la ligne 8 (sur laquelle on a récupéré notre feuille)

Citation:

---

-> quand tu écris ws.range, ça signifie qu'en terme de syntaxe tu n'as pas besoin de conserver le "ThisWorkbook.Sheets(ws.Name).Range("026")" mais que cela donne simplement ws.Range("O26") ? Le compilateur comprend sans le suffixe?
Merci

---

quel suffixe ? (quand c'est avant c'est un préfixe :P )
tu récupères dans ws chacune des feuilles du classeur donc autant travailler directement avec cette variable.