bonsoir
lors du lancement de mon userform et que je sélectionne la fiche
cela bug a la ligne "ComboBox2 = Ws.Cells(Ligne, "B")" je comprend pas
pouvez vous m'aider
merci 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 Option Explicit Dim Ws As Worksheet 'Pour le bouton Nouveau contact Private Sub CommandButton1_Click() Dim L As Integer If MsgBox(" Confirmez-vous linsertion de ce nouveau contact ? ", vbYesNo, " Demande de confirmation dajout ") = vbYes Then L = Sheets("Donné responsable").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide Range("A" & L).Value = ComboBox1 Range("B" & L).Value = ComboBox2 Range("C" & L).Value = TextBoxSITE Range("D" & L).Value = TextBoxFONCTION Range("E" & L).Value = TextBoxTELFIXE Range("F" & L).Value = TextBoxTELMOB Range("G" & L).Value = TextBoxTELFAX Range("H" & L).Value = TextBoxEMAIL End If End Sub Private Sub ComboBox1_Change() Dim Ligne As Long Dim I As Integer If Me.ComboBox1.ListIndex = -1 Then Exit Sub Ligne = Me.ComboBox1.ListIndex + 2 ComboBox2 = Ws.Cells(Ligne, "B") For I = 1 To 7 Me.Controls(" TextBox " & I) = Ws.Cells(Ligne, I + 2) Next I End Sub 'Pour le bouton Modifier Private Sub CommandButton2_Click() Dim Ligne As Long Dim I As Integer If MsgBox(" Confirmez-vous la modification de ce contact ? ", vbYesNo, " Demande de confirmation de modification ") = vbYes Then If Me.ComboBox1.ListIndex = -1 Then Exit Sub Ligne = Me.ComboBox1.ListIndex + 2 Ws.Cells(Ligne, " B ") = ComboBox2 For I = 1 To 7 If Me.Controls(" TextBox " & I).Visible = True Then Ws.Cells(Ligne, I + 2) = Me.Controls(" TextBox " & I) End If Next I End If End Sub Private Sub CommandButton3_Click() Unload Me End Sub
Partager