Voila j'ai un soucis. je voudrai un code vba qui permet de supprimer une ligne d
Résolu
RISTY123
Messages postés
3
Date d'inscription
jeudi 26 mars 2009
Statut
Membre
Dernière intervention
4 avril 2009
-
3 avril 2009 à 17:16
RISTY123 Messages postés 3 Date d'inscription jeudi 26 mars 2009 Statut Membre Dernière intervention 4 avril 2009 - 3 avril 2009 à 19:01
RISTY123 Messages postés 3 Date d'inscription jeudi 26 mars 2009 Statut Membre Dernière intervention 4 avril 2009 - 3 avril 2009 à 19:01
1 réponse
RISTY123
Messages postés
3
Date d'inscription
jeudi 26 mars 2009
Statut
Membre
Dernière intervention
4 avril 2009
3 avril 2009 à 19:01
3 avril 2009 à 19:01
voila j'ai pu resoudre mon pb
voici le code :
Private Sub CommandButton3_Click()
Dim i As Integer
Dim r As Integer
r = MsgBox("Attention vous êtes entrain de supprimer le matériel" & " " & ListView1.SelectedItem.Text, vbYesNo + vbQuestion, "Voulez-vous vraiment le Supprimer?")
If r = vbNo Then
Exit Sub
Else
For i = 2 To Sheets("BASE").Range("A65536").End(xlUp).Row
If Sheets("BASE").Cells(i, 1).Value = ListView1.SelectedItem.Text Then
Sheets("BASE").Rows(i).Delete Shift:=xlUp
Exit For
End If
Next i
ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
End If
End Sub
l'union fait la compréhension
voici le code :
Private Sub CommandButton3_Click()
Dim i As Integer
Dim r As Integer
r = MsgBox("Attention vous êtes entrain de supprimer le matériel" & " " & ListView1.SelectedItem.Text, vbYesNo + vbQuestion, "Voulez-vous vraiment le Supprimer?")
If r = vbNo Then
Exit Sub
Else
For i = 2 To Sheets("BASE").Range("A65536").End(xlUp).Row
If Sheets("BASE").Cells(i, 1).Value = ListView1.SelectedItem.Text Then
Sheets("BASE").Rows(i).Delete Shift:=xlUp
Exit For
End If
Next i
ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
End If
End Sub
l'union fait la compréhension