XL 2013 Copier Coller dernière colonne non vide

BLB · 25 Août 2019

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 · 25 Août 2019

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

BLB · 25 Août 2019

Bonjour Jacky,

Merci beaucoup ça fonctionne à merveille.

Bonne soirée

Jacky67 · 26 Août 2019

BLB à dit:
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

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

XL 2013 Copier Coller dernière colonne non vide

BLB

XLDnaute Nouveau

Pièces jointes

Jacky67

XLDnaute Barbatruc

BLB

XLDnaute Nouveau

Jacky67

XLDnaute Barbatruc

Discussions similaires