Retard d'affichage dans Textbox

Bonjour à tous,

Je rencontre depuis deux semaines un problème que je ne comprend pas sur VBA. J'ai un petit programme qui affiche dans une listbox les différents éléments qui ont été utilisés sur une machine donnée (ici il n'y a des données que pour la machine 12) pour une période donnée.
Jusque là aucun problème, mais j'ai parametré le programme pour que quand l'on double clique sur une des ligne de la listbox, une deuxième fenêtre s'ouvre avec des textbox et Listbox qui se remplissent automatiquement avec des données venant à la fois de la fenêtre précédente et des données venant du classeur.
C'est ici que tout se complique, lorsque je double clique une première fois sur une des ligne de la listbox, la deuxième fenêtre s'ouvre bien mais elle est vide. Quand je ferme cette fenêtre et que je double clique une deuxième fois sur la ligne de la listbox alors la fenêtre s'ouvre et est cette fois complétée comme voulue. Un autre problème est que si je décide de cliquer une deuxième fois mais sur une ligne différente, alors la fenêtre s'ouvre mais avec les informations liées à la première ligne sur laquelle j'avais cliqué.

Je ne comprend pas d'où vient cette erreur, j'ai paramètré mon programme pour que quand on double clique sur la première listbox, on ouvre la seconde fenêtre et l'on remplit une première textbox (programme 1) . J'ai ensuite un programme (que je vais appeler programme 2) qui est déclenché par la modification de la valeur de cette Textbox.
Il semblerait de plus que ce soit purement un problème d'affichage car programme 2 utilise la valeur de la textbox complété par programme 1, et en ayant exécuté ma macro pas à pas, je vois que la valeur de cette Textbox n'est pas nulle, la textbox contient bien la valeur voulue et pourtant quand elle s'affiche elle est vide.

Je serait très reconnaissant à quiconque pourra m'apporter un peu d'aide

Bonjour,

A lire et tu comprendras pourquoi tu n'as pas de réponses : règles du forum

Bonjour,

J'ai enlevé ma pièce jointe, vu que j'ai essayé de décrire mon problème.
Merci

bonjour,
il est effectivement utile de bien décrire son problème, mais également de présenter le code et de préciser la ligne qui pose problème afin que les intervenants ne passe pas tout leurs temps à analyser le code.

su tu as un message d'erreur un imprime écran n'es pas superflu!

Bonjour,

Il est difficile de présenter les lignes qui posent problème, car aucun rapport d'erreur ne m'est renvoyé. Voilà comment ma macro fonctionne : quand je double clique sur une ligne de la listbox de mon premier userform, un deuxième userform s'ouvre et est complété automatiquement :

Dans un premier temps le double clique provoque l'ouverture de l'Userform Details_FD et complète une des textBox de l'userform :

Code:

1
2
3
4
Private Sub ListBoxData_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Details_FD.Show
Details_FD.TextBoxFDNumber.Value = Machine_final_dies.ListBoxData.List(ListBoxData.ListIndex, 6)
End Sub

Dans un second temps dès que la Textbox TextBoxFDNumber est modifiée, une macro s'execute et remplie des textbox et des listbox dans mon Userform Details_FD :

Code:

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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
Private Sub TextBoxFDNumber_Change()
 
 
ColumnMDBCreationDate = 2
ColumnMDBCreationHour = 3
ColumnMDBSchedID = 4
ColumnMDBCreatedBy = 5
ColumnMDBMachineNumber = 6
ColumnMDBFDNumber = 7
ColumnMDBOPShift = 8
ColumnMDBProductionWeight = 9
ColumnMDBAccumulatedWeight = 10
ColumnMDBUpdateDate = 11
ColumnMDBUpdateHour = 12
ColumnMDBUpdatedBy = 13
ColumnMDBCompleteDate = 14
ColumnMDBCompleteHour = 15
ColumnMDBCompletedBy = 16
ColumnMDBStatus = 17
ColumnMDBReasonToChange = 18
ColumnMDBRemark = 19
 
ColumnFDDIssueDate = 2
ColumnFDDIssueHour = 3
ColumnFDDSchedID = 4
ColumnFDDMachineNumber = 5
ColumnFDDOperationSize = 6
ColumnFDDFDType = 7
ColumnFDDAccumulatedWeight = 8
ColumnFDDFDNumber = 9
ColumnFDDCompleteDate = 10
ColumnFDDCompleteHour = 11
ColumnFDDCompletedBy = 12
ColumnFDDStatus = 13
ColumnFDDReasonToChange = 14
ColumnFDDRemark = 15
ColumnFDDLocation = 16
 
