Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
bonjour à tous,je fais une (micro)macro pour connaitre le nb de lignes d' feuille,soitSub Macro1()n = ActiveSheet.UsedRange.Rows.Count 'MsgBox (n)End Suble cpte est bon, mais ça boucle sur le OK de la box,et faut un ctl-alt-del pour arreterpar contre, si je metsSub Macro1()n = ActiveSheet.UsedRange.Rows.Count 'MsgBox (n)Exit SubEnd Subplus de pbma 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
bonjourta macro fonctionne parfaitement chez moi... et quitte bien là ou il faut.Essaie dans un classeur neuf ?oui, chez moi aussi,
Misange migrateuseXlWiki : Participez à un travail collaboratif sur excel !http://xlwiki.free.fr/wikihttp://www.excelabo.netbonjour à tous,je fais une (micro)macro pour connaitre le nb de lignes d' feuille,soitSub Macro1()n = ActiveSheet.UsedRange.Rows.Count 'MsgBox (n)End Suble cpte est bon, mais ça boucle sur le OK de la box,et faut un ctl-alt-del pour arreterpar contre, si je metsSub Macro1()n = ActiveSheet.UsedRange.Rows.Count 'MsgBox (n)Exit SubEnd Subplus de pbma 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.CountMsgBox Sheets(i).[A65000].End(xlUp).RowNextheu, ça affiche 3 pour un classeur de base ?
Bonjour, For i = 2 To Sheets.Count MsgBox Sheets(i).[A65000].End(xlUp).Row Next heu, ça affiche 3 pour un classeur de base ?