LISTBOX

madgicbobbyboon

XLDnaute Junior
Bonjour,

Je cherche a mettre dans ma listbox les colonnes de a3 à G de la feuille "Base".
Malgré les différentes recherches..rien ne se passe :(

D'avance merci
 

Pièces jointes

  • Attestation de sauveteur secouriste au travail(essai)3.xlsm
    45.8 KB · Affichages: 41

youky(BJ)

XLDnaute Barbatruc
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
 

madgicbobbyboon

XLDnaute Junior
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

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
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

Discussions similaires

Réponses
33
Affichages
2 K
Réponses
10
Affichages
936

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG