Simplifier cette macro

Le 22/12/2016 à 11:57

bonjour à tous

Pour mon budget perso, j'ai créé un fichier contenant 13 onglets : "janvier février mars avril..." et enfin l'onglet "Synthèse".

Dans l'onglet "Synthèse", j'additionne tous les postes (alimentation, EDF, etc...) pour avoir le cumul sur l'année.

J'ai créé la macro ci-dessous qui fonctionne bien. Elle consiste à aller récupérer, pour chaque mois, le total de mes postes de dépenses. Je me doute qu'il y a moyen de simplifier cette macro en effectuant une boucle sur chaque onglet, mais je ne maitrise pas la syntaxe.

Dans ma quête d'apprentissage du VBA, qq'un pourrait-il m'aider?

Sub Synthese()

 Worksheets("Synthese").Range("C5").Value = Worksheets("Janvier").Range("C4").Value
 Worksheets("Synthese").Range("C6").Value = Worksheets("Janvier").Range("C5").Value
 Worksheets("Synthese").Range("C7").Value = Worksheets("Janvier").Range("C6").Value
 Worksheets("Synthese").Range("C8").Value = Worksheets("Janvier").Range("C7").Value
 Worksheets("Synthese").Range("C9").Value = Worksheets("Janvier").Range("C8").Value
 Worksheets("Synthese").Range("C10").Value = Worksheets("Janvier").Range("C9").Value
 Worksheets("Synthese").Range("C11").Value = Worksheets("Janvier").Range("C10").Value
 Worksheets("Synthese").Range("C12").Value = Worksheets("Janvier").Range("C11").Value
 Worksheets("Synthese").Range("C13").Value = Worksheets("Janvier").Range("C16").Value
 Worksheets("Synthese").Range("C14").Value = Worksheets("Janvier").Range("E4").Value
 Worksheets("Synthese").Range("C15").Value = Worksheets("Janvier").Range("G4").Value
 Worksheets("Synthese").Range("C16").Value = Worksheets("Janvier").Range("I4").Value
 Worksheets("Synthese").Range("C17").Value = Worksheets("Janvier").Range("K4").Value
 Worksheets("Synthese").Range("C18").Value = Worksheets("Janvier").Range("G16").Value
 Worksheets("Synthese").Range("C19").Value = Worksheets("Janvier").Range("I16").Value
 Worksheets("Synthese").Range("C20").Value = Worksheets("Janvier").Range("K16").Value

  Worksheets("Synthese").Range("D5").Value = Worksheets("Février").Range("C4").Value
 Worksheets("Synthese").Range("D6").Value = Worksheets("Février").Range("C5").Value
 Worksheets("Synthese").Range("D7").Value = Worksheets("Février").Range("C6").Value
 Worksheets("Synthese").Range("D8").Value = Worksheets("Février").Range("C7").Value
 Worksheets("Synthese").Range("D9").Value = Worksheets("Février").Range("C8").Value
 Worksheets("Synthese").Range("D10").Value = Worksheets("Février").Range("C9").Value
 Worksheets("Synthese").Range("D11").Value = Worksheets("Février").Range("C10").Value
 Worksheets("Synthese").Range("D12").Value = Worksheets("Février").Range("C11").Value
 Worksheets("Synthese").Range("D13").Value = Worksheets("Février").Range("C16").Value
 Worksheets("Synthese").Range("D14").Value = Worksheets("Février").Range("E4").Value
 Worksheets("Synthese").Range("D15").Value = Worksheets("Février").Range("G4").Value
 Worksheets("Synthese").Range("D16").Value = Worksheets("Février").Range("I4").Value
 Worksheets("Synthese").Range("D17").Value = Worksheets("Février").Range("K4").Value
 Worksheets("Synthese").Range("D18").Value = Worksheets("Février").Range("G16").Value
 Worksheets("Synthese").Range("D19").Value = Worksheets("Février").Range("I16").Value
 Worksheets("Synthese").Range("D20").Value = Worksheets("Février").Range("K16").Value

  Worksheets("Synthese").Range("E5").Value = Worksheets("Mars").Range("C4").Value
 Worksheets("Synthese").Range("E6").Value = Worksheets("Mars").Range("C5").Value
 Worksheets("Synthese").Range("E7").Value = Worksheets("Mars").Range("C6").Value
 Worksheets("Synthese").Range("E8").Value = Worksheets("Mars").Range("C7").Value
 Worksheets("Synthese").Range("E9").Value = Worksheets("Mars").Range("C8").Value
 Worksheets("Synthese").Range("E10").Value = Worksheets("Mars").Range("C9").Value
 Worksheets("Synthese").Range("E11").Value = Worksheets("Mars").Range("C10").Value
 Worksheets("Synthese").Range("E12").Value = Worksheets("Mars").Range("C11").Value
 Worksheets("Synthese").Range("E13").Value = Worksheets("Mars").Range("C16").Value
 Worksheets("Synthese").Range("E14").Value = Worksheets("Mars").Range("E4").Value
 Worksheets("Synthese").Range("E15").Value = Worksheets("Mars").Range("G4").Value
 Worksheets("Synthese").Range("E16").Value = Worksheets("Mars").Range("I4").Value
 Worksheets("Synthese").Range("E17").Value = Worksheets("Mars").Range("K4").Value
 Worksheets("Synthese").Range("E18").Value = Worksheets("Mars").Range("G16").Value
 Worksheets("Synthese").Range("E19").Value = Worksheets("Mars").Range("I16").Value
 Worksheets("Synthese").Range("E20").Value = Worksheets("Mars").Range("K16").Value

  Worksheets("Synthese").Range("F5").Value = Worksheets("Avril").Range("C4").Value
 Worksheets("Synthese").Range("F6").Value = Worksheets("Avril").Range("C5").Value
 Worksheets("Synthese").Range("F7").Value = Worksheets("Avril").Range("C6").Value
 Worksheets("Synthese").Range("F8").Value = Worksheets("Avril").Range("C7").Value
 Worksheets("Synthese").Range("F9").Value = Worksheets("Avril").Range("C8").Value
 Worksheets("Synthese").Range("F10").Value = Worksheets("Avril").Range("C9").Value
 Worksheets("Synthese").Range("F11").Value = Worksheets("Avril").Range("C10").Value
 Worksheets("Synthese").Range("F12").Value = Worksheets("Avril").Range("C11").Value
 Worksheets("Synthese").Range("F13").Value = Worksheets("Avril").Range("C16").Value
 Worksheets("Synthese").Range("F14").Value = Worksheets("Avril").Range("E4").Value
 Worksheets("Synthese").Range("F15").Value = Worksheets("Avril").Range("G4").Value
 Worksheets("Synthese").Range("F16").Value = Worksheets("Avril").Range("I4").Value
 Worksheets("Synthese").Range("F17").Value = Worksheets("Avril").Range("K4").Value
 Worksheets("Synthese").Range("F18").Value = Worksheets("Avril").Range("G16").Value
 Worksheets("Synthese").Range("F19").Value = Worksheets("Avril").Range("I16").Value
 Worksheets("Synthese").Range("F20").Value = Worksheets("Avril").Range("K16").Value

  Worksheets("Synthese").Range("G5").Value = Worksheets("Mai").Range("C4").Value
 Worksheets("Synthese").Range("G6").Value = Worksheets("Mai").Range("C5").Value
 Worksheets("Synthese").Range("G7").Value = Worksheets("Mai").Range("C6").Value
 Worksheets("Synthese").Range("G8").Value = Worksheets("Mai").Range("C7").Value
 Worksheets("Synthese").Range("G9").Value = Worksheets("Mai").Range("C8").Value
 Worksheets("Synthese").Range("G10").Value = Worksheets("Mai").Range("C9").Value
 Worksheets("Synthese").Range("G11").Value = Worksheets("Mai").Range("C10").Value
 Worksheets("Synthese").Range("G12").Value = Worksheets("Mai").Range("C11").Value
 Worksheets("Synthese").Range("G13").Value = Worksheets("Mai").Range("C16").Value
 Worksheets("Synthese").Range("G14").Value = Worksheets("Mai").Range("E4").Value
 Worksheets("Synthese").Range("G15").Value = Worksheets("Mai").Range("G4").Value
 Worksheets("Synthese").Range("G16").Value = Worksheets("Mai").Range("I4").Value
 Worksheets("Synthese").Range("G17").Value = Worksheets("Mai").Range("K4").Value
 Worksheets("Synthese").Range("G18").Value = Worksheets("Mai").Range("G16").Value
 Worksheets("Synthese").Range("G19").Value = Worksheets("Mai").Range("I16").Value
 Worksheets("Synthese").Range("G20").Value = Worksheets("Mai").Range("K16").Value

  Worksheets("Synthese").Range("H5").Value = Worksheets("Juin").Range("C4").Value
 Worksheets("Synthese").Range("H6").Value = Worksheets("Juin").Range("C5").Value
 Worksheets("Synthese").Range("H7").Value = Worksheets("Juin").Range("C6").Value
 Worksheets("Synthese").Range("H8").Value = Worksheets("Juin").Range("C7").Value
 Worksheets("Synthese").Range("H9").Value = Worksheets("Juin").Range("C8").Value
 Worksheets("Synthese").Range("H10").Value = Worksheets("Juin").Range("C9").Value
 Worksheets("Synthese").Range("H11").Value = Worksheets("Juin").Range("C10").Value
 Worksheets("Synthese").Range("H12").Value = Worksheets("Juin").Range("C11").Value
 Worksheets("Synthese").Range("H13").Value = Worksheets("Juin").Range("C16").Value
 Worksheets("Synthese").Range("H14").Value = Worksheets("Juin").Range("E4").Value
 Worksheets("Synthese").Range("H15").Value = Worksheets("Juin").Range("G4").Value
 Worksheets("Synthese").Range("H16").Value = Worksheets("Juin").Range("I4").Value
 Worksheets("Synthese").Range("H17").Value = Worksheets("Juin").Range("K4").Value
 Worksheets("Synthese").Range("H18").Value = Worksheets("Juin").Range("G16").Value
 Worksheets("Synthese").Range("H19").Value = Worksheets("Juin").Range("I16").Value
 Worksheets("Synthese").Range("H20").Value = Worksheets("Juin").Range("K16").Value

  Worksheets("Synthese").Range("I5").Value = Worksheets("Juillet").Range("C4").Value
 Worksheets("Synthese").Range("I6").Value = Worksheets("Juillet").Range("C5").Value
 Worksheets("Synthese").Range("I7").Value = Worksheets("Juillet").Range("C6").Value
 Worksheets("Synthese").Range("I8").Value = Worksheets("Juillet").Range("C7").Value
 Worksheets("Synthese").Range("I9").Value = Worksheets("Juillet").Range("C8").Value
 Worksheets("Synthese").Range("I10").Value = Worksheets("Juillet").Range("C9").Value
 Worksheets("Synthese").Range("I11").Value = Worksheets("Juillet").Range("C10").Value
 Worksheets("Synthese").Range("I12").Value = Worksheets("Juillet").Range("C11").Value
 Worksheets("Synthese").Range("I13").Value = Worksheets("Juillet").Range("C16").Value
 Worksheets("Synthese").Range("I14").Value = Worksheets("Juillet").Range("E4").Value
 Worksheets("Synthese").Range("I15").Value = Worksheets("Juillet").Range("G4").Value
 Worksheets("Synthese").Range("I16").Value = Worksheets("Juillet").Range("I4").Value
 Worksheets("Synthese").Range("I17").Value = Worksheets("Juillet").Range("K4").Value
 Worksheets("Synthese").Range("I18").Value = Worksheets("Juillet").Range("G16").Value
 Worksheets("Synthese").Range("I19").Value = Worksheets("Juillet").Range("I16").Value
 Worksheets("Synthese").Range("I20").Value = Worksheets("Juillet").Range("K16").Value

  Worksheets("Synthese").Range("J5").Value = Worksheets("Août").Range("C4").Value
 Worksheets("Synthese").Range("J6").Value = Worksheets("Août").Range("C5").Value
 Worksheets("Synthese").Range("J7").Value = Worksheets("Août").Range("C6").Value
 Worksheets("Synthese").Range("J8").Value = Worksheets("Août").Range("C7").Value
 Worksheets("Synthese").Range("J9").Value = Worksheets("Août").Range("C8").Value
 Worksheets("Synthese").Range("J10").Value = Worksheets("Août").Range("C9").Value
 Worksheets("Synthese").Range("J11").Value = Worksheets("Août").Range("C10").Value
 Worksheets("Synthese").Range("J12").Value = Worksheets("Août").Range("C11").Value
 Worksheets("Synthese").Range("J13").Value = Worksheets("Août").Range("C16").Value
 Worksheets("Synthese").Range("J14").Value = Worksheets("Août").Range("E4").Value
 Worksheets("Synthese").Range("J15").Value = Worksheets("Août").Range("G4").Value
 Worksheets("Synthese").Range("J16").Value = Worksheets("Août").Range("I4").Value
 Worksheets("Synthese").Range("J17").Value = Worksheets("Août").Range("K4").Value
 Worksheets("Synthese").Range("J18").Value = Worksheets("Août").Range("G16").Value
 Worksheets("Synthese").Range("J19").Value = Worksheets("Août").Range("I16").Value
 Worksheets("Synthese").Range("J20").Value = Worksheets("Août").Range("K16").Value

  Worksheets("Synthese").Range("K5").Value = Worksheets("Septembre").Range("C4").Value
 Worksheets("Synthese").Range("K6").Value = Worksheets("Septembre").Range("C5").Value
 Worksheets("Synthese").Range("K7").Value = Worksheets("Septembre").Range("C6").Value
 Worksheets("Synthese").Range("K8").Value = Worksheets("Septembre").Range("C7").Value
 Worksheets("Synthese").Range("K9").Value = Worksheets("Septembre").Range("C8").Value
 Worksheets("Synthese").Range("K10").Value = Worksheets("Septembre").Range("C9").Value
 Worksheets("Synthese").Range("K11").Value = Worksheets("Septembre").Range("C10").Value
 Worksheets("Synthese").Range("K12").Value = Worksheets("Septembre").Range("C11").Value
 Worksheets("Synthese").Range("K13").Value = Worksheets("Septembre").Range("C16").Value
 Worksheets("Synthese").Range("K14").Value = Worksheets("Septembre").Range("E4").Value
 Worksheets("Synthese").Range("K15").Value = Worksheets("Septembre").Range("G4").Value
 Worksheets("Synthese").Range("K16").Value = Worksheets("Septembre").Range("I4").Value
 Worksheets("Synthese").Range("K17").Value = Worksheets("Septembre").Range("K4").Value
 Worksheets("Synthese").Range("K18").Value = Worksheets("Septembre").Range("G16").Value
 Worksheets("Synthese").Range("K19").Value = Worksheets("Septembre").Range("I16").Value
 Worksheets("Synthese").Range("K20").Value = Worksheets("Septembre").Range("K16").Value

  Worksheets("Synthese").Range("L5").Value = Worksheets("Octobre").Range("C4").Value
 Worksheets("Synthese").Range("L6").Value = Worksheets("Octobre").Range("C5").Value
 Worksheets("Synthese").Range("L7").Value = Worksheets("Octobre").Range("C6").Value
 Worksheets("Synthese").Range("L8").Value = Worksheets("Octobre").Range("C7").Value
 Worksheets("Synthese").Range("L9").Value = Worksheets("Octobre").Range("C8").Value
 Worksheets("Synthese").Range("L10").Value = Worksheets("Octobre").Range("C9").Value
 Worksheets("Synthese").Range("L11").Value = Worksheets("Octobre").Range("C10").Value
 Worksheets("Synthese").Range("L12").Value = Worksheets("Octobre").Range("C11").Value
 Worksheets("Synthese").Range("L13").Value = Worksheets("Octobre").Range("C16").Value
 Worksheets("Synthese").Range("L14").Value = Worksheets("Octobre").Range("E4").Value
 Worksheets("Synthese").Range("L15").Value = Worksheets("Octobre").Range("G4").Value
 Worksheets("Synthese").Range("L16").Value = Worksheets("Octobre").Range("I4").Value
 Worksheets("Synthese").Range("L17").Value = Worksheets("Octobre").Range("K4").Value
 Worksheets("Synthese").Range("L18").Value = Worksheets("Octobre").Range("G16").Value
 Worksheets("Synthese").Range("L19").Value = Worksheets("Octobre").Range("I16").Value
 Worksheets("Synthese").Range("L20").Value = Worksheets("Octobre").Range("K16").Value

  Worksheets("Synthese").Range("M5").Value = Worksheets("Novembre").Range("C4").Value
 Worksheets("Synthese").Range("M6").Value = Worksheets("Novembre").Range("C5").Value
 Worksheets("Synthese").Range("M7").Value = Worksheets("Novembre").Range("C6").Value
 Worksheets("Synthese").Range("M8").Value = Worksheets("Novembre").Range("C7").Value
 Worksheets("Synthese").Range("M9").Value = Worksheets("Novembre").Range("C8").Value
 Worksheets("Synthese").Range("M10").Value = Worksheets("Novembre").Range("C9").Value
 Worksheets("Synthese").Range("M11").Value = Worksheets("Novembre").Range("C10").Value
 Worksheets("Synthese").Range("M12").Value = Worksheets("Novembre").Range("C11").Value
 Worksheets("Synthese").Range("M13").Value = Worksheets("Novembre").Range("C16").Value
 Worksheets("Synthese").Range("M14").Value = Worksheets("Novembre").Range("E4").Value
 Worksheets("Synthese").Range("M15").Value = Worksheets("Novembre").Range("G4").Value
 Worksheets("Synthese").Range("M16").Value = Worksheets("Novembre").Range("I4").Value
 Worksheets("Synthese").Range("M17").Value = Worksheets("Novembre").Range("K4").Value
 Worksheets("Synthese").Range("M18").Value = Worksheets("Novembre").Range("G16").Value
 Worksheets("Synthese").Range("M19").Value = Worksheets("Novembre").Range("I16").Value
 Worksheets("Synthese").Range("M20").Value = Worksheets("Novembre").Range("K16").Value

  Worksheets("Synthese").Range("N5").Value = Worksheets("Decembre").Range("C4").Value
 Worksheets("Synthese").Range("N6").Value = Worksheets("Decembre").Range("C5").Value
 Worksheets("Synthese").Range("N7").Value = Worksheets("Decembre").Range("C6").Value
 Worksheets("Synthese").Range("N8").Value = Worksheets("Decembre").Range("C7").Value
 Worksheets("Synthese").Range("N9").Value = Worksheets("Decembre").Range("C8").Value
 Worksheets("Synthese").Range("N10").Value = Worksheets("Decembre").Range("C9").Value
 Worksheets("Synthese").Range("N11").Value = Worksheets("Decembre").Range("C10").Value
 Worksheets("Synthese").Range("N12").Value = Worksheets("Decembre").Range("C11").Value
 Worksheets("Synthese").Range("N13").Value = Worksheets("Decembre").Range("C16").Value
 Worksheets("Synthese").Range("N14").Value = Worksheets("Decembre").Range("E4").Value
 Worksheets("Synthese").Range("N15").Value = Worksheets("Decembre").Range("G4").Value
 Worksheets("Synthese").Range("N16").Value = Worksheets("Decembre").Range("I4").Value
 Worksheets("Synthese").Range("N17").Value = Worksheets("Decembre").Range("K4").Value
 Worksheets("Synthese").Range("N18").Value = Worksheets("Decembre").Range("G16").Value
 Worksheets("Synthese").Range("N19").Value = Worksheets("Decembre").Range("I16").Value
 Worksheets("Synthese").Range("N20").Value = Worksheets("Decembre").Range("K16").Value

