Copié les valeurs d'une plage contienne des formule.

[iliess]

bonjour
j'ai une plage qui porte des formules dans la feuil("saisie") et j'ai essayé de copie cette plage vers feuil("gl") j'ai essayé avec ce code

Sub COPIE()
Sheets("GL").Range("a2:h17").Value = Sheets("SAISIE").Range("f20:m35").Value
End Sub

ça marche poue une fois
svp comment je peux copie cette plage vers feuil("gl") mais en de sous la première copie
et la troisième sous la deuxième et ainsi de suite
merci beaucoup
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[kjin]

Re : Copié les valeurs d'une plage contienne des formule.

Bonsoir,

Sub COPIE()
T = Sheets("Saisie").Range("f20:m35").Value
With Sheets("GL")
    dl = .Range("A65000").End(xlUp).Row + 1
    .Cells(dl, 1).Resize(UBound(T, 1), UBound(T, 2)) = T
End With
End Sub

A+
kjin

 

[iliess]

Re : Copié les valeurs d'une plage contienne des formule.

Merci Mr ça marche très bien
Je vous remercie infiniment

 

[riomilou]

Re : Copié les valeurs d'une plage contienne des formule.

Bonjour le Forum,
J'ai regardé le code donné par kjlin ci dessus....Si quelqu'un peut m'expliquer ce pararaphe donné par kjlin.

With Sheets("GL")
dl = .Range("A65000").End(xlUp).Row + 1
.Cells(dl, 1).Resize(UBound(T, 1), UBound(T, 2)) = T
End With

merci
Cdlt