Discussion :

[Mr l'Ashanti]

bonjour forum.
j'ai voulu faire la somme de plusieurs cellule en utilsant ce code

Code :

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

 .Range("h" & Ligne.Caption) = Application.WorksheetFunction.Sum(Range("D:G"))

ou ce code

Code :

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

1
2
3
4
5
6
7
8
For i = 2 To .Range("D" & Rows.Count).End(xlUp).Row
  'j'indique qu'elle est la plage à calculer
    Set plage = .Range("D" & i & ":G" & i)
  'j'indique que pour cette plage j'utilise la fonction somme
    résultat = Application.WorksheetFunction.Sum(plage)
  'j'affiche le résultat dans la colonne H à la ligne qui correspond
   .Range("H" & i) = résultat
  Next i

mais lors des calculs dans la colonne H, au lieu d'afficher les resultats j'ai Zéro comme resultat avec ces deux codes.
quelqu'un pourrait m'aider à résoudre l' équation ? merci

[MarcelG]

Bonjour,

Pourquoi ne pas le faire directement sur tableur.
Comme qui dirait, salut à lui,

Penser Excel avant VBA

[Mr l'Ashanti]

c'est une petite application qui regroupe tous les rapports des differentes classes
chose bizarre toutes les fonctions que je rentre me donne zero comme cette fonction

Code :

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

.Range("i" & Ligne.Caption) = ActiveCell.FormulaR1C1 = "=RC[-1]/17"

pour faire le calcul de moyenne

[Igloobel]

c'est une petite application qui regroupe tous les rapports des differentes classes
chose bizarre toutes les fonctions que je rentre me donne zero comme cette fonction

Code :

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

.Range("i" & Ligne.Caption) = ActiveCell.FormulaR1C1 = "=RC[-1]/17"

pour faire le calcul de moyenne

donc pour une moyenne regarde ce post et s'il ne convient pas ou que partiellement revient nous voir

https://www.developpez.net/forums/d7...ction-average/

[Mr l'Ashanti]

non ce n'est pas ce que je voulais...en fait cette moyenne c'est la moyenne arithmétique c'est à dire la moyenne de toutes cellules or la mienne c'est de faire la cellule qui contient le total des autres cellules divisée par 17 le tout multiplié par 2
exemple:
A1=41; B1=16 ;C1=18 ;D1=36
E1= Somme("A1 : D1")
F1= (("E1":17)*2)

[Mr l'Ashanti]

je joins mon fichier