alimentation listview

[marleauc]

Bonjour,

j'aimerais alimenter ma listview 4 seulement si la ( cellule M) est plus petit de 30 jours

voici mon code

With ListView4
.ListItems.Add , , Cells(Ligne, 1).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(Ligne, 1).Offset(, 1).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(Ligne, 1).Offset(, 12).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(Ligne, 1).Offset(, 6).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(Ligne, 1).Offset(, 13).Value

merci...d'avance
bonne journée!

 

[Grand Chaman Excel]

Re : alimentation listview

Bonjour marleauc,

À défaut d'avoir un fichier ou le code complet pour travailler, voici ce que j'ai vu dans ma boule de cristal...

With ListView4
If Cells(Ligne, 13) < 30 then
.ListItems.Add , , Cells(Ligne, 1).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(Ligne, 1).Offset(, 1).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(Ligne, 1).Offset(, 12).Value 
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(Ligne, 1).Offset(, 6).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(Ligne, 1).Offset(, 13).Value
End if

À

 

[marleauc]

Re : alimentation listview

Un gros merci !! de Gatineau!!!
ciao

 

[marleauc]

Re : alimentation listview

Bonjour,

le tout fonctionne a merveille, par contre les cellule qui non pas de date s'Affiche également comment ne pas en tewnir compte!

un gros merci encore a ce site qui nous permet d'effectuer de belles choses!

 

[Grand Chaman Excel]

Re : alimentation listview

Bonjour marleauc,

Alors, voyons si ma boule de cristal fonctionne encore ce matin 😀

With ListView4
If Cells(Ligne, 13) < 30 and Cells(Ligne, 13) <> "" then
.ListItems.Add , , Cells(Ligne, 1).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(Ligne, 1).Offset(, 1).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(Ligne, 1).Offset(, 12).Value 
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(Ligne, 1).Offset(, 6).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(Ligne, 1).Offset(, 13).Value
End if

A+

PS : toujours plaisant d'aller faire un tour dans votre coin de pays...

 

[marleauc]

Re : alimentation listview

Un gros merci Grand chaman...cela fonctionne a merveille.


PS: moi aussi j'aime bien votre coin au plaisir

 

[marleauc]

Re : alimentation listview

re-salut

ma macro pour imprimer la liste view fonctionne très bien sauf qu'elle n'imprime pas la colonne 13
Private Sub CommandButton5_Click()

Dim i As Integer, j As Integer, k As Integer
Sheets.Add
With ActiveSheet
For i = 1 To ListView4.ColumnHeaders.Count - 1
.Cells(1, i) = ListView4.ColumnHeaders(i)
Next
For j = 1 To ListView4.ListItems.Count
.Cells(j + 1, 1) = ListView4.ListItems(j).Text
For k = 1 To ListView1.ColumnHeaders.Count - 1
.Cells(j + 1, k + 1) = ListView4.ListItems(j).ListSubItems(k).Text
Next k
Next j
.Columns.AutoFit
.PageSetup.Orientation = xlLandscape
Me.Hide
.PrintPreview 'à remplacer par PrintOut pour imprimer
Me.Show
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With

End Sub

 

[Grand Chaman Excel]

Re : alimentation listview

Bonjour,
Que veux-tu dire par "elle n'imprime pas la colonne 13" ?
Est-ce que les données sont transcrites de ta Listview à la colonne M (13) ?
Est-ce que l'impression arrête à la colonne L (12) ?
Est-ce que l'impression s'étire sur plus qu'une page, donc la colonne 13 est dans la 2e page ?

À préciser...

 

[marleauc]

Re : alimentation listview

ouin c'Est pas clair ..tu as raison..en réalité c'Est la colonne N qui ne s'imprime pas ..l'entête y est mais pas les données

 

[Grand Chaman Excel]

Re : alimentation listview

Bonjour marleauc,

Remplace ta ligne :

For k = 1 To ListView1.ColumnHeaders.Count - 1

Par ceci :

For k = 1 To ListView4.listitems(j).listsubitems.Count

ça devrait marcher...
A+