XL 2013 Copier Coller dernière colonne non vide

[BLB]

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

 

[Jacky67]

Bonjour,
Cela pourrait ressembler à ceci

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

 

[BLB]

Bonjour Jacky,

Merci beaucoup ça fonctionne à merveille.

Bonne soirée

 

[Jacky67]

Bonjour Jacky,

Merci beaucoup ça fonctionne à merveille.

Bonne soirée

Re..
😕
Désolé, je n'avais pas vu qu'en feuille "SYNTHESE ANNUELLE" le tableau était un tableau structuré.
Le code en sera plus simple

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 😉