Re : Afficher Nom de Colonnes dans ListBox d'un Usf
Bonjour Paritec, et re BrunoM45
A ZUT J'AI PAS MIS LE CODE EN QUESTION SUR MON PREMIER
MESSAGE ?QUEL ANE QUE JE SUIS
Le voici
Private Sub UserForm_Initialize()
With TextBox1 ''''Empêche la saisie , les noms s'affiche en grisé
.Value = ""
.Enabled = False
End With
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = False
CommandButton3.Visible = False
CommandButton1.Visible = False
Label1.Visible = False
TextBox1 = Date
''*************
Dim Rng As Range
With Worksheets("Data")
Set Rng = .Range("A10:AC" & .Range("A65536").End(xlUp).Row) 'z
End With
With ComboBox1
L = Rng.Columns.Count
.ColumnCount = Rng.Columns.Count
.List = Rng.Value
End With
With UsfGestionFactures.ListBox1
L = Rng.Columns.Count
.ColumnCount = Rng.Columns.Count
.ColumnWidths = "40;40;60;60;60;60;60;60;60;60;60;40;40"
.List = Rng.Value
.ColumnHeads = True
End With
End Sub
Bruno
Je sais ce que tu me dit, mais vais passer par une ListView
tant pis pour le Changement, ça me prendra plus de temps ,mais bon
Paritec
Bien ce petit fichier, mais Code Complexe, et si je l'intégre en partie au miens; le reste de mes procédures ne fonctionneront plus.
C'est pour cela que je voulais savoir, s'il y avait une astuces
pour arriver a afficher les entêtes de colonnes, en ajoutant
quelques lignes de code a celui que j'ai mis sur ce fil
Comme dans le Fichier joint ,comme exemple
Merci a tout les deux
Bonne soirée