Coller la valeur d'une cellule VBA

Résolu

Valeur
Vba

HEMIYELY Messages postés 61 Date d'inscription Statut Membre Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 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

Afficher la suite

A voir également:

Coller valeur vba
Dessin sms copier coller zizi ✓ - Forum Réseaux sociaux
Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum Excel
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Historique copier coller - Guide
Copier-coller - Accueil - Informatique

2 réponses

Réponse 1 / 2

titeufdu89 Messages postés 374 Date d'inscription Statut Membre Dernière intervention 38

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

HEMIYELY Messages postés 61 Date d'inscription Statut Membre Dernière intervention

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 ?

Réponse 2 / 2

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 315

Bonjour,

en VBA on évite au maximum d'utiliser copy paste, particulièrement chronophage et lourd

essaies

Option Explicit
Sub vvvv()
Dim lrow As Long, xxx

With ThisWorkbook.Worksheets("BASE DE DONNEES")
    xxx = Worksheets("INFORMATION").Range("C8").Value
    '1. Find last used row in destination sheet
    lrow = .Cells(Worksheets("BASE DE DONNEES").Rows.Count, 1).End(xlUp).Row + 1
    .Range("H" & lrow) = xxx
End With
End Sub

HEMIYELY Messages postés 61 Date d'inscription Statut Membre Dernière intervention

Merci de votre réponse mais à quoi correspondent les xxx ?

Hervé > HEMIYELY Messages postés 61 Date d'inscription Statut Membre Dernière intervention

xxx est le nom d'une variable ; celle qui doit contenir la valeur de C8 ;
tu peux bien sûr renommer cette variable de façon plus explicite :
lors de sa définition en ligne Dim, et les 2 fois où elle est utilisée.

vvvv n'est pas un nom de sub très explicite, et tu peux aussi
le renommer à ton choix (en laissant les parenthèses).

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 315 > Hervé

Bonjour,

j'ai mis xxx, pourquoi pas ? il faudrait dire dans les déclarations quel est son type: texte, nombre entier, date.... ce qui permettrait d'avoir un nom plus explicite...
j'ai mis vvv car j'ai fait çà rapidement en prenant sur mon temps libre

un topo sur les variables
https://silkyroad.developpez.com/VBA/LesVariables/

et aussi (+complet)
https://mhubiche.developpez.com/Access/variables/

Discussions similaires

Renvoyer une valeur d'une cellule dans une autre feuille

Récupérer une valeur d'une autre feuille grace à un code.

code vba max et min

Afficher le numéro de ligne de la cellule

Afficher la valeur de la derniere cellule non vide dans textbox

Attribué une valeur a un choix de Combobox VBA

Votre réponse

Discussions similaires