XL 2013 Copier Coller dernière colonne non vide

BLB

XLDnaute Nouveau
Bonjour,

Je souhaiterai reprendre la dernière colonne d'un tableau à colonnes variables, dans une autre feuille du même classeur.

J'ai essayé des formules excel (c'est pourquoi vous verrez qu'il y a des formules dans la feuille CLOSING) mais cela n'a pas fonctionné.

J'ai essayé les codes trouvé dans une discussion similaire (copier coller 2 dernières colonnes non vides) mais j'ai des erreurs, je pense que c'est uniquement parce que j'ai copié bêtement sans comprendre ce que cela signifiait réellement (je suis plus que novice en matière de VBA). Pouvez-vous s'il vous plaît m'aider?

Merci beaucoup
 

Pièces jointes

  • Fichier250819.xlsm
    25.5 KB · Affichages: 19

Jacky67

XLDnaute Barbatruc
Bonjour,
Cela pourrait ressembler à ceci

VB:
Private Sub CalculClosing_Click()
    Dim DerCol&, Derlg&
    With Sheets("SYNTHESE ANNUELLE")
        DerCol = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
        Derlg = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
        .Range(.Cells(2, DerCol), .Cells(Derlg, DerCol)).Copy Sheets("CLOSING").[b2]
    End With
End Sub
 

Jacky67

XLDnaute Barbatruc
Bonjour Jacky,

Merci beaucoup ça fonctionne à merveille.

Bonne soirée
Re..
:confused:
Désolé, je n'avais pas vu qu'en feuille "SYNTHESE ANNUELLE" le tableau était un tableau structuré.
Le code en sera plus simple
VB:
Private Sub CalculClosing_Click()
  [Tableau2].Offset(, [Tableau2].Columns.Count - 1).Resize(, 1).Copy Sheets("CLOSING").[b2]
End Sub
Cela dit/écrit, les deux fonctionnent, c'est au choix ;)
 

Discussions similaires

Réponses
6
Affichages
362

Statistiques des forums

Discussions
311 720
Messages
2 081 898
Membres
101 834
dernier inscrit
Jeremy06510