Projet VBA

En outre, je ne sais pas du tout par où commencer : même littéralement je ne saurais pas vraiment m'y prendre...

Sub Analyse()

' on veut obtenir le montant des plus-values

Dim y As Integer
Dim z As Integer
Dim x As Integer
y = 0

For i = 2 To 260

'x étant la différence entre l'ouverture et la fermeture
        x = Cells(i, 2).Value - Cells(i, 5).Value

'y étant la comparaison entre deux jours
        y = x - y
        z = x - y
        Cells(i, 8).Value = z

   If z < 0 Then
   Cells(i, 9).Select
    ActiveCell.FormulaR1C1 = "achat"
        
   End If
   
   If z > 0 Then
   Cells(i, 9).Select
    ActiveCell.FormulaR1C1 = "vente"
    
    End If
       
Next i
    
End Sub

Sub Investissement()

'entrée du montant
'permet de connaitre le nombre d'actions vendues ou achetées
 x = InputBox("Rentrez la valeur de votre capital", "Investissement", "1000000")

Range("L4").Select
ActiveCell.FormulaR1C1 = x


For i = 2 To 258

    a = Cells(i, 9)
    
    If a = "achat" Then
        Cells(i, 10) = Int(x / Cells(i, 2))
        
    End If
Next i

For i = 2 To 258

    a = Cells(i, 9)
    
    If a = "vente" Then
        Cells(i, 10) = Cells(i - 1, 10)
        
    End If
Next i
End Sub

Sub gain()
' calcul la somme du montant de chaque action

For i = 2 To 258
    Cells(i, 11) = Cells(i, 10) * (Cells(i + 1, 8))
    
 Next i
    
Set MaPlage = Range("J2:J258")

MaSomme = Application.WorksheetFunction.Sum(MaPlage)
Cells(4, 13) = MaSomme

End Sub