Affichage de données au format heure dans une listBox

Version imprimable

Bonjour à tous,

Je rencontre deux problèmes avec un de mes projets VBA que je n'arrive pas à résoudre. Dans un userform, j'ai deux listBox multicolonnes, ces deux listBox sont remplies chacun leur tour quand on appuie sur un Commandbouton . Le remplissage des Listboxs a été programmé assez simplement, quand on appuie sur le Commandbouton les données qui m'intéressent sont placées dans un tableur excel, dont je determine automatiquement par la suite la dernière ligne non-vide, puis j'affiche dans la ListBox les données stockées à l'aide du code :
Code:

1 2 3 4 5 6 'Chargement d'une plage de cellules dans la variable TabTemp TabTemp = Dies_Orders_Database.Worksheets("OrderDatabase").Range("B" & Premiereligne & ":N" & DerniereLigne).Value 'Définit le nombre de colonnes pour la ListBox. ListBox2.ColumnCount = 13 'Chargement du tableau dans la ListBox ListBox2.List() = TabTemp
Je rencontre alors deux problèmes :

- Le premier est qu'une des colonnes du tableau affiché dans la listBox contient des heures (qui sont au format heure dans le tableau). À l'affichage dans la ListBox, ces heures sont automatiquement mises au format numériques ce qui n'a plus de sens.

- Le second est que pour mon autre Listbox qui est remplie de manière similaire, seulement les deux premières colonnes de ma ListBox sont remplies, les autres sont vides, alors que le tableau qui contient les données à afficher contient lui des valeurs pour les autres colonnes.

Quelqu'un aurait-il une idée pour résoudre ça?
Je serait très reconnaissant à quiconque pourra m'apporter un peu d'aide

19/09/2016, 07h46
unparia
Bonjour
cela ne t'arriverait pas si tu te servais normalement et directement de ce que t'offre Excel.
Essaye ceci (sans ton tableau) :
Code:

1 2 ListBox2.ColumnCount = 13 listBox2.rowsource = "OrderDatabase!B" & premiere & ":N" & derniere
19/09/2016, 08h44
ArtistePeintredu44
Bonjour unparia,

J'ai remplacé mon code par ce que tu m'as donné :
Code:

1 2 3 ListBox2.ColumnCount = 13 'Chargement du tableau dans la ListBox ListBox2.RowSource = "OrderDatabase!B" & Premiereligne & ":N" & DerniereLigne"
Cela règle mes deux problèmes, merci beaucoup, cependant un nouveau problème apparait.
Le remplissage de ma deuxième listBox est déclenché, soit par le remplissage d'une TextBox puis l'appuie sur un Commandbouton (dans ce cas la macro fait des recherches dans ma base de donnée par rapport au numéro de commande qui a été tapé dans la TextBox), soit par un double-clique sur une des lignes de ma première ListBox (dans ce cas la macro fait des recherches dans ma base de donnée par rapport au numéro de commande qui est dans la seconde colonne de la ligne sélectionnée de la ListBox). Quand je procède avec la première méthode ça marche parfaitement, mais quand je double clique sur une des ligne de ma listBox cela me renvoie "Impossible de lire la propriété List. Mémoire insuffisante pour cette opération". Cela est d'autant plus surprenant que l'opération fonctionnait avant de changer ces lignes de code. Voici la ligne qui est surinée et qui pose à priori problème :

Code:

DiesNumber = Monitoring_orders_2.ListBox1.List(ListBox1.ListIndex, 1)

Une idée de ce qui bloque?
19/09/2016, 08h53
unparia

Je ne vois pas le rapport entre ta question objet de l'ouverture de cette discussion (traitement de listbox2 pour "affichage des données en format heure" - ton titre -) et cette nouvelle question qui concerne listbox1. En te rappelant qu'une discussion ne doit concerner qu'une difficulté.
Si ta première question est RESOLUE, discussion à libérer.
19/09/2016, 09h05
ArtistePeintredu44

Dans la discussion initiale le problème d'affichage d'heure concernait ListBox2, le problème d'affichage incomplet des colonnes dans la listBox concernait ListBox1. Les deux problèmes que j'avais annoncé sont résolus, mais la modification de mon code a créé un autre problème que je n'avais pas avant et qui concerne ListBox2, voilà pourquoi j'en parle sur cette discussion. Je peux néanmoins créer une autre discussion si nécéssaire.

