[VBA-E]Problème de code

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 8O

voici donc mon code :

Code:

---

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:

---

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!:P

Bonne soirée.

J'ai une seconde... juste pour te dire que

Citation:

---

UserForm1.Hide 'on ferme UserForm1

---

Non, l'userform n'est que masqué mais n'est pas déchargé. L'appli tourne toujours.
Tu as deux solution pour le fermer

Code:

---

Unload Userform1

---

ou plus simplement

Code:

---

End

---

Bon app' je vais eat... :lol:

Merci pour ce début de réponse.

effectivment c'est pas pareille ...

tu as une idée pour ma 2 eme question ...??

Code:

---

Activecell.value = (Val(TextBox1.text) - Val(Textbox2.text))

---

Dans la version 2003, j'ignore si Val(...) est indispensable ainsi que .text mais bon, là ça fonctionnera quelque soit le cas de figure ;)

merci pour le coup de pouce!!!:D