XL 2019 copier, coller VBA

[Guismo33]

Bonjour à vous la communauté,

je voudrais copier la colonne "J" qui a des cellules avec formule de la feuille "Prono" pour
la coller dans la feuille "Feuil1" a la prochaine colonne vide sans les formules( c une colonne a nombre).

merci la communauté


bien à vous

 

[Staple1600]

Bonjour le fil, Guismo33

=>Guismo33
L'enregistreur de macros ne s'use que si on l'utilise...
Donc en direct de mon enregistreur de macros
(avec un léger remodelage final)

Sub Macro1()
Dim rng As Range
Columns("J:J").SpecialCells(xlCellTypeFormulas, 1).Copy
Set rng = Sheets("Feuil1").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
rng.PasteSpecial Paste:=xlPasteValues
End Sub

 

[Guismo33]

Bonjour le fil, Guismo33

=>Guismo33
L'enregistreur de macros ne s'use que si on l'utilise...
Donc en direct de mon enregistreur de macros
(avec un léger remodelage final)

Sub Macro1()
Dim rng As Range
Columns("J:J").SpecialCells(xlCellTypeFormulas, 1).Copy
Set rng = Sheets("Feuil1").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
rng.PasteSpecial Paste:=xlPasteValues
End Sub

bonjour Staple,
je te remercie et bon dimanche.

bien à vous

 

[Staple1600]

Re

Merci.
Mais j'aurions aimé savoir si ma proposition VBA fonctionne en ta démeure?