Bonjour,
Déjà pour l'heure, tu ajoutes le code en gras dans ta procédure suivante :
Private Sub ACHAT_Click()
ligne = WorksheetFunction.CountA(Sheets(Me.COMPTE.Value).Columns("A:A")) + 1
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("C" & ligne).Value = GLOBEX.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"
End Sub
a+