Calculer la somme d'une colonne [Résolu]

[tissam89]

Bonjour.
J'ai crée un bouton access qui permet d'envoyer le contenu d'une requete vers une feuille d'un fichier excell.
Ce que je veux maintenant c calculer le total de chaque colonne en bas de chaque colone, sachant que le nombre d'enregistrement peut toujours varier.
Et dans le A1 je veux que je voi tout le temps Bilan + Date ( je veux qu'il prend la date systéme automatiquement )

[jfontaine]

Bonjour,

Ce que je veux maintenant c calculer le total de chaque colonne en bas de chaque colone, sachant que le nombre d'enregistrement peut toujours varier.

pour cela il y a plusieurs méthodes. Pour mieux d'orienter, peux tu nous donner le code d'alimentation des données dans excel

Et dans le A1 je veux que je voi tout le temps Bilan + Date ( je veux qu'il prend la date systéme automatiquement )

avec une formule (se met a jour a chaque ouverture du fichier)

Code :

="Bilan "& TEXTE(JOUR(AUJOURDHUI());"00") & "/" & TEXTE(MOIS(AUJOURDHUI());"00") & "/" & ANNEE(AUJOURDHUI())

en VBA (non dynamique, mais correspond à la date de création de l'état)

Code :

Range("A1").Value = "Bilan " & Format(Now, "dd/mm/yyyy")

[tissam89]

Merci pour votre réponse. Voici mon code :

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
46
47
 
With oAppExcel
        .DisplayAlerts = False
        Set oXLWB = .Workbooks.Open(lienBilan)
        With oXLWB
            Set oXLSht = .Worksheets("Bilan")
           oXLSht.Activate
            With oXLSht
            oXLSht.Activate
 
                Set oXLRng = oXLSht.Range("A3")
                With oXLRng
                    .select
                    With F1
                        Do While Not .EOF
                            C = C + 1
                            oXLRng.Offset(C, 0).Value = .Fields(0).Value
                            oXLRng.Offset(C, 1).Value = .Fields(1).Value
                            oXLRng.Offset(C, 2).Value = .Fields(2).Value
                            oXLRng.Offset(C, 3).Value = .Fields(3).Value
                            oXLRng.Offset(C, 4).Value = .Fields(4).Value
                            oXLRng.Offset(C, 5).Value = .Fields(5).Value
                            oXLRng.Offset(C, 6).Value = .Fields(6).Value
                            oXLRng.Offset(C, 7).Value = .Fields(7).Value
                            oXLRng.Offset(C, 8).Value = .Fields(8).Value
                            oXLRng.Offset(C, 9).Value = .Fields(9).Value
                            .MoveNext
                        Loop
                        .Close
                    End With
 
                End With
            End With
            .SaveAs lienBilan
            .Close False
        End With
 
    Set oXLRng = Nothing
    Set oXLSht = Nothing
    Set oAppExcel = Nothing
    Set F1 = Nothing
     Set Lien = Nothing
     Set req = Nothing
     Set oXLWB = Nothing
 
    .Quit
    End With

Peut tu me dire ou est ce que je peu inserer le code pour rajouter la date automatique à chaque ouverture de fichier? ile me donne erreur dans le ;

J'ai réussi à faire BIlan+ Date.il me reste la somme.Merci de m'aider

[jfontaine]

Une solution consisterait à ajoutez les formules sommes à la fin de ton traitement d'ajout

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
46
47
48
49
50
51
52
53
54
55
56
57
58
With oAppExcel
        .DisplayAlerts = False
        Set oXLWB = .Workbooks.Open(lienBilan)
        With oXLWB
            Set oXLSht = .Worksheets("Bilan")
           oXLSht.Activate
            With oXLSht
            oXLSht.Activate
 
                Set oXLRng = oXLSht.Range("A3")
                With oXLRng
                    .select
                    With F1
                        Do While Not .EOF
                            C = C + 1
                            oXLRng.Offset(C, 0).Value = .Fields(0).Value
                            oXLRng.Offset(C, 1).Value = .Fields(1).Value
                            oXLRng.Offset(C, 2).Value = .Fields(2).Value
                            oXLRng.Offset(C, 3).Value = .Fields(3).Value
                            oXLRng.Offset(C, 4).Value = .Fields(4).Value
                            oXLRng.Offset(C, 5).Value = .Fields(5).Value
                            oXLRng.Offset(C, 6).Value = .Fields(6).Value
                            oXLRng.Offset(C, 7).Value = .Fields(7).Value
                            oXLRng.Offset(C, 8).Value = .Fields(8).Value
                            oXLRng.Offset(C, 9).Value = .Fields(9).Value
                            .MoveNext
                        Loop
 
             oXLRng.Range("A" & C+1).FormulaLocal = "=Somme(A1:A" & C & ")"
             oXLRng.Range("B" & C+1).FormulaLocal = "=Somme(B1:B" & C & ")"
             oXLRng.Range("C" & C+1).FormulaLocal = "=Somme(C1:C" & C & ")"
             oXLRng.Range("D" & C+1).FormulaLocal = "=Somme(D1:D" & C & ")"
             oXLRng.Range("E" & C+1).FormulaLocal = "=Somme(E1:E" & C & ")"
             oXLRng.Range("F" & C+1).FormulaLocal = "=Somme(F1:F" & C & ")"
             oXLRng.Range("G" & C+1).FormulaLocal = "=Somme(G1:G" & C & ")"
             oXLRng.Range("H" & C+1).FormulaLocal = "=Somme(H1:H" & C & ")"
             oXLRng.Range("I" & C+1).FormulaLocal = "=Somme(I1:I" & C & ")"
             oXLRng.Range("J" & C+1).FormulaLocal = "=Somme(J1:J" & C & ")"
 
                        .Close
                    End With
 
                End With
            End With
            .SaveAs lienBilan
            .Close False
        End With
 
    Set oXLRng = Nothing
    Set oXLSht = Nothing
    Set oAppExcel = Nothing
    Set F1 = Nothing
     Set Lien = Nothing
     Set req = Nothing
     Set oXLWB = Nothing
 
    .Quit
    End With

[tissam89]

ça marche.
Merci beaucoup, bonne journée