Discussion :

[dado91400]

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.

[ouskel'n'or]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Unload Userform1

ou plus simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

End

Bon app' je vais eat...

[dado91400]

Merci pour ce début de réponse.

effectivment c'est pas pareille ...

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

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dado91400]

merci pour le coup de pouce!!!