precision sur une macro

[LE MATIN]

bonsoir,

la macro suivante fonctionne bien, mais j'aimerais copier que les valeurs et pas les formules comment svp la modifier
merci 🙂


Sub ESSAI()
Sheets("BON_DE_CDE").Range("B13:K" & Range("b65536").End(xlUp).Row).Select
Selection.Copy

ActiveSheet.Paste Destination:=Worksheets("CONSO").Range("B" & Range("B65536").End(xlUp).Row + 1).Offset(1, 0)



End Sub

 

[rafael]

Re : precision sur une macro

Bonjour,
Rajoute à ta macro :
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Tu peut aussi faire ta macro en mode enregistrement les codes s'inscrive tout seul.
tu fait sur ta page Excel : macro; nouvelle macro, ensuite tu fait à l'écrant tous ce que tu veu que la macro face et tu arrête la macro
ensuite tu visualise les code et tu enlève ce qui ne sert à rien
a+

 

[Pierrot93]

Re : precision sur une macro

Bonsoir Le Matin, Rafael

une autre solution :

With Sheets("BON_DE_CDE")
    .Range("B13:K" & .Range("b65536").End(xlUp).Row).Copy
End With
With Sheets("CONSO")
    .Range("B" & .Range("B65536").End(xlUp).Row [B]+ 2[/B]).PasteSpecial xlPasteValues
End With

bonne soirée
@+

Edition : si tu mets +2 à la place de +1 tu peux supprimer l'offset qui ne sert plus...

 

[LE MATIN]

Re : precision sur une macro

Bonsoir à tous,

merci pour vos reponses
bien entendu ça fonctionne très bien
.....que de progrès il me reste a faire en VBA

merci encre 🙂