Selection de la dernière ligne
Résolu
Bonjour,
J'aimerais faire une macro qui prend les premières valeurs de mon tableau, puis coupe la fin du tableau et la colle sur un autre. Le problème est qu'à chaque nouveau tableau la dernière ligne n'est plus la bonne et j'aimerais que la macro sélectionne d'elle même cette dernière ligne...
Je sais que c'est tout bête mais je débute...
Quelqu'un aurait-il la solution?
J'aimerais faire une macro qui prend les premières valeurs de mon tableau, puis coupe la fin du tableau et la colle sur un autre. Le problème est qu'à chaque nouveau tableau la dernière ligne n'est plus la bonne et j'aimerais que la macro sélectionne d'elle même cette dernière ligne...
Sub Découpe_Excel()
'
' Découpe_Excel Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+D
'
Rows("30389:??"fin du fichier"??").Select
Selection.Cut
Workbooks.Add
ActiveSheet.Paste
End Sub
Je sais que c'est tout bête mais je débute...
Quelqu'un aurait-il la solution?
4 réponses
-
ModérateurBonjour,
Jette un oeil ici : https://forums.commentcamarche.net/forum/affich-37622001-vba-detection-de-cellule-vide-ligne-colonnne
-
Bonjour
Voici un exemple pour la dernière ligne de la colonne
DreniereLigneLigne = Cells(Columns(4).Cells.Count, 1).End(xlUp).Row -
Merci beaucoup à vous deux,
Il me reste un problème, lorsque je fais cette ligne de code et que je remplace ma valeur finale par DreniereLigneLigne, Excel me renvoie un message d'incompatibilité 13.
N'a t il pas enregistré DreniereLigneLigne comme valeur finale? -
Bien sûr. Le voici
Sub Découpe_Excel() ' ' Découpe_Excel Macro ' ' Touche de raccourci du clavier: Ctrl+Shift+D ' DerniereLigneLigne = Cells(Columns(4).Cells.Count, 1).End(xlUp).Row Rows("30389:DerniereLigneLigne").Select Selection.Cut Workbooks.Add ActiveSheet.Paste End Sub-
ModérateurDerniereLigneLigne (drôle de nom pour cette variable) est une variable. En conséquence, elle se doit d'être :
- déclarée,
- "sortie" des guillemets.
Soit le code suivant :Sub Découpe_Excel() ' ' Découpe_Excel Macro ' ' Touche de raccourci du clavier: Ctrl+Shift+D ' Dim DerniereLigneLigne As Long DerniereLigneLigne = Cells(Columns(4).Cells.Count, 1).End(xlUp).Row Rows("30389:" & DerniereLigneLigne).Select Selection.Cut Workbooks.Add ActiveSheet.Paste End Sub -
-
