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
| 'Pour le bouton Modifier
Private Sub CommandButton2_Click()
'L'idée est de REMPLIR LE FORMULAIRE DEPUIS LA BASE DE DONNEES
Dim ma_cellule As Range
Dim code As Range
Dim code_test As String
Dim Adresse_ma_celule As String
Dim nb_clic As Integer
Set code = Range("a3:a65000")
'Sélection de la cellule du client auquel on souhaite apporter des modifications
code_test = Application.InputBox("Veuillez inscrire le code du client à modifier.", "Sélection du client à modifier", Type:=2)
Set ma_cellule = code.Cells.Find(What:=code_test, LookAt:=xlWhole, SearchOrder:=xlByRows)
If ma_cellule Is Nothing Then
MsgBox "Entrer un code existant SVP"
Else
' remplir le formulaire
TextBox1.Value = ma_cellule
TextBox2.Value = ma_cellule.Offset(0, 1)
TextBox3.Value = ma_cellule.Offset(0, 2)
TextBox4.Value = ma_cellule.Offset(0, 3)
TextBox5.Value = ma_cellule.Offset(0, 4)
TextBox6.Value = ma_cellule.Offset(0, 5)
TextBox7.Value = ma_cellule.Offset(0, 6)
TextBox8.Value = ma_cellule.Offset(0, 7)
TextBox9.Value = ma_cellule.Offset(0, 8)
TextBox10.Value = ma_cellule.Offset(0, 9)
TextBox11.Value = ma_cellule.Offset(0, 10)
TextBox12.Value = ma_cellule.Offset(0, 11)
nb_clic = 1
'Apporter les modifs
MsgBox ("Veuillez apporter les modifications nécessaires SVP")
'exécuter les modifs
If MsgBox("Confirmez-vous les modifications du contact ? ", vbYesNo, " Demande de confirmation") = vbYes Then
ma_cellule.Value = TextBox1
ma_cellule.Offset(0, 1).Value = TextBox2
ma_cellule.Offset(0, 2).Value = TextBox3
ma_cellule.Offset(0, 3).Value = TextBox4
ma_cellule.Offset(0, 4).Value = TextBox5
ma_cellule.Offset(0, 5).Value = TextBox6
ma_cellule.Offset(0, 6).Value = TextBox7
ma_cellule.Offset(0, 7).Value = TextBox8
ma_cellule.Offset(0, 8).Value = TextBox9
ma_cellule.Offset(0, 9).Value = TextBox10
ma_cellule.Offset(0, 10).Value = TextBox11
ma_cellule.Offset(0, 11).Value = TextBox12
End If
End If
End Sub |
