Récupérer des informations de feuilles portant un nom précis

Bonjour,

Je suis nouveau sur le forum et je viens pour essayer de trouver une solution à mon problème, je commence tout juste à m'intéresser au VBA donc je ne connais pas forcément toutes les notions et/ou vocabulaire.

J'ai donc ces éléments de départs (voir fichier joint si nécessaire) :

- Mon fichier possède un programme qui permet de créer une feuille depuis un modèle, ces feuilles représentent un planning pour un mois de l'année (donc les feuilles portent le nom d'un mois lorsqu'elles sont crées)

- Dans ces feuilles (celles qui portent le nom d'un mois de l'année), on retrouve dans les cellules AH5:AH58 des valeurs qui sont récupérées via une formule.

- Le fichier possède une feuille "Résumé" qui compilera les informations des autres feuilles.

Voila ce que je cherche à faire :

- Je cherche donc à créer un programme (qui sera associé à un bouton) qui me permettra de faire la somme de toutes les cellules AH5 de toutes les feuilles nommées UNIQUEMENT par un mois de l'année (à savoir "JANVIER", "FEVRIER", "MARS", etc...) et inscrire le résultats de cette somme dans la cellule D5 de la feuille "Résumé". Cette opération doit être effectuée de la même façon pour la somme des cellules AH6 dont le résultats doit apparaitre dans la cellule D6 de la feuille "Résumé" et ainsi de suite jusqu'à la cellule AH58.

Malgré plusieurs tentatives aucun de mes programmes ne fonctionnent et je sollicite donc votre aide.

En relisant mon message je n'ai pas l'impression que ma demande soit claire n'hésitez pas à me demander plus d'explications !

Merci à ceux qui prendront le temps de me lire et de me répondre !

bonjour,

une proposition

Sub SommeCellulesAH6ToAH58()
    Dim ws As Worksheet
    Dim total As Double
    Dim i As Integer

    ' Boucle à travers toutes les numéros de ligne
    For i = 6 To 58
        ' Réinitialise le total pour chaque ligne
        total = 0
        For Each ws In ThisWorkbook.Sheets
            Select Case ws.Name
                Case "JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE"
                    ' Ajoute la valeur de de la ligne en cours de la feuille ws à la somme
                    total = total + ws.Cells(i, "AH").Value
            End Select
        Next ws
        ' Place le total dans les cellules D6 à D58 de la feuille active
        ThisWorkbook.ActiveSheet.Cells(i, "D").Value = total
    Next i
End Sub

Merci de votre réponse,

Je viens de tester cette solution mais les résultats sont similaires à ceux que j'obtenais de mon côté. Imaginons que dans la feuille "JANVIER" j'ai dans la cellule AH6 la valeur "17" et que dans la feuille "FEVRIER" j'ai dans la cellule AH6 la valeur "10". Le problème est que dans la cellule D6 de la feuille "Résumé" j'obtiens "10" au lieu de "27" par exemple, je ne comprends pas d'où viens le problème.

bonjour,

Le nom de chaque feuille doit être rigoureusement identique à celui mentionné dans la macro. Pour le fichier que tu as mis, la macro ne trouve pas la feuille "JANVIER" car le nom de la feuille est "JANVIER " (avec un espace final).

je n'avais pas vu ! Erreur de débutant merci pour vos réponses si rapides !