Excel: problème listview...
Fermé
f.tavel
Messages postés
2
Date d'inscription
jeudi 26 juin 2008
Statut
Membre
Dernière intervention
26 juin 2008
-
26 juin 2008 à 10:21
f.tavel Messages postés 2 Date d'inscription jeudi 26 juin 2008 Statut Membre Dernière intervention 26 juin 2008 - 26 juin 2008 à 15:27
f.tavel Messages postés 2 Date d'inscription jeudi 26 juin 2008 Statut Membre Dernière intervention 26 juin 2008 - 26 juin 2008 à 15:27
A voir également:
- Excel: problème listview...
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
- Tableau croisé dynamique excel - Guide
1 réponse
f.tavel
Messages postés
2
Date d'inscription
jeudi 26 juin 2008
Statut
Membre
Dernière intervention
26 juin 2008
26 juin 2008 à 15:27
26 juin 2008 à 15:27
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...