bjr forum.
j'ai écris ce code qui me permet de modifier ma BD via une listbox.
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
'permet la modification des anciennes données des élèves
'************************************************************
Private Sub Bt_modif1_Click()
On Error Resume Next
Dim wb As Workbook
Dim i As Integer
 On Error Resume Next
    Application.ScreenUpdating = False
 
        With Sheets("source")
 
            If T_prenoms1 <> "" Or T_sexe1 <> "" Or T_extrait1 <> "" Then
    If MsgBox(" Voulez-vous modifier les reférences de " & T_prenoms1 & "?", vbQuestion + vbYesNo, "MESSAGE DE CONFIRMATION") _
    <> vbYes Then Exit Sub
    i = ListBox2.ListIndex + 2
        .Range("b" & i) = Me.T_prenoms1
        .Range("d" & i) = Me.T_sexe1
        .Range("c" & i) = Me.T_niveauC
        .Range("e" & i) = Me.T_ecoleC
        .Range("f" & i) = Me.T_nationalite1
        .Range("g" & i) = Me.T_date1
        .Range("h" & i) = Me.T_lieu1
        .Range("i" & i) = Me.T_localite1
        .Range("j" & i) = Me.T_extrait1
        .Range("k" & i) = Me.T_lieu_etabli1
        .Range("l" & i) = Me.T_date_etabli1
        .Range("m" & i) = Me.T_sp1
        .Range("n" & i) = Me.T_niveauA
        .Range("o" & i) = Me.T_ecoleA
        .Range("p" & i) = Me.T_dfaA
        .Range("q" & i) = Me.T_niveauD
        .Range("r" & i) = Me.T_ecoleD
        .Range("s" & i) = Me.T_dfaB
        .Range("ac" & i) = Me.T_dossier_extrait
        .Hyperlinks.Add Anchor:=Range("ac" & i), Address:=T_dossier_extrait
        .Range("ab" & i) = Me.T_photo2
        .Range("t" & i) = Me.T_dfaC
        .Range("u" & i) = Me.T_pere1
        .Range("v" & i) = Me.T_metier
        .Range("w" & i) = Me.T_mere1
        .Range("x" & i) = Me.T_metier1
        .Range("y" & i) = Me.T_contact0
        .Range("a" & i) = Me.T_matricule
 
 
 
      MsgBox " Les références de l'élève " & T_prenoms1 & " ont été mise à jour.Vous pouvez continuer les modifications", vbInformation
      End If
  End With
 
   'ListBox2.Clear
 
    Label311.Caption = ""
        Me.Image4.Picture = Nothing
        T_prenoms1 = ""
        T_sexe1 = ""
        T_date1 = ""
        T_lieu1 = ""
        T_nationalite1 = ""
        T_localite1 = ""
        T_extrait1 = ""
        T_date_etabli1 = ""
        T_lieu_etabli1 = ""
        T_sp1 = ""
        T_niveauA = ""
        T_ecoleA = ""
        T_dfaA = ""
        T_niveauD = ""
        T_ecoleD = ""
        T_dfaB = ""
        T_niveauC = ""
        T_ecoleC = ""
        T_dfaC = ""
        T_metier = ""
        T_metier1 = ""
        T_pere1 = ""
        T_mere1 = ""
        T_contact0 = ""
        t_dossier_exrait = ""
        T_photo2 = ""
        T_matricule = ""
        Label74 = ""
 
        'rafraichir le tableau
 
                  TBlBD = [tab_1].Value 
  Me.ListBox2.List = TBlBD
     Me.ListBox2.ColumnCount = [tab_1].Columns.Count
        Me.ListBox2.ColumnWidths = "80;150;100;100;100;100;100;100;100;100;100;100;100;100;100;100;100;100;80;100;150;100;150;100;85;85;85;100"
 
 
 
End Sub
au debut ça fonctionnait mais apres plusieurs saisies, la modification ne s'opère plus. je n'arrive pas à comprendre le dysfonctionnement. quelqu'un pourrait m'expliquer le pourquoi?
aussi est_il que je souhaiterais savoir comment rafraichir la listbox apres une modif car moi je suis obligé de passer par la réinitialisation avec le code source comme dans CE
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
    TBlBD = [tab_1].Value 
  Me.ListBox2.List = TBlBD
     Me.ListBox2.ColumnCount = [tab_1].Columns.Count
        Me.ListBox2.ColumnWidths = "80;150;100;100;100;100;100;100;100;100;100;100;100;100;100;100;100;100;80;100;150;100;150;100;85;85;85;100"
MERCI POUR VOTRE AIDE