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).
=>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)
VB:
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
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)
VB:
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