trouble avec listbox trop long dans row

[Dennnisss]

salut a tous

J'ai eu de l'aide de robert qui m'a aider a realiser cette usf il va tres bien et maintenant je suis rendu a ameliorer sa performance
j'ai un usf qui donne trop de cellule dans le row j'en ai besoin de seulement 120 et meme si j'ai specifier d'arrete a 120 il descend quand meme a la fin

Et aussi vous remarquerer que j'ai besoin de 6 element du cote horizontal et il arrete seulement a 5 element j'ai essayer d'en additionner j'ai reussi seulemment sur les textbox j'en ai 6

donc j'aimerais afficher le moyenne qui elle ne veut pas apparaitre dans le listbox

alors j'ai besoin de votre aide messieurs,dames

merci dennnisss😕 😕

 

[excalibur]

Re : trouble avec listbox trop long dans row

bonjour Dennnisss le forum dans proprietes de ta listbox colomncount = 6
salutations
pour la 1 qst peut etre comme cela
Set plage = .Range("B5:b" & .Range("B65536").End(xlUp).Row)
tu peus aussi simplifier
Private Sub userform_initialize()
WebBrowser1.Navigate "C:\gif\blocnote.Gif"
Dim tablo As Variant
tablo = Range("b5:g" & Range("b65536").End(xlUp).Row)
ListBox1.List = tablo
End Sub
'attention dans proprietes de ta listbox ne pas oublier
'ColumnCount = 6 'ColumnWidths = "30;30;30;30;40;150"

'ou pour ne pas changer dans proprietes listbox

Private Sub userform_initialize()
WebBrowser1.Navigate "C:\gif\blocnote.Gif"
Dim tablo As Variant
tablo = Range("b5:g" & Range("b65536").End(xlUp).Row)
ListBox1.List = tablo
With Controls("ListBox1")
.ColumnCount = 6
.ColumnWidths = "30;30;30;30;150;40"
End With
End Sub'resalutations

 

[Dennnisss]

Re : trouble avec listbox trop long dans row

merci beaucoup excalibur

c,est ok maintenant ca marche et je vient d,apprendre autre chose de nouveau moi qui cherchait dans mes variables

merci encore

dennnisss😉 😱 😱

maintenant j'ai trouver sur le site une facon que mdf a creer pour mettre de la couleur dans le listbox
j'ai fait parvenir son petit programme que je vais etudie et essayer de decortiquer par la suite je vais vous consulter


merci encore excalibur

dennnisss