Bonjour
Voici une solution pour déterminer la dernière ligne d'un tableau :
Pour chaque colonne de 1 à 12*, on détermine à partir du bas, le rang de la dernière cellule non vide. Si le rang trouvé est supérieur au plus grand précédent, "dernière" prend cette valeur, puis te voilà rendu 1 ligne en-dessous de la dernière ligne non vide. (très rapide)
*Remplace le 12 par le nbre de colonnes de ton tableau
Code :
- Dim Ligne, dernière as Integer
- Range("a1" ).Select
- For i = 1 To 12
- Ligne = Cells(65530, i).end(xlUp).Row
- If Ligne > dernière Then dernière = Ligne
- Next i
- Range("a" & dernière).Offset(1,0).Select
- ActiveSheet.Paste
|
Par ailleurs, au lieu de récupérer les chemins, onglets, etc, tu peux utiliser ceci sur une feuille visitée:
Set MaFeuille_1 = ActiveSheet
et pour y revenir:
MaFeuille_1.Select
MaFeuille_2, etc
Bien cordialement
PS: Pour info, tu as aussi cette façon très rapide de frouver la dernière ligne d'une feuille:
Code :
- dernière = Range("a1" ).SpecialCells(xlLastCell).Row
- Range("a" & dernière).Offset(1, 0).Select
- ActiveSheet.Paste
|
Mais attention! cela indique la dernière ligne Ayant été utilisée, qui peut se trouver X lignes plus bas que celle désirée...
Message édité par Laoo le 07-01-2010 à 03:37:19
---------------
Olympus OM-D EM-5 + 14-42