listview

[marleauc]

Bonjour
Est-il possible selon vous de crée une listview de la feuil1 , en y incluant le choix de l'Employé?

merci

 

[fhoest]

Re : listview

Bonjour,
oui c'est possible,
mais y' a quand même un minimum de travail à faire, voir les discussions en dessous par exemples.
A+

 

[Roland_M]

Re : listview

bonsoir,

voir cet un exemple assez simple !
à adapter !

 

[ChTi160]

Re : listview

Bonjour marleauc
Bonjour le Fil
Bonjour le Forum

une autre approche "ListView"
le fichier : Regarde la pièce jointe heure des constablesV3.xls
Bonne Journée
Amicalement
Jean Marie

 

[marleauc]

Re : listview

WOW! un gros merci a vous tous, je continue..

Bonne journée et encore merci

 

[marleauc]

Re : listview

Bonjour ChTi160,

J'aime bien ton listview mais j'ai des problème a l'utiliser j'ai toujours un erreur au niveau de ce code
Private Sub UserForm_Initialize()
IniCombo_Employes
With UsF_Recherche
With .LstV_Recap
.View = lvwReport
.FullRowSelect = True
.Gridlines = True
.ColumnHeaders.Clear
For Each Rng In Plg_Entetes
.ColumnHeaders.Add , , Rng.Value, IIf(Rng <> "", Rng.Width + 18, 0)
Next Rng
End With
.CmbB_Employes.List = Application.Transpose(Tab_Employes)
End With
End Sub
le message est erreur de chargement de la dl (erreur 48)

 

[fhoest]

Re : listview

bonsoir,

il faut aller dans outils références et cocher la case manquant. dans le vba bien sur.
ou alors tu mets ce code:

Private Sub Workbook_Open()
Dim Refs As Object, Ref As Object
On Error Resume Next
With ThisWorkbook
    Set Refs = .VBProject.References
    For Each Ref In Refs
        If Ref.IsBroken Then
            Refs.Remove Ref
        End If
    Next
    .VBProject.References.AddFromGuid _
       "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}", 1, 0
End With
End Sub

A+