conseil sur les suppressions

[MielPops]

J'ai déjà beaucoup réfléchi sur cette épine mais quelque chose m'échappe surement.
J'ai une listbox avec des valeurs qui sont extraites de ma feuille 'certificat' et j'aimerais pouvoir programmer un bouton(inclu dans mon userform) de supression totale d'une ligne dans ma feuille. J'ai essayé comme ceci mais en vain

Dim m as single

with worksheets('certificat')
if listbox1.listindex<0 then exit sub
m=listbox1.listindex +31
end with

cells(m,1)=''
cells(m,2)=''
cells(m,3)=''

Sheets('certificat').rows('m:m').delete shift:=xlup

c'est la dernière ligne qui se fache lors de l'exécution.
j'ai parcouru les fichiers tutoriaux du site mais je n'ai rien trouvé!!! Quelqu'un peut-il m'aider?????

Merci d'avance et bon appétit

 

[PascalXLD]

Bonjour


ces 3 lignes sont inutiles

cells(m,1)=''
cells(m,2)=''
cells(m,3)=''

et celle-là modifies ainsi

Sheets('certificat').rows(m).delete shift:=xlup

ou


Sheets('certificat').rows(m & ':' & m).delete shift:=xlup

 

[bebere]

bonjour Mielpops,Pascal
Mielpops,tu multiplies les fils sur le même sujet
ainsi tu n'as pas vu que je t'ai répondu sur le fil précédent
à bientôt

 

[Mielpops]

Merci à vous pour le dépannage rapide. Je suis trés étonné car les solutions que vous m'avez proposé, je les aie déjà essayé auparavant et à l'instant, le résultat apparaît. Par contre je suis nouveau sur le forum et je n'ai pas eu le reflexe d'aller voir les anciens sujets. Désormais j'irai voir avant, désolé pour la multiplication des fils. en tout cas merci!!!