Bonsoir à tous
Je sélectionne 1 ligne dans une listView par 1 clic ( 2 clics appel un UserForm)
pour la supprimer dans ma base de données à l'aide de la macro ci dessous.Pour ne pas supprimer n'importe comment j'ai mis le If, mais le probleme c'est que je ne peux supprimer la premiere ligne qui est la N°2
Comment Faire ?
Private Sub CommandButton4M_Click() ' Supprimer 1 Enregistrement
Dim SuppLigne As Long
With UserForm2.ListView1
SuppLigne = Mid(.ListItems(.SelectedItem.Index).ListSubItems(1).Key, 2) '(1) N°colonne ;1° colonne = 0 Feuille Factures
End With
If SuppLigne = 2 Then Exit Sub
With Worksheets("Donnees")
.Rows(SuppLigne).Delete Shift:=xlUp
End With
Unload Me
Unload UserForm2
Call UserForm2.Show
End Sub
Je vous remercie de votre aide
Je sélectionne 1 ligne dans une listView par 1 clic ( 2 clics appel un UserForm)
pour la supprimer dans ma base de données à l'aide de la macro ci dessous.Pour ne pas supprimer n'importe comment j'ai mis le If, mais le probleme c'est que je ne peux supprimer la premiere ligne qui est la N°2
Comment Faire ?
Private Sub CommandButton4M_Click() ' Supprimer 1 Enregistrement
Dim SuppLigne As Long
With UserForm2.ListView1
SuppLigne = Mid(.ListItems(.SelectedItem.Index).ListSubItems(1).Key, 2) '(1) N°colonne ;1° colonne = 0 Feuille Factures
End With
If SuppLigne = 2 Then Exit Sub
With Worksheets("Donnees")
.Rows(SuppLigne).Delete Shift:=xlUp
End With
Unload Me
Unload UserForm2
Call UserForm2.Show
End Sub
Je vous remercie de votre aide
Dernière édition: