LISTBOX

Lone-wolf

XLDnaute Barbatruc

• 2 Août 2018

• #2

Bonjour madgicbobbyboon

Je ne sais pas ce qui ce passe avec ton fichier. Essaie d'en créer un nouveau pour voir, chez moi non plus il n'y a rien d'inscrit.

 

Vote positif 0 Vote négatif

M

madgicbobbyboon

XLDnaute Junior

• 2 Août 2018

• #3

Voila

 

Pièces jointes

• Attestation de sauveteur secouriste au travail(essai)3.xlsm

  47.1 KB · Affichages: 20

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 2 Août 2018

• #4

Salut à tous,
L'initalize se fait sur userform1 et non userform2
il faut double cliquer sur userform2 et choisir initialize
Private Sub UserForm_Initialize()
With ListBox1
.ColumnHeads = True
.ColumnCount = 7
.ColumnWidths = "80 pt;100 pt;80 pt"
.List = Feuil2.Range("A3:G" & Cells(Rows.Count, 1).End(xlUp).Row).Value
End With
End Sub

Bruno

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 2 Août 2018

• #5

Re

Ton fichier en retour. La ligne RowSource était mal écrite.

EDIT: bonjour Bruno 🙂

 

Pièces jointes

• Attestation de sauveteur secouriste au travail.xlsm

  45.4 KB · Affichages: 24

Vote positif 0 Vote négatif

Kantarus

XLDnaute Nouveau

• 2 Août 2018

• #6

Bonjour Madgic et Lone
Je sais pas pour ton problème, mais merci car grâce à ton fichier j'ai réussi à régler mon souci... Encore merci

 

Vote positif 0 Vote négatif

M

madgicbobbyboon

XLDnaute Junior

• 2 Août 2018

• #7

Merci..je vais pouvoir avancé 🙂
encore merci

 

Vote positif 0 Vote négatif

M

madgicbobbyboon

XLDnaute Junior

• 2 Août 2018

• #8

Re

Savez vous comment fait on pour calculer la taille des colonnes dans la listbox ?

Merci

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 2 Août 2018

• #9

Re

@madgicbobbyboon : tu ne peux pas la calculer, tout dépend de la largeur des colonnes de la feuille.

Ton fichier en retour

 

Pièces jointes

• Attestation de sauveteur secouriste au travail.xlsm

  48 KB · Affichages: 19

Dernière édition: 2 Août 2018

Vote positif 0 Vote négatif

M

madgicbobbyboon

XLDnaute Junior

• 3 Août 2018

• #10

Ok merci.
J'ai reussi a gerer la Listbox.
Maintenant est-il possible de supprimer cette scrollbar horizontale ?
J'ai essayé de magouiller avec les valeurs des colonnes mais pff

Merci

 

Pièces jointes

• Attestation de sauveteur secouriste au travail(essai)4.xlsm

  56.8 KB · Affichages: 19

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 3 Août 2018

• #11

Salut bien,
remplace par ceci en
.ColumnWidths = "80;100;80;105;60"
Bruno

 

Vote positif 0 Vote négatif

M

madgicbobbyboon

XLDnaute Junior

• 3 Août 2018

• #12

Bonjour Youky

Malheureusement la scrollbar horizontale est toujours présente.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 3 Août 2018

• #13

Va en propriété de listbox1 et supprime ce qu'il y a en columnwidths
si ca marche toujours pas voici ton fichier qui marche
Bruno

 

Pièces jointes

• Attestation de sauveteur secouriste au travail(essai)4.xlsm

  52.5 KB · Affichages: 29

Vote positif 0 Vote négatif

M

madgicbobbyboon

XLDnaute Junior

• 3 Août 2018

• #14

Malgré avoir supprimé cela ne fonctionne pas .
merci pour le fichier.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 3 Août 2018

• #15

Bonjour,

cf PJ

Code:

Option Explicit
Dim f
Private Sub UserForm_Initialize()
Set f = Sheets("base")
With Me.ListBox1
.ColumnHeads = True
.ColumnCount = 7
.ColumnWidths = "60;60;60;60;0;0;0"
.RowSource = f.Range("a3:g" & [A65000].End(xlUp).Row).Address
End With
End Sub

jb

 

Pièces jointes

• Attestation de sauveteur secouriste au travail(essai)3-1 (Récupéré).xlsm

  45.9 KB · Affichages: 24

Vote positif 0 Vote négatif