Discussion :

[jpfouquette]

Bonjour,

J'ai créé un classeur excel afin de faciliter ma gestion quand un client vient payer (classeur ci-joint)
J'arrive au bout de ce que je voulais faire ile reste totuefois 2 petites choses pour lesquelles j'ai besoin de vous.

1. Lorsque je vais sur la feuille "Caisse" et que je clique sur le bouton "retrait"
Un userform s'ouvre pour l'instant quand je met "valider" sur cette userform j'ai demandé ça :

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
Private Sub CommandButton1_Click()
With Sheets("Retrait")
.Range("B4").Value = TextBox1.Value
.Range("B5").Value = TextBox2.Value
.Range("B6").Value = TextBox3.Value
.Range("B7").Value = TextBox4.Value
.Range("B8").Value = TextBox5.Value
.Range("E4").Value = TextBox6.Value
.Range("E5").Value = TextBox7.Value
.Range("E6").Value = TextBox8.Value
.Range("E7").Value = TextBox9.Value
.Range("E8").Value = TextBox10.Value
.Range("E9").Value = TextBox11.Value
.Range("E10").Value = TextBox12.Value
.Range("E11").Value = TextBox13.Value
.Activate
End With
Unload UserForm6
End Sub

Ce qui me permet d'imprimer la feuille "retrait" pour garder une trace

Mon problème : J'aimerais également qu'en remplissant mon "Userform6" ma feuille "caisse" se mette à jour, (exemple : si je fais un retrait de 2 billet de 50 €, que la cellule C17 prenne en compte le -2 et donc que le total soit recalculé...) J'espère mettre fait comrpendre


2. Dans le même style j'aimerais qua quand je clique sur la feuille "caisse" et que je clique sur le bouton "versement" en remplissant mon Userform "Versement" la "Caisse" s'ajuste


Merci pour votre aide

[goldstar]

Bonjour,

A mettre dans le code du bouton Valider ton ton UserForm6
Un peu trivial mais bon !!!!

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
Private Sub CommandButton1_Click()
 
 
Dim leMontant As Double
Dim nom_champs As String
Dim Ctrl As Control
Dim celluleDonneeFeuille_Caisse As String, celluleDonneeFeuille_Retrait As String
 
For Each Ctrl In UserForm6.Controls
    nom_champs = Ctrl.Name
    leMontant = 0
 
    If Left(nom_champs, 7) = "TextBox" Then
        If Controls(nom_champs).Value <> 0 Then
 
            leMontant = Controls(nom_champs).Value
            Select Case nom_champs
 
                Case "TextBox1"
                    celluleDonneeFeuille_Caisse = "B17"
                    celluleDonneeFeuille_Retrait = "B4"
                Case "TextBox2"
                    celluleDonneeFeuille_Caisse = "C17"
                    celluleDonneeFeuille_Retrait = "B5"
                Case "TextBox3"
                    celluleDonneeFeuille_Caisse = "D17"
                    celluleDonneeFeuille_Retrait = "B6"
                Case "TextBox4"
                    celluleDonneeFeuille_Caisse = "E17"
                    celluleDonneeFeuille_Retrait = "B7"
                Case "TextBox5"
                    celluleDonneeFeuille_Caisse = "F17"
                    celluleDonneeFeuille_Retrait = "B8"
                Case "TextBox6"
                    celluleDonneeFeuille_Caisse = "B21"
                    celluleDonneeFeuille_Retrait = "E4"
                Case "TextBox7"
                    celluleDonneeFeuille_Caisse = "C21"
                    celluleDonneeFeuille_Retrait = "E5"
                Case "TextBox8"
                    celluleDonneeFeuille_Caisse = "D21"
                    celluleDonneeFeuille_Retrait = "E6"
                Case "TextBox9"
                    celluleDonneeFeuille_Caisse = "E21"
                    celluleDonneeFeuille_Retrait = "E7"
                Case "TextBox10"
                    celluleDonneeFeuille_Caisse = "F21"
                    celluleDonneeFeuille_Retrait = "E8"
                Case "TextBox11"
                    celluleDonneeFeuille_Caisse = "G21"
                    celluleDonneeFeuille_Retrait = "E9"
                Case "TextBox12"
                    celluleDonneeFeuille_Caisse = "H21"
                    celluleDonneeFeuille_Retrait = "E10"
                Case "TextBox13"
                    celluleDonneeFeuille_Caisse = "I21"
                    celluleDonneeFeuille_Retrait = "E11"
 
            End Select
 
            Sheets("Caisse").Range(celluleDonneeFeuille_Caisse) = leMontant
            Sheets("Retrait").Range(celluleDonneeFeuille_Retrait) = leMontant
 
        End If
    End If
Next
 
 
 
Unload UserForm6
End Sub

[jpfouquette]

J'ai essayé ton code mais une erreur s'affiche

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Private Sub CommandButton1_Click()
 
 
Dim leMontant As Double
Dim nom_champs As String
Dim Ctrl As Control
Dim celluleDonneeFeuille_Caisse As String, celluleDonneeFeuille_Retrait As String
 
For Each Ctrl In UserForm6.Controls
    nom_champs = Ctrl.Name
    leMontant = 0
 
    If Left(nom_champs, 7) = "TextBox" Then
        If Controls(nom_champs).Value <> 0 Then
 
       >>> Erreur 13 "incompatibilité de type"     leMontant = Controls(nom_champs).Value
            Select Case nom_champs
 
                Case "TextBox1"
                    celluleDonneeFeuille_Caisse = "B17"
                    celluleDonneeFeuille_Retrait = "B4"
                Case "TextBox2"
                    celluleDonneeFeuille_Caisse = "C17"
                    celluleDonneeFeuille_Retrait = "B5"
                Case "TextBox3"
                    celluleDonneeFeuille_Caisse = "D17"
                    celluleDonneeFeuille_Retrait = "B6"
                Case "TextBox4"
                    celluleDonneeFeuille_Caisse = "E17"
                    celluleDonneeFeuille_Retrait = "B7"
                Case "TextBox5"
                    celluleDonneeFeuille_Caisse = "F17"
                    celluleDonneeFeuille_Retrait = "B8"
                Case "TextBox6"
                    celluleDonneeFeuille_Caisse = "B21"
                    celluleDonneeFeuille_Retrait = "E4"
                Case "TextBox7"
                    celluleDonneeFeuille_Caisse = "C21"
                    celluleDonneeFeuille_Retrait = "E5"
                Case "TextBox8"
                    celluleDonneeFeuille_Caisse = "D21"
                    celluleDonneeFeuille_Retrait = "E6"
                Case "TextBox9"
                    celluleDonneeFeuille_Caisse = "E21"
                    celluleDonneeFeuille_Retrait = "E7"
                Case "TextBox10"
                    celluleDonneeFeuille_Caisse = "F21"
                    celluleDonneeFeuille_Retrait = "E8"
                Case "TextBox11"
                    celluleDonneeFeuille_Caisse = "G21"
                    celluleDonneeFeuille_Retrait = "E9"
                Case "TextBox12"
                    celluleDonneeFeuille_Caisse = "H21"
                    celluleDonneeFeuille_Retrait = "E10"
                Case "TextBox13"
                    celluleDonneeFeuille_Caisse = "I21"
                    celluleDonneeFeuille_Retrait = "E11"
 
            End Select
 
            Sheets("Caisse").Range(celluleDonneeFeuille_Caisse) = leMontant
            Sheets("Retrait").Range(celluleDonneeFeuille_Retrait) = leMontant
 
        End If
    End If
Next
 
 
 
Unload UserForm6
End Sub