Prob

Bonjour,

je souhaite copier des données de l'onglet data(codename est) sur copy(codename recette) avec cette ligne:

est.Range("B1:B17").Copy Destination:=recette.Range("B1:B17").PasteSpecial(xlPasteAllExceptBorders)

Le soucis est que ça ne copie rien! Si j'enlève 'pastescpecial' ça copie tout même les bordures.

Merci pour votre aide

23test.xlsm (17.19 Ko)

Bonjour,

essaie avec ce code qui ne colle que les valeurs

Sub Macro1()
'
' Macro1 Macro
'

    Sheets("data").Select
    ActiveCell.Range("B1:B17").Select
    Selection.Copy
    Sheets("COPY").Select
    Range("B1").Select                  ' ne colle que les valeurs
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(17, 0).Range("A1").Select
End Sub

Amicalement

pierrot

Bonjour, avec l'enregistreur de macro, j'obtiens ça :

    Range("B1:B18").Select
    Selection.Copy
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

J'ai fait un copier / collage spécial : valeur

Faut peut être y voir la solution ?

Cordialement

NL

merci

Bonsoir,

A essayer :

Sub copy_est_recette()
    est.Range("B1:B17").Copy
    recette.Range("B1").PasteSpecial xlValues
    Application.CutCopyMode = False
End Sub

ENCORE MIEUX!!!! Merci Raja

Rechercher des sujets similaires à "prob"