ColumnAAfficherLine = 53
ColumnAAfficherDate = 54
ColumnAAfficherShift = 55
ColumnAAfficherProductionWeight = 56
ColumnAAfficherBalanceWeight = 57
ColumnAAfficherRemark = 58
ColumnAAfficherCreatedBy = 59
ColumnAAfficherUpdatedBy = 60
 
If Machine_final_dies.ComboBoxMonitoringPeriod.Text = "Past 2 weeks" Then
    DateLimite = DateValue(Format(DateSerial(Year(Date), Month(Date), Day(Date)) - 14, "dd/mm/yyyy"))
ElseIf Machine_final_dies.ComboBoxMonitoringPeriod.Text = "Last month" Then
    DateLimite = DateValue(Format(DateSerial(Year(Date), Month(Date) - 1, Day(Date)), "dd/mm/yyyy"))
ElseIf Machine_final_dies.ComboBoxMonitoringPeriod.Text = "Past 2 months" Then
    DateLimite = DateValue(Format(DateSerial(Year(Date), Month(Date) - 2, Day(Date)), "dd/mm/yyyy"))
ElseIf Machine_final_dies.ComboBoxMonitoringPeriod.Text = "Past 6 months" Then
    DateLimite = DateValue(Format(DateSerial(Year(Date), Month(Date) - 6, Day(Date)), "dd/mm/yyyy"))
ElseIf Machine_final_dies.ComboBoxMonitoringPeriod.Text = "Last year" Then
    DateLimite = DateValue(Format(DateSerial(Year(Date), Month(Date), Day(Date)) - 365, "dd/mm/yyyy"))
End If
 
'On attibue à derligne la dernière ligne du tableau  "MainDatabase"
derligne = ThisWorkbook.Worksheets("MainDatabase").Range("G" & Rows.Count).End(xlUp).Row
derligne2 = ThisWorkbook.Worksheets("MainDatabase").Range("BA" & Rows.Count).End(xlUp).Row
derligne3 = ThisWorkbook.Worksheets("FDdatabase").Range("B" & Rows.Count).End(xlUp).Row
 
'On remplit la case size
For j = 7 To derligne3
    If ThisWorkbook.Worksheets("FDdatabase").Cells(j, ColumnFDDFDNumber).Value = Me.TextBoxFDNumber Then
        If ThisWorkbook.Worksheets("FDdatabase").Cells(j, ColumnFDDMachineNumber).Value = Machine_final_dies.ComboBoxMachineNumber.Text Then
        Me.TextBoxFDSize.Value = ThisWorkbook.Worksheets("FDdatabase").Cells(j, ColumnFDDOperationSize).Value
        End If
    End If
Next j
 
' On remplit la case target
'Me.TextBoxFDTarget.Value = 8.9 * 8900 * (3.14159265358979 / 4) * (CDbl(Me.TextBoxFDSize.Value)) * (CDbl(Me.TextBoxFDSize.Value))
 
 
' ON prepare le tableau que l'on fera ensuite afficher dans les listboxs
ThisWorkbook.Worksheets("MainDatabase").Range("BA3:BH" & derligne2).ClearContents
ThisWorkbook.Worksheets("MainDatabase").Cells(2, ColumnAAfficherLine).Value = "N"
ThisWorkbook.Worksheets("MainDatabase").Cells(2, ColumnAAfficherDate).Value = "Date"
ThisWorkbook.Worksheets("MainDatabase").Cells(2, ColumnAAfficherShift).Value = "Shift"
ThisWorkbook.Worksheets("MainDatabase").Cells(2, ColumnAAfficherProductionWeight).Value = "Production Weight"
ThisWorkbook.Worksheets("MainDatabase").Cells(2, ColumnAAfficherBalanceWeight).Value = "Balance Weight"
ThisWorkbook.Worksheets("MainDatabase").Cells(2, ColumnAAfficherRemark).Value = "Remark"
ThisWorkbook.Worksheets("MainDatabase").Cells(2, ColumnAAfficherCreatedBy).Value = "Created by"
ThisWorkbook.Worksheets("MainDatabase").Cells(2, ColumnAAfficherUpdatedBy).Value = "Updated By"
 
'On affiche les titres dans la premiere toolbox
TabTemp2 = ThisWorkbook.Worksheets("MainDatabase").Range("BA2:BH2").Value
ListBoxtColumnTitles.ColumnCount = 8
ListBoxtColumnTitles.List() = TabTemp2
 
 
'On parcourt notre tableau afin de selectionner les infos concernant la final dies selectionnee
Verification = 0
ligne = 1
ProductionWeight = 0
 
For i = 4 To derligne
 
    derligne2 = ThisWorkbook.Worksheets("MainDatabase").Range("BA" & Rows.Count).End(xlUp).Row + 1
 
    If ThisWorkbook.Worksheets("MainDatabase").Cells(i, ColumnMDBFDNumber).Value = Me.TextBoxFDNumber.Text Then
         If DateDiff("d", DateLimite, DateValue(Format(ThisWorkbook.Worksheets("MainDatabase").Cells(i, ColumnMDBCreationDate).Value, "dd/mm/yyyy"))) > 0 Then
            If ThisWorkbook.Worksheets("MainDatabase").Cells(i, ColumnMDBMachineNumber).Value = Machine_final_dies.ComboBoxMachineNumber.Text Then
                ThisWorkbook.Worksheets("MainDatabase").Cells(derligne2, ColumnAAfficherLine).Value = ligne
                ThisWorkbook.Worksheets("MainDatabase").Cells(derligne2, ColumnAAfficherDate).Value = ThisWorkbook.Worksheets("MainDatabase").Cells(i, ColumnMDBCreationDate).Value
                ThisWorkbook.Worksheets("MainDatabase").Cells(derligne2, ColumnAAfficherShift).Value = ThisWorkbook.Worksheets("MainDatabase").Cells(i, ColumnMDBOPShift).Value
                ThisWorkbook.Worksheets("MainDatabase").Cells(derligne2, ColumnAAfficherProductionWeight).Value = ThisWorkbook.Worksheets("MainDatabase").Cells(i, ColumnMDBProductionWeight).Value
                ThisWorkbook.Worksheets("MainDatabase").Cells(derligne2, ColumnAAfficherBalanceWeight).Value = ThisWorkbook.Worksheets("MainDatabase").Cells(i, ColumnMDBAccumulatedWeight).Value
                ThisWorkbook.Worksheets("MainDatabase").Cells(derligne2, ColumnAAfficherRemark).Value = ThisWorkbook.Worksheets("MainDatabase").Cells(i, ColumnMDBRemark).Value
                ThisWorkbook.Worksheets("MainDatabase").Cells(derligne2, ColumnAAfficherCreatedBy).Value = ThisWorkbook.Worksheets("MainDatabase").Cells(i, ColumnMDBCreatedBy).Value
                ThisWorkbook.Worksheets("MainDatabase").Cells(derligne2, ColumnAAfficherUpdatedBy).Value = ThisWorkbook.Worksheets("MainDatabase").Cells(i, ColumnMDBUpdatedBy).Value
                ligne = ligne + 1
                Verification = 1
                ProductionWeight = ProductionWeight + ThisWorkbook.Worksheets("MainDatabase").Cells(i, ColumnMDBProductionWeight).Value
            End If
        End If
    End If
Next i
 
'Si aucune final dies ne correspond au criteres selectionnes on affiche un message d'erreur
If Verification = 0 Then
    MsgBox "No more information has been found in the machine " + Machine_final_dies.ComboBoxMachineNumber + " for the dies :  " + Me.TextBoxFDNumber
    Exit Sub
End If
 
derligne2 = ThisWorkbook.Worksheets("MainDatabase").Range("BA" & Rows.Count).End(xlUp).Row
'Chargement d'une plage de cellules dans la variable TabTemp
TabTemp = ThisWorkbook.Worksheets("MainDatabase").Range("BA3:BH" & derligne2).Value
'Définit le nombre de colonnes pour la ListBox.
ListBoxData.ColumnCount = 8
'Chargement des tableau dans les ListBox
ListBoxData.List() = TabTemp

Le problème que je rencontre est que lorsque je double clique une première fois sur une ligne de la listBox de mon premier userform, Le second Userform Détails_FD s'ouvre mais les textBox et ListBox présentent sont vides. Ce qui est surprenant c'est si je ferme mon UserBox Details_FD et que je double clique une deuxième fois sur la même ligne de la listBox que lors de la première fois, alors l'userform details_FD s'ouvre et est cette fois ci complété. Je ne comprend pas d'où vient ce "décalage".

Désolé pour le code copié collé en italique, je ne sais pas encore comment insérer proprement son code à la discussion.

Re,

Pour mettre du code dans un sujet utilise les balises [code] [ /code] (sans l'espace entre [ et /
Ou bien le bouton #

Une fois que tu auras mis ton code en forme, ce sera plus simple d'y regarder.

Bonjour,
Mets à False la propriété ShowModal de chacun de ces deux userforms et cela devrait aller mieux.

Merci jeanmidudu, J'ai modifié mon post du coup.

Et merci beaucoup unparia, j'ai modifié la propriété ShowModal pour chacun de mes userforms, ça marche parfaitement maintenant!