Discussion :

[Ihaben]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[BENNASR]

Bonjour
sans tester essayer qq chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Ihaben]

Merci les gars ça marche très bien.