copier coller 2 dernières colonnes non vide (résolu)

miliev83

XLDnaute Occasionnel
Rebjr,

Pouvez-vous m'aider à copier coller les 2 dernières colonnes d'un tableau variable ?
A coller sur onglet feuil1 par exemple

Merci A+
 

miliev83

XLDnaute Occasionnel
merci jacky, est-il possible d'adapter le code pour que cela colle à partir de la première colonne vide de la feuil1 ? J'ai essayé en mettant avant ton code :
Code:
Range("IV" & ActiveCell.Row).End(xlToLeft).Offset(0, 1).Select
Mais cela ne fonctionne pas...
 

miliev83

XLDnaute Occasionnel
C'est bon j'ai trouvé bon ce n'est pas très propre mais ça marche :D
Code:
Sub CopyColonne()
Dim DerCol&
With Sheets("PRIO")
Range("A1").Select
Range("IV" & ActiveCell.Row).End(xlToLeft).Offset(0, 1).Select
  DerCol = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
  .Range(.Columns(DerCol - 1), .Columns(DerCol)).Copy
Sheets("feuil1").Select
Range("A1").Select
Range("IV" & ActiveCell.Row).End(xlToLeft).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End With
End Sub

Merci encore
 

Jacky67

XLDnaute Barbatruc
merci jacky, est-il possible d'adapter le code pour que cela colle à partir de la première colonne vide de la feuil1 ? J'ai essayé en mettant avant ton code :
Code:
Range("IV" & ActiveCell.Row).End(xlToLeft).Offset(0, 1).Select
Mais cela ne fonctionne pas...
Re..
Essaye
VB:
Sub CopyColonne()
Dim DerCol&, DerColCible&
DerColCible = 1
On Error Resume Next
DerColCible = Sheets("Feuil1").Cells.Find("*", , , , xlByColumns, xlPrevious).Column + 1
With Sheets("PRIO")
  DerCol = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
  .Range(.Columns(DerCol - 1), .Columns(DerCol)).Copy Sheets("Feuil1").Cells(1, DerColCible)
End With
End Sub
 

BLB

XLDnaute Nouveau
Bonjour,

J'ai à peu près le même soucis. 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 précédemment donnés par Jacky 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: 3
Dernière édition:

Discussions similaires

Réponses
6
Affichages
362
Réponses
7
Affichages
490
Réponses
15
Affichages
425