si possible d'ecrir dans listbox

[zine pef]

salut forum
dans listbox il ya une idée d'ecrir des noms dans les celluls de listbox
aide svp

 

[Excel-lent]

Re : si possible d'ecrir dans listbox

Bonsoir Zine pef, le fil,

Ton français est bizarre! Tu es de quel pays?

Si tu veux des titres de colonne dans une ListBox (c'est bien ça???), dans propriété :
"ColumnHeads" -> mettre "True" => exactement comme tu avais fais!
"RowSource" -> mettre "B1:E1" (sans les guillemets!) => tu ne l'avais pas fait!

Mais cette solution semble présenter des bugs!

Voici ci-joint ton fichier avec une autre solution mais avec un résultat similaire ne présentant pas de bug.

A te lire

 

[PascalXLD]

Re : si possible d'ecrir dans listbox

Bonjour

Comme le dit Excel-lent les titres de colonnes sur istbox sont parfois risqués

Une petite série de Label au dessus de la listbox fera bien l'affaire

 

[BOISGONTIER]

Re : si possible d'ecrir dans listbox

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormListBoxTitreColonnes.xls

JB

 

[Byfranck]

Re : si possible d'ecrir dans listbox

Bonjour,

Je viens de tomber sur sujet et j'en profite pour demander de l'aide su un petit problème de syntaxe au sujet des titres de colonne dans un TexBox.
Actuellement j(afficque dans un userForm un textBox avec plusieurs colonnes de valeur: ça c'est OK.
j'ai ajouté une case pour le titre de colonne.. mais je ne trouve pas comment récupérer les titres de ces colonne (qui sont en feuil1 ligne7)!
Si vous avez une idée ...😉

ci dessous le code du module:

Sub test()

'ordre alphabetique
Sheets("feuil1").Range("J8").Select
selection.Sort Key1:=Range("J8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Call calculnombrefiches

'redéfini selection
' Sheets("feuil1").Range("A8").Resize(rowsize:=Range("F1").Value, columnsize:=1).Select
' UserForm5.ListBox1.List = selection.Value

Dim var
Dim T()
Dim i&
var = Sheets("feuil1").Range("A8:bm" & Sheets("feuil1").Range("F1").Value + 7 & "")
ReDim T(1 To UBound(var, 1), 1 To 5)
For i& = 1 To UBound(var, 1)
T(i&, 1) = var(i&, 1)
T(i&, 2) = var(i&, 10)
T(i&, 3) = var(i&, 11)
T(i&, 4) = var(i&, 13)
T(i&, 5) = var(i&, 15)
Next i&
With UserForm5.ListBox1
.ColumnHeads = True
.RowSource = A7.... (je pense que c'est ici qu'il faut agir!)
.ColumnCount = 5
.ColumnWidths = "" & .Width / 5 * 2 & ";" & .Width / 4 & ""
.List = T
End With

UserForm5.Show

End Sub