ListBox1.ColumnHeads = True

[grisan29]

bonjour a vous tous
pour suite a l'intitulé du post peut'on y ajouter des entètes dans les columnheads
je m'entends
a l'ouverture de l'usf est ce que la 1ere column peu prendre le nom de "référence"
la 2ème "article" etc ... jusque 6 colonnes et peut etre plus pour autrechose

merci de votre compréhension
Pascal

 

[YANN-56]

Re : ListBox1.ColumnHeads = True

Bonsoir à tous,

Fo_rum, pour moi le sujet est clos!

Si Bill passe par ici, il sera convaincu du bien fondé de la ListBox,
et cessera de nous imposer la façon ListView quand on explore un Répertoire!

Il est vrai que de cliquer sur un entête de colonne pour en faire le tri est d'un ridicule incommensurable! 😕
Un clin d'œil sur une ListBox suffit...... N'est-il pas?

Par ailleurs, je n'ai jamais douté des compétences de Laetitia.
Bien de nos échanges ont sont la preuve, et ce commentaire...........!!! 😱

grisan🙂, je te laisse entre de bonnes mains.

Il est vrai qu'utiliser une pelleteuse pour pécher des palourdes n'est pas recommandable!!!

Bonne suite sincère pour ton projet,

Amicalement,

Yann, qui préfère le café à la tisane, voire même le thé.

P.S. J'ai tenté d'aider, c'était mon seul but. Raté, c'est certain! Mais pas grave!

 

[grisan29]

Re : ListBox1.ColumnHeads = True(résolu)

bonsoir Yann_56
citation:Fo_rum, pour moi le sujet est clos!

Si Bill passe par ici, il sera convaincu du bien fondé de la ListBox,
et cessera de nous imposer la façon ListView quand on explore un Répertoire!

ce n'est que pour fo_rum que le sujet est clos car pour une listbox c'est bien, mais comme j'ai commencer avec une listview(maintenant) et grace a toi, il n'y a pas de raison, justement je suis cours d'intégrer ta listview dans mon fichier ou plus tot mon fichier dans le tien, quand m'avez donnez toi et laetitia une autre vision de la listview
je ferme pour ce soir car demain 4h debout
cordialement
Pascal
bonsoir Laetitia, Yann_56

il n'y aura pas de vainqueur car ceci n'est pas un jeu😉
vos 2 solutions sont aussi valable l'une que l'autre😎😎
je vous laisse tranquille Maintenant et clos le sujet

Merci a vous

Pascal

 

[grisan29]

Re : ListBox1.ColumnHeads = True

bonsoir a Laetitia et Yann_56

est ce normal qu'une listview refuse d'afficher certain caractères comme dans cette ligne
Citation:

réduction 15/21F → 12/17M

ou elle mets un ? a la place de → avec ou sans espaces devant et derrière la flèche

et aussi comment ou où influer sur le code pour que l'affichage des textbox ait lieu a partir la première colonne qui est le n° d'article dont voici le code

Private Sub ComboBox1_Change()
 Label2.Visible = True: Repaint
 ListView1.ListItems.Clear
 For i = 1 To 4:  Controls("TextBox" & (i)) = "": Next
 Set SheetBase = ThisWorkbook.Sheets(ComboBox1.Value)
 With ws
 SheetBase.Cells.Columns.AutoFit ' Pour une Largeur cohérente des Colonnes de la Feuille!
 With UserForm1.ListView1: .View = 3: .Gridlines = True: .FullRowSelect = True: .Sorted = True
    With .ColumnHeaders
        For i = 1 To 10 '"10" étant un nombre forfaitaire de Colonnes renseignées .... On peut l'adapter!
             If SheetBase.Cells(1, i).Value <> "" Then
                .Add , , SheetBase.Cells(1, i).Value, (SheetBase.Columns(i).ColumnWidth * 4) + 18
                 '"4" étant issu des tests (Voire Inches et Points), et "+ 18" un correctif de la même origine.
             End If
        Next i
    End With
 For i = 2 To SheetBase.Cells(SheetBase.Rows.Count, 1).End(xlUp).Row
        'On format la valeur sur 3 chiffres
        .ListItems.Add , , Format(SheetBase.Cells(i, 1).Value, "00#")
        For j = 1 To .ColumnHeaders.Count - 1
            If SheetBase.Cells(i, j + 1).Value <> "" Then
               .ListItems(.ListItems.Count).ListSubItems.Add , , SheetBase.Cells(i, j + 1).Value
            Else
               .ListItems(.ListItems.Count).ListSubItems.Add , , "?" 'Ceci pour une suite où Wind n'aime pas le vide!
            End If
        Next j
    Next i
