Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Bureautique

VBA .Copier valeur cellule excel sans formule

Dernière réponse le 17 fév 2009 à 17:34:59 sanchis81, le 17 fév 2009 à 11:59:24

Signaler ce message aux modérateurs

Bonjour,

j'ai utilisé une macro qui copie le contenu d'une cellule pour le copier dans la dernière ligne non vide d'une colonne.

Malheureusement, si la cellule de départ contient une formule, ce sera la formule qui sera copiée dans la cellule d'arrivée et non la valeur de la cellule de départ.

Voici mon code:

Sub test()
Sheets(1).Cells(1, 1).Copy Sheets(2).Cells(65535, 1).End(xlUp)(2)
End Sub

Que dois-je modifier à ce code pour pouvoir vraiment copier la valeur de la cellule de départ?

Configuration: Windows XP
Internet Explorer 6.0

Posez votre question Répondre

gbinforme, le 17 fév 2009 à 12:13:18

Bonjour

Essaies plutôt ceci :

Sub test()
Sheets(2).Cells(65535, 1).End(xlUp).value = Sheets(1).Cells(1, 1).value
End Sub

Toujours zen

Répondre à gbinforme

sanchis81, le 17 fév 2009 à 12:30:08

Merci gbinforme pour ta réponse!

Effectivement, je retrouve maintenant la valeur copiée cependant la macro me la copie dans la première cellule non-vide.

Je crée une macro qui va copier une valeur d'une cellule pour la copier dans la première cellule vide d'une colonne d'une autre feuille.

Ton code permet de copier et coller la valeur de la cellule mais ne me permets plus de remplir la première cellule vide de la colonne.

As tu une idée?

Encore merci pour ta réponse

Répondre à sanchis81

gbinforme, le 17 fév 2009 à 17:34:59

Bonjour sanchis81,

Il suffit de décaler de 1 mais j'avais gardé ta formulation.

Sub test()
Sheets(2).Cells(65535, 1).End(xlUp).offset(1,0).value = Sheets(1).Cells(1, 1).value
End Sub

Toujours zen

Répondre à gbinforme

m@rina, le 17 fév 2009 à 12:20:12

Bonjour

Essaie ça :

Sub test() 
Sheets(1).Cells(1, 1).Copy 
Sheets(2).Cells(65535, 1).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
End Sub

m@rina Inutile de me poser des questions en MP...
Définitivement je n'y réponds pas... Le forum est fait pour ça.

Répondre à m@rina

Posez votre question Répondre