salut tout le monde!

J'ai un petit soucis de code, j'ai exploiter un peu une macro que j'essai de mettre à ma sauce... mais là je commence à m'y perdre un peu

voici donc mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Private Sub UserForm_Initialize()
 
'la valeur TextBox1 = la celule à gauche de la cellule DoubleCliquée
TextBox1 = ActiveCell.Offset(0, -1).Value
 
End Sub
Private Sub CommandButton1_Click()
 
UserForm1.Hide 'on ferme UserForm1
 
End Sub
Private Sub CommandButton2_Click()
Dim Soustraction As Integer
 
Soustraction = TextBox1 - TextBox2
 
'on copie les cellule de la ligne 1 à 4, à la fin du tableau
    ActiveCell.Offset(0, -5).Range("A1:D1").Select
    Selection.Copy
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    'j'ai bien copier/coller la ligne deppuis laquelle j'ai ouvert mon userform
    'Mais en à chaque fois, dans la nouvelle ligne crée en bas du tableau ET dans la colonne E, je souhaite
    'qu'il y apparraisse le résultat de ma variable Soustraction
    'je ne sais pas où glisser mon résultat dans le code
 
    Application.CutCopyMode = False
 
 
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
'si on double click sur la colonne 6, alors on lance UserForm1
If Target.Column = 6 Then
 
    UserForm1.Show 'on lance UserForm1
 
End If
 
End Sub
j'ai un tableau de 6 colonne : ("A1:F1") et de n lignes.
un UserForm1 : TextBox1, TextBox2, CommandButton1, CommandButton2

lorsque je double clique sur la colonne F :

1°) dans mon UserForm1 qui apparait : TextBox1 = la cellule à gauche de ActiveCell

2°) Je rentre une valeur dans TextBox2 au clavier.

3°) Lorsque je clique sur CommandButton2

J'ai une variable : Soustraction = TextBox1 - TextBox2
Et A LA DERNIERE ligne de mon tableau, je veux que ma ligne (celle où j'ai mon ActiveCell) soit Copier/Coller, avec le résultat de Soustraction.


4°) Je clique ensuite sur CommandButton1, pour fermer mon UserForm.

voici mes deux pblm :

I°) pour ma question, merci de jeter un oeil sur mon commentaire dans le code

II°) Pblm n°2, je souhaite que mes TextBox, se réinitialise à Zéro à chaque fermeture de l'UserForm1.


merci pour le coup de main!

Bonne soirée.