End Sub
Le 22/12/2016 à 12:23

bonjour

en supposant que l'onglet synthèse se trouve à la 13e position et donc les onglets des 12 mois se trouvent en en début de classeur

un faire un essai sur un fichier temporaire

Sub Synthese()

Dim i As Byte
For i = 1 To 12
       Worksheets("Synthese").Cells(5, 2 + i) = Sheets(i).Range("C4").Value
    Worksheets("Synthese").Cells(6, 2 + i) = Sheets(i).Range("C5").Value
    Worksheets("Synthese").Cells(7, 2 + i) = Sheets(i).Range("C6").Value
    Worksheets("Synthese").Cells(8, 2 + i) = Sheets(i).Range("C7").Value
    Worksheets("Synthese").Cells(9, 2 + i) = Sheets(i).Range("C8").Value
    Worksheets("Synthese").Cells(10, 2 + i) = Sheets(i).Range("C9").Value
    Worksheets("Synthese").Cells(11, 2 + i) = Sheets(i).Range("C10").Value
    Worksheets("Synthese").Cells(12, 2 + i) = Sheets(i).Range("C11").Value
    Worksheets("Synthese").Cells(13, 2 + i) = Sheets(i).Range("C16").Value
    Worksheets("Synthese").Cells(14, 2 + i) = Sheets(i).Range("E4").Value
    Worksheets("Synthese").Cells(15, 2 + i) = Sheets(i).Range("G4").Value
    Worksheets("Synthese").Cells(16, 2 + i) = Sheets(i).Range("I4").Value
    Worksheets("Synthese").Cells(17, 2 + i) = Sheets(i).Range("K4").Value
    Worksheets("Synthese").Cells(18, 2 + i) = Sheets(i).Range("G16").Value
    Worksheets("Synthese").Cells(19, 2 + i) = Sheets(i).Range("I16").Value
    Worksheets("Synthese").Cells(20, 2 + i) = sheets(i).Range("K16").Value
