Bonsoir

Je suis à la recherche d'un code pour additionner des cellules

J'ai les cellules "G3 : J3 a additionner avec le résultat en "K3"
"G4 : J4 a additionner avec le résultat en "K4"
Jusqu’aux cellules G200 :K200.

J'ai mis comme code ceci, mais sa donne des réponse fausse

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
      Private Sub Worksheet_Change(ByVal Target As Range)
 
 
  'Calculer point en VBA dans la colonne "K"
[K3:K200].FormulaR1C1 = "=IF(COUNT(RC7:RC10),SUM(RC7:RC10),"""")"
[K3:K200] = [K3:K200].Value
 
Exit Sub
End Sub
Merci d'avance pour votre aide

Max