'---------------------------------------------------------------------------------------
' Procedure : CommandButton5_Click
' DateTime : 19/06/2007 16:42
' Author : jp14
' Pour : http://www.excel-downloads
' Utilisation :recopie une seule ligne
'---------------------------------------------------------------------------------------
'
Private Sub CommandButton5_Click()
'Sheets(nomf2).Select
' Cells.Select
' Selection.ClearContents
' ligne1 = 0
'Sheets(nomf1).Select
Dim compteur As Integer
compteur = 0
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
'ligne2 = Mid(ListView1.ListItems(i).Key, 2, 50)
compteur = compteur + 1
End If
Next i
If compteur = 0 Then
MsgBox ("Vous devez sélectionner une ligne")
Exit Sub
End If
If compteur > 1 Then
MsgBox ("Vous devez sélectionner une ligne et une seule")
Exit Sub
End If
.................................................