Re,
Tu remplaces le module : Private Sub Achat_click par celui-ci :
Par contre, je ne sais pas où tu veux mettre le total de la colonne D et G
Private Sub ACHAT_Click()
adresse = ""
ligne = WorksheetFunction.CountA(Sheets(Me.COMPTE.Value).Columns("A:A")) + 1
Rows(ligne + 1).Select
Selection.Font.Bold = False
Rows(ligne + 1).ClearContents
Sheets(Me.COMPTE.Value).Range("A" & ligne).Value = CDate(Date)
Sheets(Me.COMPTE.Value).Range("D" & ligne).Value = QUANTITES.Value
Sheets(Me.COMPTE.Value).Range("E" & ligne).Value = COURS.Value
Sheets(Me.COMPTE.Value).Range("B" & ligne).Value = Format(Time, "h:mm:ss")
If GLOBEX = True Then Sheets(Me.COMPTE.Value).Range("C" & ligne).Value = "GLOBEX"
If ligne = 3 Then Sheets(Me.COMPTE.Value).Range("F" & ligne).Value = Sheets(Me.COMPTE.Value).Range("D" & ligne).Value Else _
Sheets(Me.COMPTE.Value).Range("F" & ligne).Value = Sheets(Me.COMPTE.Value).Range("F" & ligne - 1).Value + Sheets(Me.COMPTE.Value).Range("D" & ligne).Value
If ligne = 3 Then Sheets(Me.COMPTE.Value).Range("I" & ligne).Value = Sheets(Me.COMPTE.Value).Range("G" & ligne).Value Else _
Sheets(Me.COMPTE.Value).Range("I" & ligne).Value = Sheets(Me.COMPTE.Value).Range("I" & ligne - 1).Value + Sheets(Me.COMPTE.Value).Range("G" & ligne).Value
Sheets(Me.COMPTE.Value).Range("J" & ligne).Value = Sheets(Me.COMPTE.Value).Range("F" & ligne).Value - Sheets(Me.COMPTE.Value).Range("I" & ligne).Value
' recherche dans la feuille "code gerant"
recherche = Range("C1").Value
Set Plage = Sheets("code Gerant").Range("a2:a12") ' Cells(Rows.Count, "a").End(xlUp))
With Plage
Set c = .Find(recherche)
If Not c Is Nothing Then
adresse = c.Row
End If
End With
If adresse = "" Then Exit Sub
nb = Sheets("code gerant").Range("D" & adresse).Value
If Sheets(Me.COMPTE.Value).Range("D" & ligne).Value <> "" Then
Sheets(Me.COMPTE.Value).Range("K" & ligne).Value = nb * Sheets(Me.COMPTE.Value).Range("D" & ligne).Value
End If
If Sheets(Me.COMPTE.Value).Range("G" & ligne).Value <> "" Then
Sheets(Me.COMPTE.Value).Range("K" & ligne).Value = nb * Sheets(Me.COMPTE.Value).Range("G" & ligne).Value
End If
'
Total des colonnes
'Stop
ligne = ligne + 2
'a = "=SUM(F3:F" & ligne - 2 & ")"
Range("D" & ligne) = "=SUM(D3" & ligne - 2 & ")"
Range("G" & ligne) = "=SUM(G3:G" & ligne - 2 & ")"
Range("K" & ligne) = "=SUM(K3:K" & ligne - 2 & ")"
Range("J" & ligne) = Range("J" & ligne - 2)
Rows(ligne).Select
Selection.Font.Bold = True
Range("A" & ligne).Select
End Sub