Microsoft 365 Configuration d'une ListView

[TCHIS]

'***********************************************************************
'***********************************************************************
'Code permettant d'initailiser ma listview au démarrage de mon USF
'***********************************************************************
'***********************************************************************
      'Déclaration de variable
      Dim j As Integer
    Me.ListView1.View = lvwReport
    For j = 1 To Range("xfdl").End(xlToLeft).Column
    Me.ListView1.ColumnHeaders.Add , , Cells(2, j)
    Next j
     '*******************************************************************
     'Suite du code pour remplir les cellules (Cellule de la première colonne: Colonne N°)
     '*******************************************************************
            'Déclaration de variable
    Dim i As Integer
    Dim x As ListItem

Bonsoir pourriez-vous jettez un coup d'euil s'il vous plait à mon code
Au-dessus j'ai un code que j'applique afin d'initialiser ma ListView
je suis coincé par ce que quand je lance le USF ça me sort Erreur la méthode 'Range' de l'objet_Global a échoué (Erreur 1004) .
Cette partie de ce code est pour permettre à ce que la ListView affiche dans sa première colonne les données de mon tableau source situé dans la première colonne de ce meme tableau (Source)

 

[Oneida]

Bonjour,

adr = Range("xfdl").Address
dercol = Range(adr).Find("*", , , , xlByColumns, xlPrevious).Column
For j = 1 To derco

 

[TooFatBoy]

Bonjour,

For j = 1 To Range("xfdl").End(xlToLeft).Column
Me.ListView1.ColumnHeaders.Add , , Cells(2, j)
Next j

Il semble que tu te sois doublement trompé :
- ce n'est pas "XFDL" mais "XFD1",
- ce n'est d'ailleurs pas "XFD1" mais "XFD2".

 

[TCHIS]

Bonjour,


Il semble que tu te sois doublement trompé :
- ce n'est pas "XFDL" mais "XFD1",
- ce n'est d'ailleurs pas "XFD1" mais "XFD2".

Bonjour cher ami effectivement tu as raison d'ailleurs j'avais pu trouver une solution qui m'a permis d'initialiser la ListView
Merci

 

[patricktoulon]

bonjour à tous
perso je suis perplexe @TCHIS
tu dis vouloir remplir la première colonne d'un listview et tu nous présente un code pour faire le header du listview
??????????? 😳🤔

 

[patricktoulon]

dans cet exemple
je fait le header du listview avec le header du tableau structuré
et je donne la meme largeur aux colonne que la source

'exemple pour un tableau structué
Private Sub UserForm_Activate()
    Dim rngHeader As Range 'meme pour un tableau structuré!!!!!!!!!!
    Set rngHeader = Range("tableau1[#headers]")
    initListviewHeader rngHeader
End Sub

Function initListviewHeader(rngHeader As Range)
    ligneheader = rngHeader.Value
    With ListView1
        For col = 1 To UBound(ligneheader, 2)
            .ColumnHeaders.Add , , ligneheader(1, col), rngHeader(1, col).Width
        Next
        'option
        .Gridlines = True: .BorderStyle = ccFixedSingle: .FullRowSelect = True: .View = lvwReport
    End With
End Function

et si ce tableau n'etait pas un tableau structuré
le meme avec un range

Set rngHeader = Range("B2", Cells(2, Columns.Count).End(xlToLeft))

 

[TCHIS]

Bonjour,


Il semble que tu te sois doublement trompé :
- ce n'est pas "XFDL" mais "XFD1",
- ce n'est d'ailleurs pas "XFD1" mais "XFD2".

A ce propos j'avais du abandonné cette procédure et je suis passeré par une macro qui m'a permi d'initialiser la ListView comme je le souhaitais et c'était un peu plus compréhensible pour niveau