Microsoft 365 Configuration d'une ListView

TCHIS · 23 Février 2023

VB:

'***********************************************************************
'***********************************************************************
'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 · 23 Février 2023

Bonjour,

VB:

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

TooFatBoy · 14 Mars 2023

Bonjour,

TCHIS à dit:
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 · 14 Mars 2023

TooFatBoy à dit:
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 · 14 Mars 2023

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 · 14 Mars 2023

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

VB:

'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

VB:

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

TCHIS · 14 Mars 2023

TooFatBoy à dit:
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

Microsoft 365 Configuration d'une ListView

TCHIS

XLDnaute Occasionnel

Oneida

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

TCHIS

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TCHIS

XLDnaute Occasionnel

Discussions similaires