End Sub insuffisant ?

bonjour à tous,
je fais une (micro)macro pour connaitre le nb de lignes d' feuille,
soit

Sub Macro1()
n = ActiveSheet.UsedRange.Rows.Count '
MsgBox (n)
End Sub

le cpte est bon, mais ça boucle sur le OK de la box,
et faut un ctl-alt-del pour arreter
par contre, si je mets

Sub Macro1()
n = ActiveSheet.UsedRange.Rows.Count '
MsgBox (n)
Exit Sub
End Sub

plus de pb
ma question: pourquoi le End Sub ne fait pas un exit implicite ?
merci d'avance

bonjour à tous,
je fais une (micro)macro pour connaitre le nb de lignes d' feuille,
soit

Sub Macro1()
n = ActiveSheet.UsedRange.Rows.Count '
MsgBox (n)
End Sub

le cpte est bon, mais ça boucle sur le OK de la box,
et faut un ctl-alt-del pour arreter
par contre, si je mets

Sub Macro1()
n = ActiveSheet.UsedRange.Rows.Count '
MsgBox (n)
Exit Sub
End Sub

plus de pb
ma question: pourquoi le End Sub ne fait pas un exit implicite ?
merci d'avance

bonjour
ta macro fonctionne parfaitement chez moi... et quitte bien là ou il faut.
Essaie dans un classeur neuf ?
oui, chez moi aussi,

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

bonjour à tous,
je fais une (micro)macro pour connaitre le nb de lignes d' feuille,
soit

Sub Macro1()
n = ActiveSheet.UsedRange.Rows.Count '
MsgBox (n)
End Sub

le cpte est bon, mais ça boucle sur le OK de la box,
et faut un ctl-alt-del pour arreter
par contre, si je mets

Sub Macro1()
n = ActiveSheet.UsedRange.Rows.Count '
MsgBox (n)
Exit Sub
End Sub

plus de pb
ma question: pourquoi le End Sub ne fait pas un exit implicite ?
merci d'avance

Bonjour,

For i = 2 To Sheets.Count
MsgBox Sheets(i).[A65000].End(xlUp).Row
Next

heu, ça affiche 3 pour un classeur de base ?