Discussion :

[armand5445]

Bonjour à tous, étant débutant en VBA,

1) je n'arrive pas à mettre 2 colonnes ( B et G) de la listbox (voir code ci-dessous) au format personnalisé (0) alors qu'il est dans le fichier:
journée27 (11) Nîmes - Rennes (8)

Code de L'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
Private Sub UserForm_Initialize()
Set f = Sheets("mretard")
Tbl1 = f.Range("D11:I" & f.[A65000].End(xlUp).Row).Value
n = 0
For i = 1 To UBound(Tbl1)
    If Tbl1(i, 1) <> "" Then n = n + 1
Next i
j = 0
Dim Tbl2: ReDim Tbl2(1 To n, 1 To UBound(Tbl1, 2))
For i = 1 To UBound(Tbl1)
    If Tbl1(i, 1) <> "" Then j = j + 1: For k = 1 To UBound(Tbl1, 2): Tbl2(j, k) = Tbl1(i, k): Next k
Next i
ListBox1.BackColor = RGB(160, 192, 64)
Me.ListBox1.List = Tbl2
End Sub

2) Réduire la hauteur de la listbox et de l'userform en fonction du nombre de lignes insérées dans la listbox

En vous remerciant beaucoup

[Algoplus]

Bonjour,


Les 2 colonnes ( B et G) de la listbox correspondent-elles aux indices 2 et 7 de la dimension 2 de Tb2 ?

a priori oui , mais ....

Modifier cette boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For k = 1 To UBound(Tbl1, 2): Tbl2(j, k) = Tbl1(i, k): Next k

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For k = 1 To UBound(Tbl1, 2)
     If k = 2 Or k = 7 then 
          Tbl2(j, k) = Format(Tbl1(i, k),"(#)") 
     Else
          Tbl2(j, k) = Tbl1(i, k)
     End If
Next k

Pour adapter la hauteur de l'userform et de la listbox définir leur propriété Height en fonction du nombre d'éléments de la listbox (propriété ListCount)
Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.Height = 10 * ListBox1.ListCount

A+