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

[miliev83]

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]

fichier joint

 

[Jacky67]

Bonjour,
Exemple ==> exécution par clic sur un bouton

 

[miliev83]

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 :

Range("IV" & ActiveCell.Row).End(xlToLeft).Offset(0, 1).Select

Mais cela ne fonctionne pas...

 

[miliev83]

C'est bon j'ai trouvé bon ce n'est pas très propre mais ça marche 😀

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]

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 :

Range("IV" & ActiveCell.Row).End(xlToLeft).Offset(0, 1).Select

Mais cela ne fonctionne pas...

Re..
Essaye

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

 

[miliev83]

impec merci 🙂

 

[BLB]

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

 

[BLB]

J'ai créé une nouvelle discussion, si quelqu'un veut bien m'aider
Copier Coller dernière colonne non vide
Bonne soirée