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 l’insertion de ce nouveau contact ? ", vbYesNo, " Demande de confirmation d’ajout ") = 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