Next
End Sub

Fred

Le 22/12/2016 à 12:28

Bonjour,

Sub Synthèse()
    Dim TS(15, 1 To 12), kS, ff$, f%, i%
    kS = Split("C4 C5 C6 C7 C8 C9 C10 C11 C16 E4 G4 I4 K4 G16 I16 K16")
    For f = 1 To 12
        ff = StrConv(MonthName(f), vbProperCase)
        With Worksheets(ff)
            For i = 0 To 15
                TS(i, f) = .Range(kS)
            Next i
        End With
    Next f
    Worksheets("Synthese").Range("C5").Resize(16, 12).Value = TS
End Sub

NB- Attention à un point : MonthName renvoie les noms de mois selon les paramètres régionaux : janvier, février... août... décembre...

Cela a l'air conforme pour Février et Août, mais pas Decembre ! (il faut Décembre).

Cordialement.

Le 22/12/2016 à 12:49

Bonjour Mferrand

il n'y aurait pas une coquille dans ton code ???

mettre ceci

                TS(i, f) = .Range(kS(i))

à la place de

                TS(i, f) = .Range(kS)

???

Fred

Le 22/12/2016 à 12:49

Bonjour à vous 2 et merci pour vos réponses qui fonctionnent.

Je comprends bien celle de Fred, même si ca ne me parait évident qu’après coup... Déclarer une variable. Je pense que ça va me servir d'exemple un bon moment.

