XL 2010 Alimenter Listview sous conditions dynamiques

jecherche

XLDnaute Occasionnel

• 13 Juin 2016

• #2

Re : Alimenter Listview sous conditions dynamiques

Bonjour,

À tester si ça convient ...

Code:

Private Sub UserForm_Initialize()
TextBox_NumSemaine.Value = 1

Call Premier_JourSem
'''Call Chargement_Listview
Dim Cell As Range
Dim X As Byte
Dim k As Integer
Dim Kb As Integer
Dim Ws As Worksheet
Dim Wsb As Worksheet

Set Ws = Worksheets("Base WPL")
Set Wsb = Worksheets("Base")

k = Ws.Range("A65536").End(xlUp).Row
Kb = Wsb.Range("A65536").End(xlUp).Row

ListView1.ListItems.Clear

    'La premiere ligne, de la colonne A à J contient les entêtes.
With ListView1
   With .ColumnHeaders
      .Clear
      .Add , , Ws.Cells(1, 1), 40
      .Add , , Ws.Cells(1, 2), 100
      .Add , , Ws.Cells(1, 3), 80
      .Add , , Ws.Cells(1, 4), 140
   End With

        'Les autres lignes contiennent les données
For Each cellb In Wsb.Range("A2:A" & Kb)
   For Each Cell In Ws.Range("A2:A" & k)
      If Cell = cellb Then
         X = X + 1
         .ListItems.Add , , Cell
         .ListItems(X).ListSubItems.Add , , Cell.Offset(0, 1)
         .ListItems(X).ListSubItems.Add , , Cell.Offset(0, 2)
         .ListItems(X).ListSubItems.Add , , Cell.Offset(0, 3)
         .ListItems(X).ListSubItems.Add , , Cell.Offset(0, 4)
      End If

   Next Cell
Next cellb
End With
End Sub

Jecherche

 

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 13 Juin 2016

• #3

Re : Alimenter Listview sous conditions dynamiques

Salut Jecherche,

Merci pour ta proposition mais c'est pas tout a fait ce que je souhaite, les entêtes sont dynamiques et correspondent au jours de la semaine en fonction du numéro de semaine.

Je souhaite une Listview qui ressemble à ceci :

Semaine : 1


__________________Lundi - Mardi - Mercredi - jeudi - vendredi - Samedi - Dimanche
Entête_______________04/01/16 05/01/16 06/01/16 07/01/16 08/01/16 09/01/16 10/01/16

P. BISMUTH __________Horaires Horaires Horaires Horaires Horaires Horaires Horaires

K. BELDO____________ Horaires Horaires Horaires Horaires Horaires Horaires Horaires



Seulement si ces personnes ont des plages horaires sur la semaine sélectionnée.


Les entêtes sont déjà générée automatiquement en fonction du numéro de semaine depuis la procédure Premier_JourSem

J’espère que je suis plus clair.


Max

 

Dernière édition: 13 Juin 2016

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 14 Juin 2016

• #4

Re : Alimenter Listview sous conditions dynamiques

Bonjour,

Je suis proche d'un résultat ... mais c'est l'heure dodo, puis l'heure boulot avant de continuer.


Jecherche

 

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 14 Juin 2016

• #5

Re : Alimenter Listview sous conditions dynamiques

Merci Jecherche,

En attendant ton résultat, je te souhaite une bonne nuit.

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 14 Juin 2016

• #6

Re : Alimenter Listview sous conditions dynamiques

bonjour max.lander,jecherche
une autre proposition

 

Pièces jointes

• Planning Filtre.xlsm

  64.5 KB · Affichages: 84

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 14 Juin 2016

• #7

Re : Alimenter Listview sous conditions dynamiques

Bonjour à tous,

Berbere merci pour cette proposition c'est exactement ce que je cherche.
Toutefois, il y a un petit beug dans cette version quand je tape certains numéros
de semaine sans plage horaires pour des salariés ils apparaissent quand même dans la listview.

exemple semaine 2, 53...

Merci encore


Max

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 14 Juin 2016

• #8

Re : Alimenter Listview sous conditions dynamiques

bonjour max.lander
juste changer la ligne commentée enlever month

Sub Chargement_Listview()
Dim D As New dictionary, item As Variant

For i = 0 To UBound(Jours)

For j = 2 To UBound(tbl) 'NumSem
If tbl(j, 3) = Jours(i) Then D(tbl(j, 2)) = tbl(j, 2) 'enlever month
Next j
Next i

ListView1.ListItems.Clear

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 14 Juin 2016

• #9

Re : Alimenter Listview sous conditions dynamiques

Bonjour,

Pour retrouver les jours semaines "Lundi" ... etc. Ce pourrait être des labels au dessus du listview

Jecherche

 

Dernière modification par un modérateur: 14 Juin 2016

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 14 Juin 2016

• #10

Re : Alimenter Listview sous conditions dynamiques

Bonjour,

Aussi, en alignant le texte des colonnes à droite, les plages horaires se lient mieux.

Code:

   With ListView1
        'Définit le nombre de colonnes et Entêtes
        With .ColumnHeaders
            .Clear
            .Add , , "Nom", 132
         
            For i = 0 To 6
                .Add , , Jours(i), 132, lvwColumnRight  ' ici pour l'alignement à droite
        
            Next i
        End With

 

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 15 Juin 2016

• #11

Re : Alimenter Listview sous conditions dynamiques

Salut à tous, jecherche, berbere,

Merci pour toutes vos propositions ça fonctionne très bien.

Pour en revenir à la lisibilité, j'ai ajouté le propriété lvwColumnRight c'est largement mieux.

Pour aller plus loin savez-vous s'il est possible d'aller à la ligne dans un listview pour afficher mes horaires de la sorte :

9:00-12:00
14:00-18:00

Merci,

Max,

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 15 Juin 2016

• #12

Re : Alimenter Listview sous conditions dynamiques

Bonjour,

Non, je ne sais pas ... aussi, je ne trouve rien sur le Net. Désolé


Jecherche

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 15 Juin 2016

• #13

Re : Alimenter Listview sous conditions dynamiques

Bonjour,

As-tu remarqué, en faisant du pas-à-pas dans la macro "Chargement_Listview" ... le "UBound(tbl) voir les cellules avec pourtour noir même si elles sont vides ... i.e "UBound(tbl)" voit jusqu'à la ligne 2296 malgré que les données se terminent à la ligne 101 dans l'exemple ?


Jecherche

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 15 Juin 2016

• #14

Re : Alimenter Listview sous conditions dynamiques

bonjour max.lander,jecherche
pour aller à la ligne,pas trouvé
il y a une propriété labelwrap,pas trouvé d'explication

tbl = Feuil2.Range("A1").CurrentRegion 'usedrange prend les formats

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

max.lander

XLDnaute Occasionnel

• 15 Juin 2016

• #15

Re : Alimenter Listview sous conditions dynamiques

Bonjour à tous, Berbere, jecherche,


C'est visiblement impossible ! Arffff


Dans tous les cas vos propositions fonctionnent très bien !

Merci encore,

Max

 

Vote positif 0 Vote négatif