g crée une liste de client et lorsque je rajoute un nouveau client, il ne se met pas dans ma liste. donc pour le faire apparaitre dans la listbox, j'arrete le programme et je le relance.
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
 
Private Sub EffacerClient_Click() ' lorsque l'on efface
Dim x1 As Byte
If NumClientSel <> 0 Then
    x1 = MsgBox("etes vous sur de vouloir suppriper le client " & Sheets("clients").Cells(NumClientSel, 1) & "?", vbYesNo + vbCritical, "suppression client")
    If x1 = vbYes Then
        Sheets("clients").Cells(NumClientSel, 8) = "oui"
        UserForm_Initialize
    End If
Else
    MsgBox "Sélectionner un client"
End If
 
End Sub
 
Private Sub Enregistrer_Click()
Application.SaveWorkspace
 
End Sub
 
Private Sub Label18_Click()
 
End Sub
 
Private Sub ListBox1_Click() 'lorsque l'on clic sur un client ds la liste
'ListBox1.BoundColumn = 1
clientAff (Me.ListBox1.Value)
NumClientSel = Me.ListBox1.Value
End Sub
 
 
Private Sub TextBox1_Change()
 
End Sub
 
Private Sub Règlement_Change()
 
End Sub
 
Private Sub txtAdresse_Change()
 
End Sub
 
Private Sub txtHTE_Change()
txtHTE = ActiveWorkbook.Sheets(Feuil1).cell("E1")
End Sub
 
Private Sub UserForm_Initialize()
Dim i, j As Long
ListBox1.Clear
ListBox1.BoundColumn = 2 ' numero de de colonne lié (pour la valeur retournée par listbox.value)
i = 2 ' compteur de ligne clients (numéro de client)
j = 0 ' compteur de ligne de listbox
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "3 cm;1 cm" ' largeur des colones a l'affichage
 
Do While Sheets("clients").Cells(i, 1) <> ""
    If Sheets("clients").Cells(i, 8) <> "oui" Then
        ListBox1.AddItem Sheets("clients").Cells(i, 1)
       ListBox1.Column(1, j) = i
        j = j + 1
    Else
        'rien
    End If
    i = i + 1
 
 Loop