Excel: problème listview...
f.tavel
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
f.tavel Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
f.tavel Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
Je suis en train de faire une petite macro VBA dans Excel.
Je pars d'une liste de personne avec leur nom et une autre colonne, que je veux récupérer dans un userform VBA avec une listview. Le problème que j'ai est que je n'arrive pas à avoir un présentation qui soit agréable, j'ai des gros carrés avec que les noms, et que la deux colonne n'apparait pas. J'aimerai obtenir une présentation en ligne avec les deux colonnes....
Je vous donne le code que j'ai:
Private Sub UserForm_Initialize()
Dim Cell As Range
Dim X As Byte, m As Byte
Dim k As Integer
k = Sheets("Listing_personnel").Range("A75").End(xlUp).Row
With ListView1
With .ColumnHeaders
.Add , , "Nom, Prénom", 70
.Add , , "Salaire Horaire", 70
End With
For Each Cell In Sheets("Listing_personnel").Range("A6:A" & k)
If Sheets("Listing_personnel").Rows(Cell.Row).Hidden = False Then
X = X + 1
.ListItems.Add , , Cell
For m = 1 To 2
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, m)
Next m
End If
Next
End With
End Sub
Merci pour votre aide!
François
Je suis en train de faire une petite macro VBA dans Excel.
Je pars d'une liste de personne avec leur nom et une autre colonne, que je veux récupérer dans un userform VBA avec une listview. Le problème que j'ai est que je n'arrive pas à avoir un présentation qui soit agréable, j'ai des gros carrés avec que les noms, et que la deux colonne n'apparait pas. J'aimerai obtenir une présentation en ligne avec les deux colonnes....
Je vous donne le code que j'ai:
Private Sub UserForm_Initialize()
Dim Cell As Range
Dim X As Byte, m As Byte
Dim k As Integer
k = Sheets("Listing_personnel").Range("A75").End(xlUp).Row
With ListView1
With .ColumnHeaders
.Add , , "Nom, Prénom", 70
.Add , , "Salaire Horaire", 70
End With
For Each Cell In Sheets("Listing_personnel").Range("A6:A" & k)
If Sheets("Listing_personnel").Rows(Cell.Row).Hidden = False Then
X = X + 1
.ListItems.Add , , Cell
For m = 1 To 2
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, m)
Next m
End If
Next
End With
End Sub
Merci pour votre aide!
François
A voir également:
- Excel: problème listview...
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
- Excel trier par ordre croissant chiffre - Guide
1 réponse
rectification voici ce qui se passe lorsque j'appuie sur le bouton ok de mon userform
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Byte
If Item.Checked = True Then
For i = 1 To ListView1.ItemsChecked.Count
Cells(i + 5, 1) = ListView1.SelectedItem(i).Text
For j = 1 To ListView1.ColumnHeaders.Count - 1
Cells(i + 5, j + 2) = ListView1.ListItems(i).ListSubItems(j).Text
Else
Next j
Next i
Unload UserForm1
End Sub
Ca me mets une erreur. avant ca marchais mais ce ne prenait pas en compte ce qui était sélectionné, maintenant ca ne marche plus... je rappelle que ce qui est coché doit êtr copié dans une autre feuille du même classeur excel...
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Byte
If Item.Checked = True Then
For i = 1 To ListView1.ItemsChecked.Count
Cells(i + 5, 1) = ListView1.SelectedItem(i).Text
For j = 1 To ListView1.ColumnHeaders.Count - 1
Cells(i + 5, j + 2) = ListView1.ListItems(i).ListSubItems(j).Text
Else
Next j
Next i
Unload UserForm1
End Sub
Ca me mets une erreur. avant ca marchais mais ce ne prenait pas en compte ce qui était sélectionné, maintenant ca ne marche plus... je rappelle que ce qui est coché doit êtr copié dans une autre feuille du même classeur excel...
