Private Sub CommandButton3_Click()
If txtUsagers = "" Then Exit Sub 'pas de selection
If MsgBox(" Vous ?tes sur d'Annuler la ligne" & vbCr & "V?hicule N? " & _
CboVehicule.Text, vbYesNo + vbExclamation, "SUPRESSION") = vbNo Then Exit Sub
lig = ListView1.SelectedItem.Index + 1
ListView1.ListItems.Remove lig
Feuil1.Rows(lig).Delete
End Sub
Private Sub CommandButton7_Click()
' Imprimer
Dim I As Integer
With Sheets("Imp")
.[A6:F5000].ClearContents
For I = 1 To Me.ListView1.ListItems.Count
For k = 1 To 6
.Cells(I + 5, k).Value = Me.ListView1.ListItems(I).ListSubItems(k).Text
Next
Next I
Me.Hide
.PrintPreview
'.PrintOut 'Imprime la feuille
frmListView.Show
End With
End Sub
Private Sub CommandButton7_Click()
' Imprimer
Dim I As Integer
With Sheets("Imp")
.[A6:F5000].ClearContents
For I = 1 To Me.ListView1.ListItems.Count
.Range("A" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(2).Text
.Range("B" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(1).Text
.Range("C" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(3).Text
.Range("D" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(4).Text
.Range("E" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(8).Text
'.Range("F" & I + 5).Value = Me.ListView1.ListItems(I).ListSubItems(9).Text
Next I
Me.Hide
.PrintPreview
'.PrintOut 'Imprime la feuille
frmListView.Show
End With
End Sub