Pour la soluce de MFerrand, à mon faible niveau c'est plus complexe à comprendre mais c'est aussi plus synthétique donc j'y reviendrai d'ici qq temps qd j'aurai assimiler les boucles!

PS: si vous connaissez un site ou un livre qui donne des exemples de codes VBA "traduit" en français cela m'intéresse. Car j'ai du mal à assimiler la syntaxe, en général j'oublie une parenthèse, un espace... c'est comme apprendre une nouvelle langue finalement

Le 22/12/2016 à 13:19

OUi ! Bien sûr Fred et merci de la correction !

C'est :

                TS(i, f) = .Range(kS(i))

naturellement.

Ruliann, il ne faut pas te laisser déstabiliser par les boucles, c'est facile à lire quand tu as vu sur quoi tu boucles...

Et tu devrais l'essayer car en ne faisant pas d'affectation cellule par cellule, mais les 192 en une fois, c'est nécessairement plus rapide.

Cordialement.

Le 22/12/2016 à 13:41

je me suis permis de commenter le code MFerrand

si cela peut t'aider...

Sub Synthèse()
'déclaration des variables
    Dim TS(15, 1 To 12), kS, ff$, f%, i%
    'TS est un tableau comportant 16 lignes et 12 colonnes => 16 lignes car tu recuperes 16 valeurs par feuilles (de 0 à 15), et 12 colonnes => pour les 12 mois
    'donc colonne 1 pour janvier, colonne 2 pour fevrier, .....
