Discussion :

[skorpio]

on est parvenu à me fournir une ligne de code qui me permet de supprimer une ligne voir une plage...

voici ce code

Code :

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

1
2
3
 
Range("A1:B1").Select
Selection.Delete Shift:=xlUp

mon problème maintenant et que je souhaiterai grace à un Userform qui contient un TextBox et un CommandButton pouvoir moi même choisir la ligne que je veux supprimer.

ex: je saisi 3 dans le textBox je valide, et c'est la ligne 3 qui disparait

je demande ça car je sais qu'il y a plus facil, par exemple je peux directement supprimer une ligne à partir de la feuille excel, mais en fait la ligne que je souhaite supprimé se trouve dans une liste (listeObject)
je sais pas si j'ai été clair, si vous avez des questions?

[jfontaine]

Je ne sais pas si j'ai cerné ton problème

Tu veux supprimer une ligne a partir d'un userform. (ici la ligne 20)

Code :

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

Sheets("feuil1").Rows(20).Delete

Par contre, je ne comprend pas ce qu'est la listeobject. (une listbox peut être)

[skorpio]

listobject tu le trouve en faisant Données/liste/créer une liste

et en fait c'est une ligne dans la liste que je veux delete...

[jfontaine]

Peut être ca alors

Code :

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

Selection.ListObject.ListRows(NumLigne).Delete

[skorpio]

c'est parfait ça marche, avec ça

Code :

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

ActiveSheet.ListObjects("Liste1").ListRows(NumLigne).delete

que c'est que je pourai faire pour que ce soit moi qui lui dise quel ligne delete

en fait NumLigne serait une variable?

[mordrhim]

Code :

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

1
2
3
4
5
6
Sub SupprimerLigne()
    Dim NumLigne as Integer
 
    NumLigne = InputBox("Veuillez entrer la ligne à supprimer","Suppression de ligne",0)
    Rows(NumLigne ).Delete
End Sub