Additionner des cellules en vba

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:

---

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

Bonjour,
Pourquoi cette ligne [K3:K200] = [K3:K200].Value ?
C'est elle qui pose problème.
Voici un code qui fonctionne parfaitement pour les cellule de F2 à F28

Code:

---

1 2 3 4 5 6 7

Sub T2() Dim rng As Range, Formula As String Set rng = ThisWorkbook.Worksheets("Feuil2").Range("F2:F31") Formula = "=IF(COUNT(RC7:RC10),SUM(RC7:RC10),"""")" rng.Formula = Formula ' [F2:F28].Formula = Formula ' <-- Cette syntaxe fonctionne aussi mais je ne l'utilise jamais End Sub

---

Bonjour,
Désolé pour ma réponse un peu hâtive et sur le test que j'ai fait dans une simple procédure alors que la question portait sur un problème provenant d'un code présent dans une procédure événementielle.
Dans la question posée , je n'ai vu que ceci

Citation:

---

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

---

Il n'était pas fait mention d'une fermeture d'excel.
J'ai compris aussi que dans cette ligne [K3:K200] = [K3:K200].Value, tu voulais remplacer la formule par les valeurs retournées.

Ton problème provient du fait que la procédure s'enclenche dès que l'on change la valeur d'une cellule dans la feuille. Or, le fait d'écrire dans une ou plusieurs cellules de cette feuille a pour effet de provoquer un nouvel événement et cela part en boucle et provoque une erreur.
Il y a donc lieu de rendre momentanément inopérant les événements.
Il faut donc pour cela utiliser l'instruction Application.EnableEvents = False en début de procédure et ne pas oublier de remettre à True la valeur de cette propriété.
Voici donc le code qui fonctionne.

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False [K3:K200].FormulaR1C1 = "=IF(COUNT(RC7:RC10),SUM(RC7:RC10),"""")" [K3:K200] = [K3:K200].Value Application.EnableEvents = True End Sub

---

Bien que je ne comprenne pas vraiment le but de cette procédure, j'ajouterais un test pour ne procéder à ce calcul que dans le cas où l'on a modifié une cellule de la plage G3:J200.
Avec ce code

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G3:J200")) Is Nothing Then Application.EnableEvents = False [K3:K200].FormulaR1C1 = "=IF(COUNT(RC7:RC10),SUM(RC7:RC10),"""")" [K3:K200] = [K3:K200].Value Application.EnableEvents = True End If End Sub

---

Comme tu n'as besoin que du résultat final, tu pourrais aussi utiliser la fonction SUM de VBA et uniquement sur la ligne en question. Cela me semble plus efficace.

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G3:J200")) Is Nothing Then Application.EnableEvents = False Range("K" & Target.Row) = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, "G"), Cells(Target.Row, "J"))) Application.EnableEvents = True End If End Sub

---

Ici, je ne teste pas si les cellules de la plage Grow:Jrow sont remplies mais il suffit d'ajouter un test avec Application.WorksheetFunction.CountA
Cependant, je suppose que si tu places une chaîne vide, c'est pour ne pas voir les zéros éventuels dans la colonne K.
Il existe alors d'autres moyens de ne pas les visualiser (Mise en Forme Conditionnelle, Format personnalisé ou Option d'excel).

Bonjour Philippe,

Je te remercie avec tout sa je vais bien m’en sortir.

Merci et bonne soirée


Max