Copier valeur

Bonjour,

ça fait longtemps que je n'ai pas fait de VBA.

J'ai fait ce code pour copier coller vers une autre plage. Par contre, je ne me souviens plus comment réaliser la même chose mais en faisant un copier valeur. De mémoire on a pas le choix d'utiliser le select?

Sub CopyCurrentRegion()

Dim i As Integer

Application.ScreenUpdating = False

'Récupère le numero de ligne de la dernière cellule non vide à partir de A13.

i = Worksheets("Déclarations pourboires").Range("A26").End(xlUp).Row

'Cumul par jour du chiffre du midi

Worksheets("Déclarations pourboires").Range("A13" & ":E" & i).Copy Worksheets("Cumul par jour").Range("B555555").End(xlUp)(2)

'Cumul par jour du chiffre du soir

Worksheets("Déclarations pourboires").Range("G13" & ":K" & i).Copy Worksheets("Cumul par jour").Range("I555555").End(xlUp)(2)

Application.ScreenUpdating = True

End Sub

Merci

Bonsoir,

On n'utilise pas Select parce que cela ralentit inutilement VBA et ce serait imiter bêtement l'enregistreur !

Quand on copie, on copie tout, c'est au collage qu'on peut choisir de ne coller que des valeurs, des formules, des formats... à partir de ce qu'on a placé en copiant dans le presse-papier.

Mais dès lors qu'il s'agit de valeurs, on peut en VBA se dispenser de copier-coller, et ça ira plus vite.

Sub CopyCurrentRegion()
    Dim i As Integer, ws As Worksheet
    Set ws = Worksheets("Cumul par jour")
    Application.ScreenUpdating = False
    With Worksheets("Déclarations pourboires")
        i = .Range("A" & .Rows.Count).End(xlUp).Row - 12
        ws.Range("B" & ws.Rows.Count).Offset(1).Resize(i, 5).Value = _
         .Range("A13").Resize(i, 5).Value
        ws.Range("I" & ws.Rows.Count).Offset(1).Resize(i, 5).Value = _
         .Range("G13").Resize(i, 5).Value
    End With
End Sub

Cordialement.

Merci pour l'explication M. Ferland.

J'ai l'erreur 1004. L'objet worksheet a echoué.

J'ai validé les noms des feuilles et tout est ok.

Tu vois l'erreur vient d'où ?

Merci encore

C'est super j'ai trouvé.

Merci

OK!