Coller la valeur d'une cellule VBA Résolu

Question

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

titeufdu89 · Answer

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

michel_m · Answer

Bonjour,

en VBA on évite au maximum d'utiliser copy paste, particulièrement  chronophage et lourd

essaies
Option ExplicitSub vvvv()Dim lrow As Long, xxxWith 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) = xxxEnd WithEnd Sub

Coller la valeur d'une cellule VBA

2 réponses

Discussions similaires

Newsletters