[EXCEL VBA] Supprimer une ligne selon son numéro saisi dans un textbox

Bonjour,

Je gère une liste de commande, et j'avais créer un bouton qui va permettre de supprimer une commande selon le numéro de la ligne où se trouve cette dernière.
J'avais créer un macro qui fonctionne sur le faite de supprimer que la dernière commande du tableur par contre je peux pas supprimer une commande qui se trouve au milieu du tableur par exemple.

Voici mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim i As Long i = Worksheets("COMMANDES").Range("A65535").End(xlUp).Row If MsgBox("Voulez-vous vraiment supprimer cette commande ?", vbYesNo, "Demande de confirmation") = vbYes Then If UserForm7.TextBox1.Value = i Then Rows(i).Select Selection.Delete Shift:=xlUp Else Exit Sub End If End If

---

Je vous remercie.

Bonjour
sans tester essayer qq chose comme ça :

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() Dim l As Variant l = CDbl(TextBox1.Value) Cells(l, 1).EntireRow.Delete End Sub

---

Es-tu sûr qu'il soit utile de faire une macro (et en plus un UserForm) pour ça ?

Parce qu'en standar, il suffit de faire clic droit sur la ligne souhaitée > Supprimer > Ligne entière > Ok.

Si tu tiens vraiment à la macro :

Code:

---

1 2 3 4

Dim Rep As String Rep = InputBox("Quelle ligne voulez-vous supprimer ?", "Suppression", Selection.Row) If Rep = "" Then Exit Sub Rows(CLng(Rep)).Delete

---

Pas besoin de UserForm.

Merci les gars ça marche très bien.