Copier et effacer valeur a partir listbox-VBA
Bonjour
Jai ' besoin d ' aide avec le code suivant qui me permet de transferer les lignes selectionner dans ma lisbox afin de les transfer dans une autre feuille excel , mais je voudrais rajouter un code afin d effacer ensuite les donnes transferer a lorigine
merci beaucoup
Voici le debut de Code
Code :
Private Sub complete_ar_Click()
Dim iListCount As Integer, iColCount As Integer
Dim iRow As Integer
Dim rStartCell As Range
'Set a range variable to the first cell to recieve our data
'Using "End(xlUp).Offset(1, 0)" _
will give us the cell below the last entry
Set rStartCell = Spotclassified.Range("A65536").End(xlUp).Offset(1, 0)
'Loop as many times (less one) as there are entries in our list.
'We must start from zero to use this in the Selected Property.
For iListCount = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(iListCount) = True Then 'User has selected
ListBox2.Selected(iListCount) = False
iRow = iRow + 1
'Now loop as many times as there are columns in MyRange
For iColCount = 0 To Range("plageprogress").Columns.Count - 1
'place the selected data into the table, starting from _
range Ax And moving across As many columns As there are _
In the range MyRange.
rStartCell.Cells(iRow, iColCount + 1).Value = _
ListBox2.List(iListCount, iColCount)
Next iColCount
End If
Next iListCount
Set rStartCell = Nothing
End Sub
Bonjour Igvba le forum
le multipostage sur différent forum ne va pas régler le souci!!!
tes explications sont ce quelles sont, certainement claires pour toi mais seulement pour toi.
mais je voudrais rajouter un code afin d effacer ensuite les donnes transférer a l'origine
la traduction c'est quoi ???
a+
Papou