Re : Insertion d'un bouton pour insérer des opérations bancaires
oups j'ai oublié le code:
Sub prelevement_Clic()
Dim mem As String
Dim x, y As Integer
Dim montableau(10, 10) As String
DerCell = Range("A5").End(xlDown).Address
Range(DerCell).Select
Selection.Offset(1, 0).Activate
mem = ActiveCell.Address
Sheets("Prélèvements automatiques").Activate
x = 0
Range("e4").Select
Do
y = y + 1
montableau(x, y) = ActiveCell.Offset(1, 0).Value
ActiveCell.Offset(1, 0).Activate
Loop Until y = 10
x = 1
y = 0
Range("d4").Select
Do
y = y + 1
montableau(x, y) = ActiveCell.Offset(1, 0).Value
ActiveCell.Offset(1, 0).Activate
Loop Until y = 10
x = 2
y = 0
Range("b4").Select
Do
y = y + 1
montableau(x, y) = ActiveCell.Offset(1, 0).Value
ActiveCell.Offset(1, 0).Activate
Loop Until y = 10
x = 3
y = 0
Range("a4").Select
Do
y = y + 1
montableau(x, y) = ActiveCell.Offset(1, 0).Value
ActiveCell.Offset(1, 0).Activate
Loop Until y = 10
Sheets("Compte courant").Activate
x = 0
Do
ActiveCell.Offset(x, 4).Value = montableau(0, x)
ActiveCell.Offset(x, 3).Value = montableau(1, x)
ActiveCell.Offset(x, 1).Value = montableau(2, x)
ActiveCell.Offset(x, 0).Value = Format(montableau(3, x), "dd/mm/yyyy")
x = x + 1
Loop Until x = 10
End Sub
voila,
A bientot