Discussion :

[Etabli]

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 :

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

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!

[Tête de chat]

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 :

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

ThisWorkbook.Sheets(ws.Name).Range

pourra être remplacé avantageusement par

Code :

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

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 :

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

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 .

[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")
?

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

[umfred]

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)

-> 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 )
tu récupères dans ws chacune des feuilles du classeur donc autant travailler directement avec cette variable.