Bonjour,
Je me suis mis cette semaine à la programmation pour les nécessités de mon travail. Grâce aux diverses conseils et astuces, j'ai pu grandement avancé mais malheureusement, je bloque depuis hier. Le problème doit être mineur mais n'étant pas encore familier, je m'y perds un peu.
Mon formulaire a pour but l'enregistrement de virement. Il peut y avoir au minimum 2 virements et au maximum 5.
Pour le 1er enregistrement, tout est impeccable. Mais ensuite, les choses se gâtent car le débit et le crédit ne se placent pas au bon endroit.
Si quelqu'un peut m'orienter dans ma démarche ça serait sympa. Je vous remercie par avance.
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
Private Sub CommandButton1_Click()
 
'Erreur identifiant
If Controls("comboBox1") = "" Then
MsgBox "Vous devez entrer un identifiant!", vbExclamation, "ERREUR"
Controls("combobox1").SetFocus
Exit Sub
End If
 
'Erreur budget
If Controls("comboBox2") = "" Then
MsgBox "Vous devez spécifier le budget!", vbExclamation, "ERREUR"
Controls("comboBox2").SetFocus
Exit Sub
End If
 
'Erreur date
If Controls("TextBox1") = "" Then
MsgBox "Vous devez entrer la date!", vbExclamation, "ERREUR"
Controls("TextBox1").SetFocus
Exit Sub
End If
 
'Erreur virement
If Controls("TextBox2") = "" Then
MsgBox "Vous devez entrer le N° de virement!", vbExclamation, "ERREUR"
Controls("TextBox2").SetFocus
Exit Sub
End If
 
'Erreur imputation 1
If Controls("TextBox3") = "" Then
MsgBox "Vous devez spécifier une clé d'imputation!", vbExclamation, "ERREUR"
Controls("TextBox3").SetFocus
Exit Sub
End If
 
'Erreur mouvement 1
If Controls("TextBox22") = "" And Controls("TextBox23") = "" Then
MsgBox "Vous devez spécifier un mouvement!", vbExclamation, "ERREUR"
Controls("TextBox22").SetFocus
Exit Sub
End If
 
'Erreur mouvement 1 bis
If Controls("TextBox22").Value = True And Controls("TextBox23").Value = True Then
MsgBox "Vous devez spécifier un débit ou un crédit par clé d'imputation!", vbExclamation, "ERREUR"
Controls("TextBox22").SetFocus
Exit Sub
End If
 
'Erreur imputation 2
If Controls("TextBox24") = "" Then
MsgBox "Vous devez spécifier au moins deux clés d'imputation!", vbExclamation, "ERREUR"
Controls("TextBox24").SetFocus
Exit Sub
End If
 
'Erreur mouvement 2
If Controls("TextBox25") = "" And Controls("TextBox26") = "" Then
MsgBox "Vous devez spécifier un mouvement!", vbExclamation, "ERREUR"
Controls("TextBox25").SetFocus
Exit Sub
End If
 
'Erreur mouvement 2 bis
If Controls("TextBox25").Value = True And Controls("TextBox26").Value = True Then
MsgBox "Vous devez spécifier un débit ou un crédit par clé d'imputation!", vbExclamation, "ERREUR"
Controls("TextBox25").SetFocus
Exit Sub
End If
 
'Erreur observations
If Controls("optionbutton2").Value = True And Controls("TextBox21") = "" Then
MsgBox "Vous devez renseigner la case observations!", vbExclamation, "ERREUR"
Controls("TextBox21").SetFocus
Exit Sub
End If
 
'Identifiant
Range("H65536").End(xlUp).Offset(1, -7).Value = formulaire.ComboBox1.Text
 
'Date
Range("H65536").End(xlUp).Offset(1, -6).Value = formulaire.TextBox1.Text
 
'Budget
Range("H65536").End(xlUp).Offset(1, -5).Value = formulaire.ComboBox2.Text
 
'N° virement
Range("H65536").End(xlUp).Offset(1, -4).Value = formulaire.TextBox2.Text
 
'Imputation
Range("H65536").End(xlUp).Offset(1, 0).Value = formulaire.TextBox3.Text
Range("H65536").End(xlUp).Offset(1, 0).Value = formulaire.TextBox24.Text
Range("H65536").End(xlUp).Offset(1, 0).Value = formulaire.TextBox27.Text
Range("H65536").End(xlUp).Offset(1, 0).Value = formulaire.TextBox30.Text
Range("H65536").End(xlUp).Offset(1, 0).Value = formulaire.TextBox33.Text
 
'Débit
Range("H65536").End(xlUp).Offset(-4, 3).Value = formulaire.TextBox22.Text
Range("H65536").End(xlUp).Offset(-3, 3).Value = formulaire.TextBox25.Text
Range("H65536").End(xlUp).Offset(-2, 3).Value = formulaire.TextBox28.Text
Range("H65536").End(xlUp).Offset(-1, 3).Value = formulaire.TextBox31.Text
Range("H65536").End(xlUp).Offset(0, 3).Value = formulaire.TextBox34.Text
 
'Crédit
Range("H65536").End(xlUp).Offset(-4, 4).Value = formulaire.TextBox23.Text
Range("H65536").End(xlUp).Offset(-3, 4).Value = formulaire.TextBox26.Text
Range("H65536").End(xlUp).Offset(-2, 4).Value = formulaire.TextBox29.Text
Range("H65536").End(xlUp).Offset(-1, 4).Value = formulaire.TextBox32.Text
Range("H65536").End(xlUp).Offset(0, 4).Value = formulaire.TextBox35.Text
 
Unload Me
 
End Sub