Bonjour à tous
voici le code d'une listbox située sur un userform
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
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
Je n'y comprend vraiment rien ; quelqu'un aurait une piste ??????
merci d'avance
Partager