Ajout d'une fonction en VBA

Version imprimable

1 pièce(s) jointe(s)

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:

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 :)

Bonjour,

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

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

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

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

10/12/2012, 20h38
AlainTech
Bonjour,

Incompatibilité de type veut dire que tu essayes de mettre du texte dans une variable Double.

De plus, tu disposes d'un objet Control (Ctrl) pourquoi repasses-tu par son Name?
Code:

1 2 If Ctrl.Value <> 0 Then leMontant = CDbl(Ctrl.Value)
11/12/2012, 11h01
jpfouquette

Pourrais-tu m'expliquer un peu plus ?
Désolé mais avant ce classeur je n'avais jamais touché à du vba je suis donc un archi débutant
11/12/2012, 22h01
AlainTech
Bonjour,

Code:

For Each Ctrl In UserForm6.Controls

Avec cette boucle, à chaque tour, tu vas créer un objet nommé Ctrl qui pointera vers un des Controls de ton UserForm.

Cet objet a toutes les propriétés du contrôle vers lequel il pointe.
Entre autres, ses propriétés Name et Value.
Tu peux donc remplacer ces 2 lignes
Code:

1 2 nom_champs = Ctrl.Name If Left(nom_champs, 7) = "TextBox" Then
par

Code:

If Left(Ctrl.Name, 7) = "TextBox" Then

puis utiliser les 2 lignes que je t'ai données dans le message précédent.

La variable nom_champs devient donc inutile.

Pour info, la fonction CDbl convertit un texte numérique en Double.