XL 2016 copier la même ligne sur la dernière ligne vierge d'un tableau

[eastwick]

Re-bonjour à tout le forum,

Avant d'envoyer un fichier, question :
Est-il possible (par macro enregistrée) de copier une ligne d'un onglet C22:R22 vers la dernière ligne vierge d'un tableau se situant dans un autre onglet ?
De fait, cette même ligne C22:R22 devra descendre d'une ligne sur le tableau à chaque nouvelle application de la macro.
Merci pour vos éclaircissements !

 

[job75]

Bonjour eastwick,

Si le tableau est structuré normalement il n'y a pas de lignes vierges.

A+

 

[eastwick]

Bonjour job75, je reformule, il s'agirait de copier cette même ligne sous la dernière ligne non vierge d'un tableau.
Ce dernier prend donc une ligne à chaque fois...

 

[job75]

Si le tableau de destination est structuré et se nomme "Tableau1" exécutez cette macro :

Sub Copier()
Dim derlig&
With [Tableau1]
    derlig = .Find("*", , xlValues, , xlByRows, xlPrevious).Row - .Row + 1
    [C22:R22].Copy .Cells(derlig + 1, 1)
End With
End Sub

 

[job75]

Au cas où le tableau serait vide il vaut mieux utiliser :

Sub Copier()
Dim derlig&
With [Tableau1].ListObject.Range
    derlig = .Find("*", , xlValues, , xlByRows, xlPrevious).Row - .Row + 1
    [C22:R22].Copy .Cells(derlig + 1, 1)
End With
End Sub

 

[eastwick]

Je vous remercie job75, je tâche de mettre ceci en pratique demain. Bonne soirée

 

[eastwick]

Si le tableau de destination est structuré et se nomme "Tableau1" exécutez cette macro :

Sub Copier()
Dim derlig&
With [Tableau1]
    derlig = .Find("*", , xlValues, , xlByRows, xlPrevious).Row - .Row + 1
    [C22:R22].Copy .Cells(derlig + 1, 1)
End With
End Sub

Bonjour job75, ça fonctionne mais j'ai oublié de spécifier que le collage doit s'effectuer en tant que valeur. En effet, la ligne 22 ne contient que des formules. Merci beaucoup.

 

[job75]

Bonjour eastwick, le forum,

Vous devez savoir le faire :

Sub Copier()
Dim derlig&
With [Tableau1].ListObject.Range
    derlig = .Find("*", , xlValues, , xlByRows, xlPrevious).Row - .Row + 1
    .Cells(derlig + 1, 1).Resize(, 16) = [C22].Resize(, 16).Value 'copie les valeurs
End With
End Sub

A+

 

[eastwick]

Merci job75