Discussion :

[zazay123]

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 :

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
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

[pijaku]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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
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

[pijaku]

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...

[zazay123]

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

[pijaku]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zazay123]

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 :

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
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)

[pijaku]

t'as peut être une idée

Oui.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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