Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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
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
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
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.