optimiser mon code

Version imprimable

optimiser mon code

bonjour, j'ai un petit soucis d'optimisation de code ( il est très long ) si quelqu'un peut m'aider à le réduire svp , en gros je veux une boucle qui fasse la même chose que le code suivant :

Code:

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
34
35
36
37
38
39
40
41
42
43
44
45
Set Plage1 = Range("F2:F65000")
Set Plage2 = Range("G2:G65000")
Set Plage3 = Range("H2:H65000")
Set Plage4 = Range("I2:I65000")
Set Plage5 = Range("J2:J65000")
Set Plage6 = Range("K2:K65000")
Set Plage7 = Range("L2:L65000")
Set Plage8 = Range("M2:M65000")
Set Plage9 = Range("N2:N65000")
Set Plage10 = Range("O2:O65000")
Set Plage11 = Range("P2:P65000")
Set Plage12 = Range("Q2:Q65000")
Set Plage13 = Range("R2:R65000")
Set Plage14 = Range("S2:S65000")
Set Plage15 = Range("T2:T65000")
Set Plage16 = Range("U2:U65000")
Set Plage17 = Range("V2:V65000")
Set Plage18 = Range("W2:W65000")
Set Plage19 = Range("X2:X65000")
Set Plage20 = Range("Y2:Y65000")
Set Plage21 = Range("Z2:Z65000")
Set Plage22 = Range("AA2:AA65000")
 
Somme1 = Application.WorksheetFunction.Sum(Plage1)
Somme2 = Application.WorksheetFunction.Sum(Plage2)
Somme3 = Application.WorksheetFunction.Sum(Plage3)
Somme4 = Application.WorksheetFunction.Sum(Plage4)
Somme5 = Application.WorksheetFunction.Sum(Plage5)
Somme6 = Application.WorksheetFunction.Sum(Plage6)
Somme7 = Application.WorksheetFunction.Sum(Plage7)
Somme8 = Application.WorksheetFunction.Sum(Plage8)
Somme9 = Application.WorksheetFunction.Sum(Plage9)
Somme10 = Application.WorksheetFunction.Sum(Plage10)
Somme11 = Application.WorksheetFunction.Sum(Plage11)
Somme12 = Application.WorksheetFunction.Sum(Plage12)
Somme13 = Application.WorksheetFunction.Sum(Plage13)
Somme14 = Application.WorksheetFunction.Sum(Plage14)
Somme15 = Application.WorksheetFunction.Sum(Plage15)
Somme16 = Application.WorksheetFunction.Sum(Plage16)
Somme17 = Application.WorksheetFunction.Sum(Plage17)
Somme18 = Application.WorksheetFunction.Sum(Plage18)
Somme19 = Application.WorksheetFunction.Sum(Plage19)
Somme20 = Application.WorksheetFunction.Sum(Plage20)
Somme21 = Application.WorksheetFunction.Sum(Plage21)
Somme22 = Application.WorksheetFunction.Sum(Plage22)

Merci d'avance :D

Bonjour,

1- as-tu des valeurs dans chaque colonne jusqu'à la ligne 65000?

2- Tu peux faire la somme des valeurs d'une colonne d'un Range.
Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
Sub Essai()
Dim plage As Range, Sommes(1 To 6) As Double, i As Long
    Set plage = Range("A1:F65000")
    For i = 1 To 6
        Sommes(i) = Application.WorksheetFunction.Sum(plage.Columns(i))
    Next i
    MsgBox "La somme de la colonne C de la plage A1:F65000 est = " & Sommes(3) & vbCrLf & _
    "La somme de la colonne A de la plage A1:F65000 est = " & Sommes(1) & vbCrLf & _
    "La somme de la colonne E de la plage A1:F65000 est = " & Sommes(5)
End Sub

23/07/2020, 11h48
zazay123

Merci pour t'as réponse, j'ai essayé d'adapter ton code avec le nombre de colonnes que j'ai (22) mais je trouve des faux chiffres :roll:
et pour le nombre de valeur je n'ai pas 65000 , j'ai des valeurs qui changent c'est pour ça j'ai mis le max
23/07/2020, 11h57
pijaku

Citation:

mais je trouve des faux chiffres

Curieux. Très curieux...
Peux-tu nous placer une copie de cette feuille Excel sans données confidentielles?
Ne nous mets pas un classeur avec 60000 lignes...
Une centaine suffira, représentatives de tes données...
23/07/2020, 12h04
zazay123

Excuse moi c’était de ma faute , je n'ai pas sélectionné le bon onglet pour faire mes calcules :oops: , Merci bcp pour la solution rapide

Citation:

Envoyé par zazay123

Excuse moi c’était de ma faute , je n'ai pas sélectionné le bon onglet pour faire mes calcules

Du coup, tu devrais lui indiquer la feuille.
Comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
Sub Essai()
Dim plage As Range, Sommes(1 To 6) As Double, i As Long
    Set plage = Worksheets("Feuil18").Range("A1:F65000")     '********** A ADAPTER : Feuil18
    For i = 1 To 6
        Sommes(i) = Application.WorksheetFunction.Sum(plage.Columns(i))
    Next i
    MsgBox "La somme de la colonne C de la plage A1:F65000 est = " & Sommes(3) & vbCrLf & _
    "La somme de la colonne A de la plage A1:F65000 est = " & Sommes(1) & vbCrLf & _
    "La somme de la colonne E de la plage A1:F65000 est = " & Sommes(5)
End Sub

c'est exactement ce que j'ai fait , Merciiii
une autre petite question !! t'as peut être une idée comment réduire ce code aussi ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Range("D2").Value = Sommes(1)
    Range("E2").Value = Sommes(2)
    Range("F2").Value = Sommes(3)
    Range("G2").Value = Sommes(4)
    Range("H2").Value = Sommes(5)
    Range("I2").Value = Sommes(6)
    Range("J2").Value = Sommes(7)
    Range("K2").Value = Sommes(8)
    Range("L2").Value = Sommes(9)
    Range("M2").Value = Sommes(10)
    Range("N2").Value = Sommes(11)
    Range("O2").Value = Sommes(12)
    Range("P2").Value = Sommes(13)
    Range("Q2").Value = Sommes(14)
    Range("R2").Value = Sommes(15)
    Range("S2").Value = Sommes(16)
    Range("T2").Value = Sommes(17)
    Range("U2").Value = Sommes(18)
    Range("V2").Value = Sommes(19)
    Range("W2").Value = Sommes(20)
    Range("X2").Value = Sommes(21)
    Range("Y2").Value = Sommes(22)

Citation:

t'as peut être une idée

Oui.

Code:

1
2
3
4
Dim j As Integer
For j = 4 To 25
    Cells(2, j).Value = Sommes(j - 3)
Next