Coller la valeur d'une cellule VBA

Résolu/Fermé
HEMIYELY Messages postés 61 Date d'inscription mercredi 10 mai 2017 Statut Membre Dernière intervention 25 janvier 2022 - 12 juin 2017 à 10:19
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 13 juin 2017 à 08:00
Bonjour,
Je souhaite copier la valeur d'une cellule et non la formule. Voici mon code :

ThisWorkbook.Activate

'1. Find last used row in destination sheet
lRow = Worksheets("BASE DE DONNEES").Cells(Worksheets("BASE DE DONNEES").Rows.Count, 1).End(xlUp).Row

'Offset 1 row below last used row
lRow = lRow + 1

'2. Copy data
Worksheets("INFORMATION").Range("C8").Copy

'3. Paste data
Worksheets("BASE DE DONNEES").Range("H" & lRow).PasteSpecial

'Clear copy mode (marching ants around copied range)
Application.CutCopyMode = False



La cellule "C8" de la feuille "INFORMATION" se copie bien dans la colonne H de la feuille "BASE DE DONNEES" mais c'est la formule qui est copiée et non la valeur.

Pouvez-vous m'aider ?
Cordialement

2 réponses

titeufdu89 Messages postés 374 Date d'inscription samedi 28 juillet 2012 Statut Membre Dernière intervention 1 avril 2023 38
12 juin 2017 à 10:25
Bonjour,

Pour ton '3. Paste data, remplace ton code existant par celui ci :


Worksheets("BASE DE DONNEES").Range("H" & lRow).Select
Selection.PasteSpecial Paste:=xlPasteValues


Ca devrait le faire,

Bonne journée

Jc
0
HEMIYELY Messages postés 61 Date d'inscription mercredi 10 mai 2017 Statut Membre Dernière intervention 25 janvier 2022
12 juin 2017 à 17:19
Merci de votre réponse. Cela fonctionne mais une seule fois. Lorsque je clique une seconde fois sur la macro j'ai un message d'erreur : Erreur d'exécution '1004': La méthode Select de la Classe Range a échoué.

Connaissez-vous ce genre d'erreur ?
0