Problème code VBA avec somme

Question

Voilà j'ai un petit problème sur VBA (je suis néophyte total), je n'arrive pas à faire ma petite condition sur le résultat d'une somme. J'ai joint un fichier très incomplet pour que vous puissiez voir l'idée: - En sheet1, j'ai les indicateurs financiers d'une entreprise (ici Solvay, dans mon fichier final c'est tout le CAC40, mais le fichier est trop incompréhensible pour que je le mette là lol). Ce que je veux, c'est de mettre dans mon tableau en sheet2 Solvay dans la case "actions à acheter" ou "actions à vendre" suivant les résultat des indicateurs, càd si je devais expliquer le VBA que j'essaie de faire : SI la somme des cases jaunes à gauches (F3+F4+F10+F11) est égale à 20 ET SI la somme des cases jaunes à droite (N4+N5+Q9+Q10) est inférieur ou égale à -10, ALORS afficher "Solvay" dans la sheet2 dans "indications pour acheter". SI la somme des cases jaunes à gauches (F3+F4+F10+F11) est égale à -20 ET SI la somme des cases jaunes à droite (N4+N5+Q9+Q10) est supérieur ou égale à 10, ALORS afficher "Solvay" dans la sheet2 dans "indications pour vendre". Voilà, c'est à la fois très basique je pense mais j'ai beaucoup de mal, voilà ce que j'ai fait en vba qui ne fonctionne (évidemment pas) pas : Sub Tableaufinal() Windows("Probleme VBA.xlsm").Activate If Sum("F3+F4+F10+F11") = 20 And Sum("N4" + "N5" + "Q9" + "Q10") &lt;= -10 Then Windows("probleme vba.xslm").Activate Sheets("Sheet2").Activate Range("E9") = Solvay If Sum("F3+F4+F10+F11") = -20 And Sum("N4" + "N5" + "Q9" + "Q10") &gt;= 10 Then Windows("probleme vba.xslm").Activate Sheets("Sheet2").Activate Range("G9") = Solvay End Sub Merci beaucoup si vous pouvez y jeter un coup d'oeil. Stéphane...

Banzai64 · Answer

Bonjour et bienvenu(e)

Macro à tester

Mais dans le cas que tu présentes il n'y aura rien d'inscrit dans la 2ème page

Ou alors je n'ai pas saisi

Sub Tableaufinal()
Dim Total1 As Double, Total2 As Double

  Total1 = Application.Sum(Range("F3"), Range("F4"), Range("F10"), Range("F11"))
  Total2 = Application.Sum(Range("N4"), Range("N5"), Range("Q9"), Range("Q10"))
  With Sheets("Sheet2")
    If Total1 = 20 And Total2 <= 10 Then
      .Range("E" & Rows.Count).End(xlUp).Offset(1, 0) = "Solvay"
    ElseIf Total1 = -20 And Total2 >= 10 Then
      .Range("E" & Rows.Count).End(xlUp).Offset(1, 0) = "Solvay"
    End If
  End With
End Sub