Redimensionner entête listview

Bonsoir le Forum

Je sollicite votre aide pour ajuster les entêtes de ma listview, j'ai fait des recherches, pas trouver ce dont je voulais

En vous remerciant par avance pour l'aide

Bonjour Letranquil et

Au moment d'ajouter la colonne, il faut utiliser l'argument Width

A+

Bonjour

BrunoM45,

Pour tout dire je bug je ne vois pas trop comment utliser et où le placer

le Widh

Désolé su vous avez l'impression que j'abuse mais je ne vois vraiment pas

En remerciant beaucoup

Bonsoir Bruno45

J'ai suivi vos conseils mais les entêtes disparaissent complètement

.Add , , Sheets(4).Width.Cells(1, i).Value
.Add , , Sheets(4).Width(1, i).Value

Sauf si j'ai mal utlité le width

Merci beaucoup

Bonjour,

Vous n'avez rien suivi du tout

Qu'est-ce que vous ne comprenez pas dans mettre des arguments qui ce suivent derrière une virgule

Par exemple, en prenant la largeur de la colonne

.Add , , Sheets(4).Cells(1, i).Value, Sheets(4).Cells(1, i).Width

Le code correcte serait d'ailleurs

Private Sub UserForm_Initialize()
  Dim F As Worksheet
  ' On définit la feuille à utiliser
  Set F = Sheets("feuil4")
  ' Adapter la largeur des colonnes au contenu
  F.UsedRange.EntireColumn.AutoFit
  ' Avec la ListView
  With Me.ListView1
    ' effacer les données
    .ListItems.Clear
    '
    For i = 1 To 15
      .ColumnHeaders.Add , , F.Cells(1, i).Value, F.Cells(1, i).Width
    Next i
   .View = 3
   .Gridlines = True
  End With
End Sub

A+

Bonjour le Forum, Bonjour BrunoM45

Merci pour la réponse

Mais vous m'avez fait rigolé, je comprends vite mais il faut m'expliquer longtemps

Plus sérieusement, je ne suis vraiment pas un spécialiste, j'essaie de faire de mon mieux

mais lorsqu'on ne sait pas on n'a du mal à suivre car malheureusement on ne peut chercher quelque

chose dont on ignore l'existence et encore moins son utilisation

Merci néanmoins pour votre patience