' et tu auras ligne 1 valeur de cellule C4, ligne 2, valeur C5,......

    'mise en mémoire dans une variable tableau 16 lignes (et par consequent une seule colonne) les cellules cibles pour chaque feuille mois et dans l'ordre que tu souhaites
    kS = Split("C4 C5 C6 C7 C8 C9 C10 C11 C16 E4 G4 I4 K4 G16 I16 K16")

    'on va parcourir 12 feuilles au total => les douze mois
    For f = 1 To 12
        'recupere le nom du mois => premiere boucle f = 1 donc monthname = janvier
        'StrConv(MonthName(f), vbProperCase) permet de mettre une majuscule sur la premiere lettre du mot => Janvier
        ff = StrConv(MonthName(f), vbProperCase)
        'donc ff = Janvier
'on va donc travailler successivement sur les feuilles Janvier, Février, ....
        With Worksheets(ff)

            'tu as 16 cellules a recuperer donc sachant que les tableaux commencent à 0 on va de 0 à 15 ce qui fait 16 valeurs = > 16 cellules
            For i = 0 To 15
                'met dans la colonne du mois en cours de traitement donc pour la premiere boucle f = 1 = mois de Janvier
                'on va passer en revu les 16 cellules cibles et les soctkées sur la ligne correspondante..du tableau TS
                TS(i, f) = .Range(kS(i))
            'passage à la cellule cible suivante
            Next i
        End With
    'passage a la feuille suivante
    Next f
    'une fois toutes les valeurs stpckée dans la variable tableau, il faut les collées dans la feuille synthèse
    'on prend une selection de cellule partant de la cellule C5 et on se decale de 16 lignes (16 valeurs) et de 12 colonnes (12 mois) pour correspondre à la taille tu tableau a deux dimensions TS
    Worksheets("Synthese").Range("C5").Resize(16, 12).Value = TS
End Sub

et si ton problème est résolu

fred

Le 22/12/2016 à 14:07

Fred explications tout à fait parfaites ! Et RuliAnn devrait avoir compris !

A+

Le 22/12/2016 à 15:56

super!

merci pour la traduction ça va bcp m'aider à comprendre l’interprétation de vba!

Rechercher des sujets similaires à "simplifier cette macro"