bonsoir a tous
en faite ,j'ai une listview avec checkbox.
en cochant une checkbox,je copie la ligne dans une cellule (B31 dans mon exemple) de la feuil1.ça c'est OK.
Mon souci est de pouvoir cocher plusieurs checkbox et de les copier les uns à la suite des autres ...
Et en déchochant la checkbox, supprimer la ligne copiée correspondante de la feuille.
j'ai bien essayé plusieur code de ce style
mais pas très concluant...
j'éspère avoir été assez claire et que vous pourrez m'aider...
merci
en faite ,j'ai une listview avec checkbox.
en cochant une checkbox,je copie la ligne dans une cellule (B31 dans mon exemple) de la feuil1.ça c'est OK.
Mon souci est de pouvoir cocher plusieurs checkbox et de les copier les uns à la suite des autres ...
Et en déchochant la checkbox, supprimer la ligne copiée correspondante de la feuille.
Code:
Private Sub ListView2_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim J As Integer
Dim I As Integer
If Item.Checked = True Then
Item.ForeColor = RGB(0, 0, 255) 'Changement couleur
Item.Bold = True 'Gras
For J = 1 To Item.ListSubItems.Count
Item.ListSubItems(J).ForeColor = RGB(0, 0, 255)
Item.ListSubItems(J).Bold = True
For I = 1 To ListView2.ListItems.Count
With Sheets("feuil1")
.Cells(31, 2) = "Réf:"
.Cells(31, 3) = ListView2.ListItems(I).ListSubItems(1).Text
.Cells(31, 6) = "NB pièces:"
.Cells(31, 7) = ListView2.ListItems(I).ListSubItems(7).Text
End With
Next I
Next J
Else
Item.ForeColor = RGB(1, 0, 0) 'Changement couleur
Item.Bold = False
For J = 1 To Item.ListSubItems.Count
Item.ListSubItems(J).ForeColor = RGB(1, 0, 0)
Item.ListSubItems(J).Bold = False
For I = 1 To ListView2.ListItems.Count
With Sheets("feuil1")
.Cells(31, 2) = ""
.Cells(31, 3) = ""
.Cells(31, 6) = ""
.Cells(31, 7) = ""
End With
Next I
Next J
End If
End Sub
j'ai bien essayé plusieur code de ce style
Code:
Dim lig as long
lig = Sheets("feuil1").[B65000].End(xlUp).Offset(31, 0).Row
mais pas très concluant...
j'éspère avoir été assez claire et que vous pourrez m'aider...
merci
Dernière édition: