Bonjour à tous

voici le code d'une listbox située sur un userform

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
 
Private Sub Box1_Change()
 
Dim col As Integer, dateDeb As String, dateFin As Date, compteur As Integer, Durée As Integer, DateD As Date, ColD As Integer
 
    With Sheets("Planning")
 
        dateDeb = Box1.Value
        DateD = CDate(dateDeb)
        Durée = CLng(Me.TextBox2.Text)
 
            For ColD = 5 To 131
 
                If DateD = .Cells(2, ColD) Then
                GoTo suite
                End If
 
            Next ColD
 
suite:
        col = ColD
        Durée = Durée * 2
 
            For col = ColD To 131
 
                If .Cells(2, col).Interior.Color = &HFFFFFF And compteur < Durée Then
 
                    compteur = compteur + 1
 
                ElseIf Durée = compteur Then
 
 'Lechapitre qui pêche!!!!!
 
                    If .Cells(2, col - 1) = "" Then
                        Me.TextBox1.Text = .Cells(2, col - 2) & " " & "AM"
                    ElseIf .Cells(2, col - 1) <> "" Then
                        Me.TextBox1 = .Cells(2, col - 1) & " " & "PM"
                    End If
 
                End If
 
            Next col
 
    End With
 
End Sub
si je contrôle le code pas à pas, aucun problème : la valeur de la cellule .Cells(2,col ou col - 1) est bien inscrite dans la textbox1 avec AM ou PM selon le cas, mais si j'exécute le code normalement, seul AM ou PM sont inscrit dans la textbox1

Je n'y comprend vraiment rien ; quelqu'un aurait une piste ??????

merci d'avance