Discussion :

[maxval18]

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

[Philippe Tulliez]

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 :

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

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

[Philippe Tulliez]

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

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 :

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

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 :

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

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 :

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

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).

[maxval18]

Bonjour Philippe,

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

Merci et bonne soirée


Max