Bonjour Je voudrai que lorsque que je clique sur le bouton supprimer qu'il me demande le numéro d 'identifiant que je souhaite supprimer et de me supprimer la ligne si je fais oui si non il fait rien et ferme la fenêtre.

Je galère un peut voici mon code merci beaucoup
Je fais cela pour une association.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub btnsupdelabasebddinv_Click()
 
Sheets("DOSSIERS Les invisibles").Activate
Dim i As Integer
Dim SupprimeLigne As String
 
SupprimeLigne = InputBox("Veuillez taper le numéro d'identifiant OE à supprimer", "SUPPRESSION")
 
With ThisWorkbook.Sheets("DOSSIERS Les invisibles")
 
 
'on se positionne sur la dernière ligne de la colonne A et on remonte jusqu'à la n°2
For i = .Range("V" & .Rows.Count).End(xlUp).Row To 2 Step -1
 
MsgBox "Etes vous sur de vouloir supprimer de la base cet identifiant?", vbYesNo + vbInformation, "CONFIRMATION"
'If Reponse = vbYes Then
'on supprime la ligne.
Rows(i).Delete
 
End If
Next i
 
End With
 
End Sub