Dernière rangée d'une autre feuille
Bonjour le Forum,
Je crée un bon de commande depuis une feuille "BonCommande" puis j'écris les informations dans la feuille du compte, p.ex. 6580. Et pour savoir où écrire, je dois détecter la dernière ligne de ladite feuille.
la ligne VBA suivante fonctionne impec,
LastLine = Worksheets("6580").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Rowmais ne fonctionne plus lorsque je veux utiliser la variable "NoCompte" comme nom de feuille, par exemple
LastLine = Worksheets(NoCompte).Cells(ActiveSheet.Rows.Count, 1).End(xlUp).RowEt je ne trouve pas... Quelqu^'un aurait une solution?
Merci
Bonjour,
à tester,
NoCompte = "" & 6580
LastLine = Worksheets(NoCompte).Cells(Rows.Count, 1).End(xlUp).Rowutilise Rows.Count sans mentionner la feuille, puisque tous les feuilles ont le même nombre de lignes.
Ca fonctionne à merveille merci. Cela dit, je trouve assez frustrant de devoir passer par ce qu'il me semble être un truc d'expert alors que ce devait pour être fait directement, donc sans utiliser le SheetName = "" & Range("NoCompte")
J'ai adapté mon code selon ta réponse:
SheetName = "" & Range("NoCompte")
LastLine = Worksheets(SheetName).Cells(Rows.Count, 1).End(xlUp).RowBon week-end