Discussion :

[Ardiden31]

Bonjour à tous,
Comme le titre le dit je voulais savoir s'il était possible de simplifier la macro ci-dessous avec par exemple des for ou des loop.
J'ai cherché dans les différents tutoriels mais je n'ai pas réussi à la simplifier.
Merci à tous pour votre aide

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
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub MAC1()
k = 11
m = 64
For i = 6 To 19
Range("F" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("E" & k), Feuil40.Range("E" & k), Feuil40.Range("E" & m), Feuil38.Range("E" & k))
Range("G" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("F" & k), Feuil40.Range("F" & k), Feuil40.Range("F" & m), Feuil38.Range("F" & k))
Range("H" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("G" & k), Feuil40.Range("G" & k), Feuil40.Range("G" & m), Feuil38.Range("G" & k))
Range("I" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("H" & k), Feuil40.Range("H" & k), Feuil40.Range("H" & m), Feuil38.Range("H" & k))
Range("J" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("I" & k), Feuil40.Range("I" & k), Feuil40.Range("I" & m), Feuil38.Range("I" & k))
Range("K" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("J" & k), Feuil40.Range("J" & k), Feuil40.Range("J" & m), Feuil38.Range("J" & k))
Range("L" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("K" & k), Feuil40.Range("K" & k), Feuil40.Range("K" & m), Feuil38.Range("K" & k))
Range("M" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("L" & k), Feuil40.Range("L" & k), Feuil40.Range("L" & m), Feuil38.Range("L" & k))
Range("N" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("M" & k), Feuil40.Range("M" & k), Feuil40.Range("M" & m), Feuil38.Range("M" & k))
Range("O" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("N" & k), Feuil40.Range("N" & k), Feuil40.Range("N" & m), Feuil38.Range("N" & k))
Range("P" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("O" & k), Feuil40.Range("O" & k), Feuil40.Range("O" & m), Feuil38.Range("O" & k))
Range("Q" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("P" & k), Feuil40.Range("P" & k), Feuil40.Range("P" & m), Feuil38.Range("P" & k))
Range("R" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("Q" & k), Feuil40.Range("Q" & k), Feuil40.Range("Q" & m), Feuil38.Range("Q" & k))
Range("S" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("R" & k), Feuil40.Range("R" & k), Feuil40.Range("R" & m), Feuil38.Range("R" & k))
Range("T" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("S" & k), Feuil40.Range("S" & k), Feuil40.Range("S" & m), Feuil38.Range("S" & k))
Range("U" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("T" & k), Feuil40.Range("T" & k), Feuil40.Range("T" & m), Feuil38.Range("T" & k))
Range("V" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("U" & k), Feuil40.Range("U" & k), Feuil40.Range("U" & m), Feuil38.Range("U" & k))
Range("W" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("V" & k), Feuil40.Range("V" & k), Feuil40.Range("V" & m), Feuil38.Range("V" & k))
Range("X" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("W" & k), Feuil40.Range("W" & k), Feuil40.Range("W" & m), Feuil38.Range("W" & k))
Range("Y" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("X" & k), Feuil40.Range("X" & k), Feuil40.Range("X" & m), Feuil38.Range("X" & k))
Range("Z" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("Y" & k), Feuil40.Range("Y" & k), Feuil40.Range("Y" & m), Feuil38.Range("Y" & k))
Range("AA" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("Z" & k), Feuil40.Range("Z" & k), Feuil40.Range("Z" & m), Feuil38.Range("Z" & k))
Range("AB" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("AA" & k), Feuil40.Range("AA" & k), Feuil40.Range("AA" & m), Feuil38.Range("AA" & k))
Range("AC" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("AB" & k), Feuil40.Range("AB" & k), Feuil40.Range("AB" & m), Feuil38.Range("AB" & k))
Range("AD" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("AC" & k), Feuil40.Range("AC" & k), Feuil40.Range("AC" & m), Feuil38.Range("AC" & k))
k = k + 1
m = m + 1
Next i
End Sub

[joe.levrai]

Bonjour,

à tester

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
21
22
23
24
25
26
27
28
29
30
31
32
 
Sub MAC1()
 
    Dim Sh39 As Worksheet
    Dim Sh40 As Worksheet
    Dim Sh38 As Worksheet
    Dim Sh As Worksheet
    Dim Col As Integer
    Dim Lig As Integer
 
    Set Sh = ActiveSheet
    Set Sh40 = ThisWorkbook.Worksheets(Feuil40.Index)
    Set Sh39 = ThisWorkbook.Worksheets(Feuil39.Index)
    Set Sh38 = ThisWorkbook.Worksheets(Feuil38.Index)
 
    For Lig = 6 To 19
        For Col = 6 To 30
            With Application.WorksheetFunction
                Sh.Cells(Lig, Col).Value = .Sum(Sh39.Cells(Lig + 5, Col - 1), _
                                                Sh40.Cells(Lig + 5, Col - 1), _
                                                Sh40.Cells(Lig + 58, Col - 1), _
                                                Sh38.Cells(Lig + 5, Col - 1))
            End With
        Next Col
    Next Lig
 
    Set Sh = Nothing
    Set Sh40 = Nothing
    Set Sh39 = Nothing
    Set Sh38 = Nothing
 
End Sub

[Ardiden31]

Merci joe.levrai c'est juste parfait

[Marc-L]

Bonjour,

réalisable sans boucle en à peine une dizaine de lignes de code mais,
afin de le vérifier, merci de joindre un classeur sans macro en .xlsx …


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Ardiden31]

Bonjour Marc-L
Voici le fichier en pj.

[Marc-L]

Je prends tout juste connaissance de la pièce jointe et je suis perdu car les CodeName des feuilles de calculs
(Feuil1 à Feuil6) ne correspondent pas à ceux de ton code initial (Feuil38 à Feuil40) …

Feuil38 à 40 correspondent à Feuil1 à 3 (MSP1 à 3) dans cette pièce jointe et la feuille de destination serait Feuil4 (PROG),
est-ce bien cela ? Cette feuille "PROG" correspondrait alors au résultat final souhaité ?

[Ardiden31]

Bonjour,
Oui j'ai crée un nouveau classeur avec moins de feuilles que l'original. Et la feuille principal ou je veux le résultat est bien la feuille PROG et les autres feuilles :
Feuil38 = MPS1
Feuil39 = MPS3
Feuil40 = MPS2