À l'ouverture de mon Userformn ListBox1 se complète automatiquement alors que ListBox2 reste vide. Comme je l'expliquais dans mon précédent message le remplissage de ListBox2 est déclenché soit par le remplissage d'une textbox puis l'appuie sur un bouton, soit par un double clique sur une des lignes de ListBox1. Quand je procède avec la première méthode ça marche toujours, mais quand je double clique sur une des ligne de ma listBox cela me renvoie "Impossible de lire la propriété List. Mémoire insuffisante pour cette opération". Cela est d'autant plus surprenant que l'opération fonctionnait avant de changer ces lignes de code. Voici la ligne qui est surlignée et qui pose à priori problème :

Code:

DiesNumber = Monitoring_orders_2.ListBox1.List(ListBox1.ListIndex, 1)
19/09/2016, 11h05
unparia

Citation:

Quand je procède avec la première méthode ça marche toujours, mais quand je double clique sur une des ligne de ma listBox cela me renvoie "Impossible de lire la propriété List. Mémoire insuffisante pour cette opération"

Montre ce code (depuisPrivate Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) jusqu'à End sub inclus)
et montre également celui d'utilisation de ta textbox, ce qui nous permettra de comprendre ce que tu veux faire

Voici la première méthode, celle qui est déclenchée par l'appuie sur le CommandButton et qui fonctionne :

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
Private Sub CommandButton2_Click()
 
' Pour rendre notre code lisible, on donne un nom aux colonnes clées de "OrderDatabase"
ColumnODBNumber = 1
ColumnODBCreationDate = 2
ColumnODBCreationHour = 3
ColumnODBOrderNumber = 4
ColumnODBSchedID = 5
ColumnODBOPSize = 7
ColumnODBFiliereSize = 8
ColumnODBWiretype = 9
ColumnODBAcheveurSize = 10
ColumnODBChangeOrderType = 11
ColumnODBRemark = 12
ColumnODBStatus = 13
ColumnODBLocation = 14
 
ColumnCMOCreationDate = 2
ColumnCMOOrderNumber = 3
ColumnCMOSchedID = 4
ColumnCMOMachineNumber = 5
ColumnCMOChangeOrderType = 6
ColumnCMOStatus = 7
 
'On vérifi
If Me.TextBox_DiesNumber.Value = "" Then
    MsgBox "Please fil out the order number field"
    Exit Sub
End If
 
Application.ScreenUpdating = False
'On ouvre en lecture seule notre base de donnée
Set Dies_Orders_Database = Workbooks.Open("\\192.168.100.2\Dies VBA module\Databases\Dies orders database.xlsx", UpdateLinks:=False, ReadOnly:=True)
'On attibue à derligne la dernière ligne non vide du tableau  "OrderDatabase"
derligne = Dies_Orders_Database.Worksheets("OrderDatabase").Range("M" & Rows.Count).End(xlUp).Row
 
'On parcourt notre base de donnée à la recherche des lignes concernant le numéro de commande de notre TextBox
 
Premiereligne = 0
DerniereLigne = 0
 
For i = 4 To derligne
   If Dies_Orders_Database.Worksheets("OrderDatabase").Cells(i, ColumnODBOrderNumber).Value = Me.TextBox_DiesNumber.Text _
   And Premiereligne = 0 Then
        Premiereligne = i
        DerniereLigne = i
    ElseIf Dies_Orders_Database.Worksheets("OrderDatabase").Cells(i, ColumnODBOrderNumber).Value = Me.TextBox_DiesNumber.Text Then
        DerniereLigne = i
    End If
Next i
 
If Premiereligne = 0 Then
    Dies_Orders_Database.Close SaveChanges:=False
    Application.ScreenUpdating = True
    MsgBox "There is no order number : " + Me.TextBox_DiesNumber.Value + " in our Order database"
    Exit Sub
End If
 
ListBox2.ColumnCount = 13
ListBox3.ColumnCount = 13
'Chargement du tableau dans la ListBox
ListBox2.RowSource = "OrderDatabase!B" & Premiereligne & ":N" & DerniereLigne
ListBox3.RowSource = "OrderDatabase!titres1"
'On définit la taille des différentes colonnes de nos ListBoxs
Monitoring_orders_2.ListBox2.ColumnWidths = "80;80;64;64;64;64;80;64;80;80;80;64;64;64"
Monitoring_orders_2.ListBox3.ColumnWidths = "80;80;64;64;64;64;80;64;80;80;80;64;64;64"
 
Dies_Orders_Database.Close
Application.ScreenUpdating = True
 
End Sub

Et voilà la méthode qui est déclenchée par le double-clique et qui semble être défectueuse. Le code est quasi identique, j'ai souligné les deux lignes qui diffèrent vraiment :

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
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Application.ScreenUpdating = False
Set Dies_Orders_Database = Workbooks.Open("\\192.168.100.2\Dies VBA module\Databases\Dies orders database.xlsx", UpdateLinks:=False, ReadOnly:=True)
' On récupère le numéro de commande de la ligne sélectionnée dans la ListBox1
DiesNumber = Monitoring_orders_2.ListBox1.List(ListBox1.ListIndex, 1)
Me.TextBox_DiesNumber.Value = DiesNumber