End With
End With
Label2.Visible = False
End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
TextBox1 = Item.ListSubItems(1)
textbox2 = Item.ListSubItems(2)
textbox3 = Item.ListSubItems(5)
TextBox4 = Item.ListSubItems(8)
End Sub

cordialement

Pascal

 

[Fo_rum]

Re : ListBox1.ColumnHeads = True(résolu)

Bonjour,

bonsoir Yann_56
...
ce n'est que pour fo_rum que le sujet est clos
...

Si tu y tiens, ne lis pas la suite.
N'étant pas sectaire mais plutôt pragmatique, j'essaie de répondre à la question posée.

est ce normal qu'une listview refuse d'afficher certain caractères comme dans cette ligne ?

Oui car la police utilisée dans ce contrôle est prédéfinie et tu dois certainement en changer partiellement pour avoir la flèche sur ta feuille.
Tu pourras retrouver les caractères spéciaux mais le prix à payer sera de quelques lignes de code en plus.

Pour la seconde partie, pour avoir les numéros dans le contrôle, il faut les avoir sur les feuilles. Vois si cela peut t'aider (j'ai simplifié un peu le code en enlevant les parties en double et celles résultant d'une mélange de réponses données).

 

[grisan29]

Re : ListBox1.ColumnHeads = True

bonsoir fo_rum
merci de ta réponse mais

où influer sur le code pour que l'affichage des textbox

est une erreur d'écriture sur le post de ma part🙁
ce que je voulais demander en fait c'est comment faire pour que le numéro de l'article soit inscrit dans un textbox en meme temps que l'aticle et les autres j'ai beau mettre un 1 a la place de 2 de

TextBox1 = Item.ListSubItems(2)

cela ne change pas

cordialement

Pascal

 

[Fo_rum]

Re : ListBox1.ColumnHeads = True

Re,

ListSubItems() correspond aux colonnes 2, 3 ..., corrige ainsi :

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
  TextBox1 = Item
  TextBox2 = Item.ListSubItems(1)
  ...

 

[grisan29]

Re : ListBox1.ColumnHeads = True

bonjour fo_rum

Merci beaucoup😎de ton aide a un novice en listview;
maintenant je vais essayer de l'adapter correctement a mon fichier
tel quel il fonctionne bien reste a ranger la distribution des textbox mais cela ne demande pas d'aide
un grand merci a vous 3 Yann_56 , Laetitia et Fo_rum pour servitude inmesurable😎😎😎😎😎
sans oublier les autres forumeurs

ou dois-je mettre que le sujet est clos

cordialement

Pascal

 

[grisan29]

Re : ListBox1.ColumnHeads = True

bonsoir a vous tous
je remets le message dans un nouveau car on change de registre

cordialement

Pascal

 

[grisan29]

Re : ListBox1.ColumnHeads = True

bonsoir a vous tous😎😎
fo-rum : dans le dernier fichier que tu a modifié pour moi peut on remplacer la partie du code

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
TextBox1 = Item
TextBox2 = Item.ListSubItems(1)etc...

par seulement un clic sur la listview pour envoyer la ligne dans des textox d'un autre usf
cordialement
Pascal

 

[Fo_rum]

Re : ListBox1.ColumnHeads = True

Bonjour,

sous réserve de l'existence des objets :

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
  
  With UserForm2
    .TextBox1 = Item
    .TextBox2 = Item.ListSubItems(3)
    .TextBox3 = Item.ListSubItems(6)
    .TextBox4 = Item.ListSubItems(7)
  End With
  Me.Hide 'tout dépend de la suite, cela pour le ré-afficher en l'état
  UserForm2.Show

End Sub

 

[grisan29]

Re : ListBox1.ColumnHeads = True

bonjour a vous tous et particulièrement Laetitia, Fo_Rum et yann_56

pour abuser un peu de vos connaissances, serait possible que la listview des fichiers que vous m'avez si agréablement créés puisse prendre ses infos dans une seule feuille afin d'alléger mon fichier final qui en contient une vingtaine
dans le premier fichier joint que j'avais posté j'avais soumis cette éventualité que maintenant j'estime etre devenue utile.

je vous souhaite a tous de bonnes fêtes de fin d'année😎😎😎😀

cordialement

Pascal