Bonjour à vous,
Je souhaite transmettre des données de cellules de feuilles générées au grè de différents chantiers dans une feuille de synthèse.
Ces données sont le nombre matériel nécessaire utilisé par mois au fil de plusieurs années (janv 2015 à nov 2021 pour être précis).
Je souhaiterais récupérer la somme du matériel nécessaire "a", du matériel nécessaire "b",... des chantier du batiment A (les différentes feuilles générés de nom-type BATA-chan1, BATA-chan2,...) au cours des différents mois pour les insérer dans une synthèse des différents bâtiments.
Ce que j'ai réussi à faire déjà c'est de prendre toutes les feuilles du bâtiment A, de prendre la somme du 1er matériel situé en G2 (janv 2015) et de l'insérer dans ma feuille de synthèse en H3 (janv 2015)
Mon problème, c'est que je ne vois pas comment faire pour faire une boucle pour insérer la suite du matériel a (H2 pour février 2015) et de l'insérer dans ma feuille synthèse (K3 pour février 2015 j'ai un step de 3 à faire) et ceci jusqu'a mon novembre 2021.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sheets("synthese").Range("H3").ClearContents For Each sh In ThisWorkbook.Sheets If Left(sh.Name, 4) = "BATA" Then Valeurno = Valeurno + sh.Range("G2") Else Sheets("synthese").Range("H3").Value = 0 End If Next Sheets("synthese").Range("H3").Value = Valeurno
et ceci pour chaque matériel nécessaire.
J'avais pensais une chose du genre :
Mais je m'y perds
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 For Each sh In ThisWorkbook.Sheets If Left(sh.Name, 4) = "BATA" Then For i = 0 To 5 lignebaby = Range("H2").Row Colonnebaby = Range("H2").Column + 1 Valeurbaby = Valeurbaby + sh.Range(lignebaby, Colonnebaby) MsgBox Valeubaby Next End If Next
Merci pour votre aide!
Markhann
Partager