bonsoir le forum j'ai encor besoin de votre aide SVP
j'ai un userform avec les textbox listbox et des Labels qui se chargent de depuis la feuil "TEST" de la ligne (A2:E2)= a l'entête du tableau de la feuil "TEST" de mon classeur et composer de 5 colone .
quand les lignes (A3:E) sont remplie de données au démarrage de userforme les Labels se remplissent normal
mais le problème qui se pose quand les lignes (A3:E) elles son vides au démarrage de userforme les Labels ne se remplissent pas et voila le code:
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 Set f = Sheets("TES") Me.ComboBox3.List = Array("Tom", "Mani", "Ramv") If f.[B3] = "" Then Exit Sub bv = f.Range("a3:f" & [A65000].End(xlUp).Row).Value If f.Range("a3") = "" Then bv = f.Range("a3:f3") For i = 1 To UBound(bv, 2) - 1 temp = temp & f.Columns(i).Width * 0.62 & ";" Me("label" & i) = f.Cells(2, i) ' = label liste box Me("label" & i + 19) = f.Cells(2, i) ' = label textbox.. Me("label" & i).Top = Me.ListBox1.Top - 15 Largeur = Largeur + f.Columns(i).Width * 1 Next Me.ListBox1.ColumnWidths = temp: Me.Width = Largeur - 128 Me.ListBox1.List = bv End Sub
merci et excellent nuit tt le monde
Partager