Discussion :

[Chikatilo]

Bonjour,
sur une base access j'exporte des donnees regroupée par activité sur un fichier excel (7activites)
mon but c'est d'inserer entre 2 activite distinct une ligne qui permette de somme des champs afin de calculer la moyenne par activites.
Merci de vos reponse et j'espere que j'etais assez clair.
merci

[helios77]

Avec Excel, c'est simple

Tu tries tes données par activités
Tu rajoutse des sous totaux en choisissant moyenne sur la zone qui t'interesse et à chaque changement d'activité

Pas besoin de VBA pour çà

[Chikatilo]

les activités sortent deja trié ,donc il me faut inserer une ligne vide qui va me permettra de calculer la somme des champs .
le soucis c'est que j'exporte , et je veux qu'au moment de l'export je manipule pas le donnees

[helios77]

Essaie le code ci-dessous
Evidemment, je suppose qu'il n'y apas de titre, que ton activité est en colonne 1 et que ta valeur est en colonne 2 et que tes donnnées sont triés par activité

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
 
Sub traitement()
    Dim i As Integer
    Dim nbreVal, sommeVal As Double
    Dim strAct As String
    i = 1
    nbreVal = 0
    sommeVal = 0
    strAct = Cells(i, 1).Value
    While Trim(Cells(i, 1).Value) <> ""
        If Cells(i, 1).Value <> strAct Then
            Rows(i & ":" & i).Select
            Selection.Insert Shift:=xlDown
            Cells(i, 1).Value = strAct
            Cells(i, 2).Value = sommeVal / nbreVal
            Cells(i, 3).Value = "TOTAL"
            nbreVal = 0
            sommeVal = 0
            strAct = Cells(i + 1, 1).Value
        Else
            nbreVal = nbreVal + 1
            sommeVal = sommeVal + Cells(i, 2).Value
        End If
        i = i + 1
    Wend
    Rows(i & ":" & i).Select
    Selection.Insert Shift:=xlDown
    Cells(i, 1).Value = strAct
    Cells(i, 2).Value = sommeVal / nbreVal
    Cells(i, 3).Value = "TOTAL"
End Sub

[Chikatilo]

merci pour ta reponse

j'arrive pas a excuté cette ligne , je me demande pq ca bloque ?

Code :

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

sommeVal = sommeVal + Cells(i, 4).Value

[EDIT]
c'est bon j'ai reussi , en supprimant le titre du champ .
mais comme pourrais je calculer tt en gardant mon titre
mais vu que j'ai plusieurs champs a calculé a sommer (7chmps)
comment pourrais je automatisé tout ca
je suis un debutant en vb et merci pour ta comprehension

[helios77]

facile

j'initialise i=1 car je suppose que les données commencent sur la première ligne
Maintenant, si tes données commencent sur la deuxième ligne, tu fai i=2

Si c'est sur la ligne 5, tu mets i=5

Voilà c'est tout... normalement, çà devrait être OK