Copier/Coller dans cellule vide et sans "formule"

[BigJules]

Bonjour à tous,

Je bloque sur cette macro depuis quelques heures car je n'arrive pas à recopier la cellule C13 sans la formule dans la première cellule vide de la colonne K.

J'ai testé plusieurs codes trouvés sur internet mais en vain ...

Voici ma macro

Sub test()

Sheets("Feuil1").Cells(13, 3).Copy Sheets("Feuil1").Cells(65535, 11).End(xlUp)(2)

End Sub

Si quelqu'un pouvez m'eclairer

Merci et bonne soirée à tous

ps: je débute en VBA

Big Jules

 

[phlaurent55]

Re : Copier/Coller dans cellule vide et sans "formule"

Bonjour Big Jules,

avec ce code:

Sheets("Feuil1").Cells(13, 3).Copy
Sheets("Feuil1").Range("K" & Range("K65525").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues

à+
Philippe

 

[phlaurent55]

Re : Copier/Coller dans cellule vide et sans "formule"

Re,

ou plus simplement:

Sub Test()
Sheets("Feuil1").Range("K" & Range("K65525").End(xlUp).Row + 1) = Sheets("Feuil1").Cells(13, 3)
End Sub

à+
Philippe

 

[JBARBE]

Re : Copier/Coller dans cellule vide et sans "formule"

Bonsoir à tous,

Un essai :

With Sheets("Feuil1")

.Range("C13").Copy .Range ("K65536"). End(XlUp).offset(1,0)

end With

Bonne soirée

 

[BigJules]

Re : Copier/Coller dans cellule vide et sans "formule"

Re bonsoir,

Merci Philippe ta solution marche parfaitement Sais-tu comment faire pour que la cellule C13 ne reste pas sélectionnée une fois la macro exécutée ?

Merci également à Jbarbe mais cette macro ne fonctionne pas (la formule se copie dans la premiere cellule vide )

Merci et bonne soirée

BigJules

 

[tototiti2008]

Re : Copier/Coller dans cellule vide et sans "formule"

Bonsoir à tous,

Je suppose que par

Sais-tu comment faire pour que la cellule C13 ne reste pas sélectionnée une fois la macro exécutée ?

tu veux dire faire disparaître les pointillés qui entourent C13 ?

si oui, ajoute avant End Sub

Application.cutcopymode=false

 

[BigJules]

Re : Copier/Coller dans cellule vide et sans "formule"

Merci Tototiti ca marche parfaitement

A bientôt