Discussion :

[toto43250]

Salut je suis dans l'embaras en effet je suis tenu de faire un tableau complet et je suis novice sur excel je n'utilise que les formules et du coup je doit avoir une erreur dans les ecrit que j'ai récuperer.

Ligne 24

exemple:

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
Function Moyenne()
 
' Declaration des variables
 
Dim i As Integer
Dim A As Long
Dim somme As Double
 
 
 
' Détermination de la derniere ligne comptenant des stagiaires
            valeurf = Sheets("PVGENERAL").Range("A" & Rows.Count).End(xlUp).Row
             A = -1
 
' Détermination de la derniere colone comptenant des stagiaires
            Valeurg = Sheets("PVGENERAL").Cells(5, Cells.Columns.Count).End(xlToLeft).Column
 
' Calcule de la moyenne pour chaque stagiaire
 
            For i = 8 To valeurf
                For j = 8 To Valeurg - 4
                     somme = somme + (Sheets("PVGENERAL").Cells(i, j).Value * Sheets("PVGENERAL").Cells(i + A, j).Value)
                 Next j
                somme = (Sheets("PVGENERAL").Cells(i + b, Valeurg - 2).Value) / somme
                Sheets("PVGENERAL").Cells(i, Valeurg - 2) = somme + Sheets("PVGENERAL").Cells(i, Valeurg - 3)
                A = (b - 1)
                somme = 0
 
             Next i
 
 
End Function

Si quelqu'un peux m'aider sa serais tres sympa

Merci d'avance.
si besoin je peux transferer directement par mail le fichier lol!!

[kiki29]

Salut, pour commencer : Balise ton code
voir aussi ici

Sinon qqch du genre, à adapter pour la plage.

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Sub Tst()
Dim v As Double
    v = Application.WorksheetFunction.Average(Feuil1.Range("A1:A10"))
    MsgBox v
End Sub