Soucis de Boucle avec ListView

MuscatMimi · 16 Mars 2009

Bonjour a toutes et a tous

Voila, j'ai un soucis avec des boucles

le code cidessous fonctionne bien

Private Sub MiseAJourTB() 'si click dans ListView pour afficher données dans Textbox de 2 a 8

Dim k As Byte
TextBox1 = ListView1.ListItems(ListView1.SelectedItem.Index).Text
For k = 2 To 8
Controls("TextBox" & k + 1) = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(k)
Next

End Sub

J"essai de placer cette boucle en plus, dans le code ci-dessus
mais ça fonctionne pas

TextBox17 = ListView1.ListItems(ListView1.SelectedItem.Index).Text
Dim c As Byte
For c = 18 To 26 'TextBox N° 17 a 26

Controls("TextBox" & c) = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(c)
Next c

Merci a l'avance
Cordialement

jp14 · 16 Mars 2009

Re : Soucis de Boucle avec ListView

Bonjour

Quel est le nombre de colonne dans la listview ?
Eventuellement mettre .ListSubItems( c-17)

JP

MuscatMimi · 16 Mars 2009

Re : Soucis de Boucle avec ListView

Bonjour JP14

Voici le code Initialize

Private Sub UserForm_Initialize()
'--Affiche quadrillage dans la ListView
'ListView1.Gridlines = True
'Gridlines.ForeColor = RGB(100, 0, 100)

'=======================

Dim i As Long, X As Long, k As Byte

With ListView1
'Entête
With .ColumnHeaders
.Clear
.Add , , "Réf ", 30 'titre de la colonne et largeur et alignement
.Add , , "Nom Produits", 80
.Add , , "Date", 65, lvwColumnCenter
.Add , , "Banque", 90
.Add , , "Opération", 100
.Add , , "Libellé", 125
.Add , , "Débit", 55, lvwColumnRight
.Add , , "Solde Restant", 55, lvwColumnRight
.Add , , "N° Chéque", 55, lvwColumnRight
End With

.View = lvwReport
.FullRowSelect = True
.Gridlines = True
' Chargement des données

For i = 2 To Sheets("Data").Range("B65536").End(xlUp).Row
.ListItems.Add , "K" & i, Sheets("Data").Cells(i, 1) '1ère Colonne
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, 2) '2ème Colonne
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("Data").Cells(i, 3), "dd/mm/yyyy") '3ème Colonne
For k = 3 To 5
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, k + 1) 'Colonne 4 à 6
Next
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("Data").Cells(i, 7), "# ##0.00") '7èmè Colonne
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("Data").Cells(i, 8), "# ##0.00") '8èmè Colonne
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, 9) '9 èmè Colonne
Next
' Nom des Labels
For k = 1 To 9
Controls("Label" & k).Caption = ListView1.ColumnHeaders(k)
Next
.ListItems(1).Selected = False
End With
Alim_Combo
CommandButton2.Enabled = False
End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) 'Si click affiche données dans textbox
MiseAJourTB
CommandButton2.Enabled = True
End Sub

A+++++Jp14

jp14 · 16 Mars 2009

Re : Soucis de Boucle avec ListView

Bonjour

.Add , , "Réf ", 30 'titre de la colonne et largeur et alignement > 17
.Add , , "Nom Produits", 80 >18 colonne 1
.Add , , "Date", 65, lvwColumnCenter > 19
.Add , , "Banque", 90 >20
.Add , , "Opération", 100> 21
.Add , , "Libellé", 125>22
.Add , , "Débit", 55, lvwColumnRight>23
.Add , , "Solde Restant", 55, lvwColumnRight> 24
.Add , , "N° Chéque", 55, lvwColumnRight> 25

Avec le code

TextBox17 = ListView1.ListItems(ListView1.SelectedItem.Index). Text
Dim c As Byte
For c = 18 To 25 'TextBox N° 17 a 26

Controls("TextBox" & c) = ListView1.ListItems(ListView1.SelectedItem.Index). ListSubItems(c-17) 'quand on a 18 il faut la première colonne
Next c

JP

MuscatMimi · 16 Mars 2009

Re : Soucis de Boucle avec ListView

Re JP14

J'ai essayé , mais j'y arrive pas
rien ne fonctionne
Je te met le fichier en question

avec ce fil, j'essayais d'y arriver, en plusieurs étapes, mais apparament mon idée est pas bonne,

Donc

En fait ce que je voudrais faire , en réalité, est de pouvoir inclure
le code de ma ListBox1 et ComboBox1,(concernant affichage suivant Date de mes 3 Frames) de mon Usf GestionFacture,

dans mon Usf ConsutationEchéance,

A++++++

ChTi160 · 16 Mars 2009

Re : Soucis de Boucle avec ListView

Salut Christophe
Bonjour le Fil
Bonjour le Forum

voila ce à quoi j'ai pensé (mais pas testé Lol)

Code:

With UserForm
   With .ListView1
     For k = 1 To 26
      Select Case k
       Case Is = [COLOR=Blue]1[/COLOR]
      UserForm.Controls("TextBox" & k) = .ListItems _
                                         (ListView1.SelectedItem.Index).Text
       Case [COLOR=Blue]2[/COLOR] To 9
      UserForm.Controls("TextBox" & k + 1) = .ListItems_
                                         (.SelectedItem.Index).ListSubItems(k)
       Case Is = [COLOR=Blue]17[/COLOR]
      UserForm.Controls("TextBox" & k) = .ListItems_
                                         (.SelectedItem.Index).Text
       Case [COLOR=Blue]18[/COLOR] To [COLOR=Blue]26[/COLOR]
      UserForm.Controls("TextBox" & k) = .ListItems_
                                         (.SelectedItem.Index).ListSubItems(k)
      End Select
     Next k
   End With
End With

en espérant avoir pu t'aider
Bonne fin de Journée

MuscatMimi · 16 Mars 2009

Re : Soucis de Boucle avec ListView

Bonjour chTI160

Merci de ta réponse

mais a tu lu ma derniére modif, avec le fichier joint???

Avec le code que tu m'a passé, je sais pas ou le placer pour que ça fonctionne

a++++++++++

Soucis de Boucle avec ListView

MuscatMimi

XLDnaute Accro

jp14

XLDnaute Barbatruc

MuscatMimi

XLDnaute Accro

jp14

XLDnaute Barbatruc

MuscatMimi

XLDnaute Accro

Pièces jointes

ChTi160

XLDnaute Barbatruc

MuscatMimi

XLDnaute Accro

Discussions similaires

Soucis de Boucle avec ListView

MuscatMimi

XLDnaute Accro

jp14

XLDnaute Barbatruc

MuscatMimi

XLDnaute Accro

jp14

XLDnaute Barbatruc

MuscatMimi

XLDnaute Accro

Pièces jointes

ChTi160

XLDnaute Barbatruc

MuscatMimi

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency