Bonjour le forum,
Je suis sur une partie du code où j'effectue un test pour savoir s'il y a trop d'éléments sur la feuille, auquel cas, il faut créer une seconde feuille avec la même appellation en rajoutant un signe distinctif, par exemple (2).
Jusque là ça fonctionne correctement.
Je veux ensuite copier l'éxcedant pour le mettre sur la nouvelle feuille, mais ne connaissant pas la taille du tableau à l'avance j'ai essayé ce code :
WbC = ThisWorkbook.Name
lastCol = Cells(4, Columns.Count).End(xlToLeft).Column
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
If lastCol > 18 Then
mySheet = ActiveSheet.Name & "(2)"
Workbooks(WbC).Sheets.Add.Name = mySheet
Sheets("Feuil1").Range(Cells(4, 19), Cells(lastRow, lastCol)).Copy Sheets("mySheet").Range("E4")
Et la dernière ligne bug (erreur 9, l'indice n'appartient pas à la sélection).
J'ai essayé de diverses manière mais cela n'a pas l'air de changer.
C'est surement un truc tout con mais là je bloque.
Donc voilà, si quelqu'un me file un coup de main, cela sera très apprécié.