' Pour rendre notre code lisible, on donne un nom aux colonnes clées de "OrderDatabase"
ColumnODBNumber = 1
ColumnODBCreationDate = 2
ColumnODBCreationHour = 3
ColumnODBOrderNumber = 4
ColumnODBSchedID = 5
ColumnODBOPSize = 7
ColumnODBFiliereSize = 8
ColumnODBWiretype = 9
ColumnODBAcheveurSize = 10
ColumnODBChangeOrderType = 11
ColumnODBRemark = 12
ColumnODBStatus = 13
ColumnODBLocation = 14

ColumnCMOCreationDate = 2
ColumnCMOOrderNumber = 3
ColumnCMOSchedID = 4
ColumnCMOMachineNumber = 5
ColumnCMOChangeOrderType = 6
ColumnCMOStatus = 7


'On attibue à derligne la dernière ligne non vide du tableau  "OrderDatabase"
derligne = Dies_Orders_Database.Worksheets("OrderDatabase").Range("M" & Rows.Count).End(xlUp).Row

Premiereligne = 0
DerniereLigne = 0

For i = 4 To derligne
   If Dies_Orders_Database.Worksheets("OrderDatabase").Cells(i, ColumnODBOrderNumber).Value = DiesNumber And Premiereligne = 0 Then
        Premiereligne = i
        DerniereLigne = i
    ElseIf Dies_Orders_Database.Worksheets("OrderDatabase").Cells(i, ColumnODBOrderNumber).Value = DiesNumber Then
        DerniereLigne = i
    End If
Next i

'Si aucun numéro de commande ne correspond dans notre base de donnée on renvoie un rapport d'erreur
If Premiereligne = 0 Then
    Dies_Orders_Database.Close SaveChanges:=False
    Application.ScreenUpdating = True
    MsgBox "There is no order number : " + DiesNumber + " in our Order database, go find Mathieu"
    Exit Sub
End If

'Définit le nombre de colonnes pour la ListBox.
ListBox2.ColumnCount = 13
ListBox3.ColumnCount = 13
'On affiche nos données dans les ListBoxs
ListBox2.RowSource = "OrderDatabase!B" & Premiereligne & ":N" & DerniereLigne
ListBox3.RowSource = "OrderDatabase!titres1"

Monitoring_orders_2.ListBox2.ColumnWidths = "70;80;64;54;64;74;90;64;90;90;80;64;54;54"
Monitoring_orders_2.ListBox3.ColumnWidths = "70;80;64;54;64;74;90;64;90;90;80;64;54;54"

Dies_Orders_Database.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub

19/09/2016, 11h58
unparia

Ce que tu montres n'a absolument rien à voir (j'insiste) avec le fait que tu utilises rowsource pour d'autres listboxes.
Si, par contre, ta listbox1 ne contient qu'une colonne, ma foi ... elle ne risque pas d'être de rang 1, qui est de trop dans :

Code:

DiesNumber = Monitoring_orders_2.ListBox1.List(ListBox1.ListIndex, 1)

===>>

Code:

DiesNumber = Monitoring_orders_2.ListBox1.List(ListBox1.ListIndex)

Je répète donc : deux questions très différentes pour deux difficultés bien distinctes. Evite cela. J'ai accepté cette fois-ci, mais je ne l'accepte généralement pas.
19/09/2016, 12h05
ArtistePeintredu44

Surprenant car avant que je ne modifie le code, cela fonctionnait bien. Non ma ListBox contient 6 colonnes et je vise bien la seconde colonne de ma ligne sélectionnée en tapant :

Code:

DiesNumber = Monitoring_orders_2.ListBox1.List(ListBox1.ListIndex, 1)

Je vais essayer de procéder autrement.
Ok, pour moi il y avait un lien car la résolution du premier problème entrainait ce nouveau problème mais c'est noté je ferai attention la prochaine fois.
Merci Unparia
19/09/2016, 12h54
unparia

Il fallait voir la tête de mécanicien auquel j'ai dit avec le plus grand sérieux qu'étant donné que je constatais que l'une des bougies de mon véhicule ne donnait plus d'étincelles depuis que j'avais changé une roue après crevaison, j'en déduisais que le changement de roue était le responsable de cette nouvelle panne !
20/09/2016, 08h30
ArtistePeintredu44

Ok, j'ai bien compris, je vais ouvrir une autre discussion.
Merci