Supprimer une ligne inconnue

[deudecos]

Bonjour le forum,

Me voici de nouveau avec une question qui me semble idiote, mais dont je suis bien incapable de trouver la reponse... 🙁

Je suis face a une liste remplie grace a un userform.
Il peut erriver que je fasse une erreur, donc je voudrais pouvoir effacer(supprimer) la derniere ligne enregistree grace a un bouton a cet effet sur mon userform.
Hors, je ne connais pas le numero de la ligne a supprimer, tout ce que je sais, c'est que c'est la derniere de la liste.
J'avais pense a un truc du genre...

sheets('feuil1').range('a65536').row.select

Selection.Delete Shift:=xlUp

Mais voila, ca ne marche que pour la premiere cellule, et je ne parviens pas a trouver la bonne formule... :S

Est ce qu'une bonne ame pourrait me donner la reponse ? Afin que je ne reste plus dans mon ignorance 😱

Bon dimanche a tous
Olivier

 

[PascalXLD]

Bonjour

essaies

rows(range('A65536).end(xlup).row).delete

Bon courage

 

[dg62]

Bonjour deudecos, le forum

Sub annuleLigne()
Dim dRoW As Integer
dRoW = Sheets('feuil1'Â'Â').Range('A65536'Â'Â').End(xlUp).Row
Worksheets('feuil1'Â'Â').Rows(dRoW).Delete
End Sub

Salut Pascal ( pas rafraichi) Bon Dimanche

Message édité par: dg62, à: 22/05/2005 12:52

 

[deudecos]

Re bonjour Didier, Pascal, le forum,

De retour de ma promenade dominicale, j'ai eu l'excelente surprise d'avoir des reponses, et qui plus est, ca fonctionne!
Merci a vous deux et bonne fin de dimanche

Olivier